[Resolvido]atualizando dois campos de todas as tabelas após atualizar em um formulário

bom dia tenho a mesma dificuldade agora porém é com outros campos....

eu tenho um TBL_CLIENTES que tem dois campos que são alterados toda semana.

Taxa do Dolar / Proposta Valida

só que eu iria fazer isso manualmente, entrar em cada formulário de cada cliente pra atualizar isso...

um amigo fez pra mim da tabela de preços, só não sei usar o código dele pra fazer pra essa....

Private Sub BtnAtualizaPrecos_Click()
   Me.Refresh
   Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("TBL_PREÇOS") > neste caso aqui eu criei uma tabela TBL_DOLAR Só pra fazer uma form com o campo Dolar e atualizar TBL_CLIENTES
   rs.MoveFirst
   Do While Not rs.EOF
   CurrentDb.Execute "UPDATE TBL_GERAR SET Preço = '" & rs!Preço & "' WHERE CodAlfatec = '" & rs!CodAlfatec & "'"

                               > dai eu fiz nesse caso colocar TBL_CLIENTES SET Taxa Dolar dai o resto eu não sei =/
   
   
   rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
   MsgBox "Todas as listas foram atualizadas com os preços atuais.", vbInformation, "Aviso"
   
End Sub

amigo acho que está indo por um caminho muito complexo, não seria mais fácil criar uma tabela temporária onde você irá preenhcer os campos desejados que deseja alterar e depois criar uma consulta de atualização baseada nessa tabela temporária?

oi tudo bem, na realidade quem vai usar isso são usuários comuns e essa aplicação vai ter que abrir apenas em FORM nada de mostrar a estrutura, tabelas relatórios e nada disso

por isso a intenção de facilitar o máximo possível, eu sei que na construção disso não tive planejamento de todas as coisas, dai foram ficando coisas quebradas,

agora preciso de um local pra colocar a taxa do dolar, e um botão pra lançar essa taxa em todas as tabelas prontas de clientes em TBL_CLIENTES

Estude um pouco sobre consultas amigo, vai facilitar sua vida na hora da programação.
eu criei a tabela temporária e criei a consulta para você ver como que ficaria +/-, estude e adapte as suas necessidades!

Olá..

Na fonte de registro do formulario FRM_ATUALIZARTAXADOLAR
, altere para este abaixo:

Código:

SELECT TBL_UPDATE.Código, TBL_UPDATE.ValorDolar, TBL_UPDATE.DataProposta FROM TBL_UPDATE;

No Botão BtnAtualizaPrecos deste mesmo formulário, altere para este codigo abaixo:

Código:

Private Sub BtnAtualizaPrecos_Click()
 'Atualiza TBL_CLIENTES
    Me.Refresh
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("TBL_UPDATE")
    rs.MoveFirst
    Do While Not rs.EOF
    CurrentDb.Execute "UPDATE TBL_CLIENTES SET TaxaDolar = '" & rs!ValorDolar & "',PropostaValida = '" & rs!DataProposta & "'"
    
    
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MsgBox "Todas as listas foram atualizadas com os preços atuais.", vbInformation, "Aviso"
    
End Sub

Faça testes e veja se é o que precisa e nos retorne

Abraços e sucesso

Obrigado! Celso mais uma vez lhe agradeço, agora o projeto está completo

eu só ainda não sei como vou fazer pra mascara de Dólar....

pq o que sai aqui é REAL R$

Olá..

Teste no formato do campo e defina também como mascara da tabela e formulario:

"US$ "00,000\.00

Aguardo

Olá..

Deu certo?

Se estiver ok, não esquece de finalizar o tópico com o "Resolvido".

Veja também este seu outro tópico https://www.maximoaccess.com/t37529-atualizando-subformulario-continuo

Aguardamos

Abraços e sucesso

Sim Celso deu certo, irmão como eu posso te agradecer?

gostaria de trocar contatos!

Obrigado mesmo, quando terminar o projeto te mando pra você ver ^_^

Olá..

Ficamos felizes por ter ajudado, e estaremos sempre por aqui.

Não esqueça de finalizar este outro https://www.maximoaccess.com/t37529-atualizando-subformulario-continuo

O fórum agradece seu retorno

Abraços e sucesso

Bom dia Srs. novamente eu reabrindo esse tópico....

surgiu mais um campo, e eu já tentei modificar isso e não consigo... o novo campo é Assunto da TBL_CLIENTES

na TBL_UPDATE, eu coloquei AtualAssunto só pra diferenciar...

Private Sub BtnAtualizaPrecos_Click()
'Atualiza TBL_CLIENTES
Me.Refresh
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_UPDATE")
rs.MoveFirst
Do While Not rs.EOF
CurrentDb.Execute "UPDATE TBL_CLIENTES SET TaxaDolar = '" & rs!ValorDolar & "',PropostaValida = '" & rs!DataProposta & "'"


rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "Todas as listas foram atualizadas com os preços atuais.", vbInformation, "Aviso"

End Sub

Olá..

Teste alterando esta linha no código

Código:

CurrentDb.Execute "UPDATE TBL_CLIENTES SET TaxaDolar = '" & rs!ValorDolar & "',PropostaValida = '" & rs!DataProposta & "' ,Assunto = '" & rs!AtualAssunto & "'"

Se não for, Anexe exemplo com os novos campos que deseja atualizar e de detalhe para qual tabela atualizar.

Aguardamos

Abraços

deu certo dessa forma ^_^ você é show

Celso eu abrir outro topico pq preciso de algo nesse código que to achando que é impossível....

Olá...

Vou la ver

Abraços e sucesso