Celso Roberto 27/3/2020, 20:20
Olá..
Eu não consigo manusear nenhum dos seus formularios porque esta dando ausência de dll, então estou me orientando pela tabelas.
Eu não entendi o porque voce tem 3 tabelas para administrar os produtos e preços, mesmo porque não conheço a extrutura de seu sistema.
Mesmo que uma das tabelas seja importada, eu criaria um formulário para esta tabela e em um comando eu mandaria atualizar a tabela TBL_GERAR para que todas as tabelas de clientes ficasse atualizada.
Desconheço alguma forma de fazer isto em copiar e colar como voce sugeriu.
Supondo que esta tabela importada fosse a tabela
TBL_PREÇOS, eu faria um loop por esta tabela mandando atualizar a TBL_GERAR desta forma abaixo.
- Código:
Private Sub BtnAtualizarPrecos_Click()
'Atualiza preço na TBL_GERAR
Me.Refresh
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_PREÇOS")
rs.MoveFirst
Do While Not rs.EOF
CurrentDb.Execute "UPDATE TBL_GERAR SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
'MsgBox "Preço atualizado....", vbInformation, "Aviso"
End Sub
Aguardo
Abraços
Última edição por Celso Roberto em 27/3/2020, 21:00, editado 2 vez(es)