[Resolvido]update de campo de uma tabela para outra

Boa Tarde pessoal! Sou novato no fórum
Estou iniciando na programação em access e estou com uma dúvida

Vi esse código nos 102 códigos mas não estou conseguindo executá-lo, não acontece nada!

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strSql As String
strSql = "UPDATE Tabela2,Tabela1 "
strSql = strSql & "SET Tabela2.Campo2 = Tabela1.Campo1 WHERE Tabela2.CampoID=Tabela1.CampoID;"
CurrentDb.Execute (strSql)
End Sub

Não sei se seria bem essa minha necessidade, vou tentar explicar de uma forma genérica, tenho duas tabelas:
tblDados (Código, CodEmpresa, Empresa, Valor)
tblEmpresa (Código, Empresa) onde estão registradas todas as empresas! e o campo Código está relacionado com CodEmpresa da tblDados.

O que eu queria que ao entrarem dados na minha tblDados o campo CodEmpresa fosse preenchido de acordo com o código daquela empresa que encontra-se na tblEmpresa!

Creio que seja parecido com esse código acima, mas não estou conseguindo execultá-lo!

Se alguém puder me ajudar ficarei mt grato!

Abraços!

Ola seja bem vindo ao forum.

O Código acima é para inserir na tabela 2, os registros da tabela 1, não é o seu caso.

Você para o preencimento automatico deve utilizar a função DLookup.

Então estive olhando a função Dlookup, mas ele insere automaticamente os dados em um formulário, sobre uma determinda pesquisa, trabalha com filtragens não e?! não sei se seria este o meu caso!

Eu realmente quero inserir na tblDados os valores da tblEmpresas!
Pois quando importo meus dados, em grande quantidade, ele vem apenas com o nome da empresa e minha necessidade seria trabalhar com código da empresa que encontra-se na tblEmpresas!


tblEmpresa - (Código, Empresa) - já tenho todas as empresas com seus respectivos códigos
tblDados - ( ***** , Empresa) - queria que fosse inserido o código das determinadas empresas ao atualizar! Nesta tabela as empresas podem se repetir mas terem apenas um outro campo diferente, mas o código é o mesmo!

se alguém puder me ajudar!!

Amigão nesse caso sim, pode colocar o codigo no evento VBA ao pressionar, num formulario;

Teste;

'By JPaulo ® Maximo Access
Dim strSql As String
strSql = "UPDATE tblDados,tblEmpresa "
strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
CurrentDb.Execute (strSql)

Grande mestre!!
Perfeito tudo funcionando!!

Só queria saber mais uma informação
quando eu ponho no evento do formulário após atualizar ou no botão ele funciona perfeitamente

Eu queria colocá-lo no evento fomulário no campo Empresa, nesse caso não acontece nda!
tenho que fazer alguma modificação nesse caso?

Amigão bom dia;

Existe duas possibilidades;

1ª Faz update a todos os registros:

Private Sub Empresa_AfterUpdate()
'By JPaulo Maximo Access
Dim strSql As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
strSql = "UPDATE tblDados,tblEmpresa "
strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
CurrentDb.Execute (strSql)
End Sub

2ª Faz update ao registro onde a Empresa for igual à que está no seu campo no momento:


Private Sub Empresa_AfterUpdate()
'By JPaulo Maximo Access
Dim strSql As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
strSql = "UPDATE tblDados,tblEmpresa "
strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa AND tblDados.Empresa= '" & Me.Empresa & "'"
CurrentDb.Execute (strSql)
End Sub

Agora a escolha acertada é sua....

Desculpe pois começei a aprender programação agora!

você poderia me explicar melhor a frase que vc modificou!

AND teste1.Empresa= '" & Me.Empresa & "'"

Não entendi quem será teste1

teste1 fui a fazer o teste aqui, mil desculpas.

O correto é:

AND tblDados.Empresa= '" & Me.Empresa & "'"

Retificado acima.

Funcionou perfeitamente!

Apenas um último ajuste, tenho um botão no meu formulário que importa diretamente para minha tabela!
coloquei o código no após atualizar, mas ele só insere o codEmpresa depois que eu clico no botão salvar!
Tem alguma função que torne isso automático? Pois outras pessoas usarão o bancos de dados e talvez não saibam deste detalhe!

Estou usando esse código

1ª Faz update a todos os registros:

Private Sub Empresa_AfterUpdate()
'By JPaulo ® Maximo Access
Dim strSql As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
strSql = "UPDATE tblDados,tblEmpresa "
strSql = strSql & "SET tblDados.CodEmpresa = tblEmpresa.CodEmpresa WHERE tblDados.Empresa=tblEmpresa.Empresa;"
CurrentDb.Execute (strSql)
End Sub

intão ?

Esta instrução já salva;

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Amigão,
vlw mesmo pela sua ajuda


Tudo certinho!!!

Resolvido!

Só passando para agradecer por este post, salvou aqui.
Obrigado gente.