Pegar Dados De Outra Tabela (resolvido)

[robsabin]

Olá tenho um probleminha.

Estou criando um banco de dados com duas tabelas "tab_atualiza" e "tab_nota"

O que queria fazer é o seguinte: No formulario da tabela tab_nota tem um campo "empresa" quando eu sair do foco ele pegar os campos da tabela tab_atualiza e preencher o formulário da tabela tab_nota automaticamente.

Criei este código :

Private Sub Destinatário_LostFocus()

Set rs = New ADODB.Recordset

Set cn = CurrentProject.AccessConnection

With rs

Set .ActiveConnection = cn

.Source = "SELECT * FROM tab_atualiza WHERE empresa = '" & Destinatário.Text & "'"

.LockType = adLockOptimistic

.CursorType = adOpenKeyset

.Open

End With

With rs

If .EOF And .BOF Then

:

vInclusao = True

Else

Código.SetFocus

Código.Text = !codigo

ENDEREÇO.SetFocus

ENDEREÇO.Text = !endereco

Cidade.SetFocus

Cidade.Text = !Cidade

Estado.SetFocus

Estado.Text = !Estado

CEP.SetFocus

CEP.Text = !CEP

Texto19.SetFocus

Texto19.Text = !CNPJ

Texto21.SetFocus

Texto21.Text = !CFDF

End If

End With

Set Me.Recordset = rs

End Sub

Só que os campos do formulário da tab_nota que não tem na tabela tab_atualiza dá este tipo de erro "#Nome?".

Gostaria que alguém me ajuda-se nisso.

Desde já agradeço.

[MrMALJ]

Tenta assim

dim guarda as variant

guarda=dlookup("[tab_ataulizaCod]","tab_atualiza","[tab_atualizaEmpresa]="&me.empresa)

me.codigo.value=guarda

guarda=dlookup("[tab_ataulizaEndereço]","tab_atualiza","[tab_atualizaEmpresa]="&me.empresa)

me.ENDEREÇO.value=guarda

....

e assim por diante, claro que fiz só um exemplo, você deve utilizar realmente a nomenclatura de seus campos.

Se resolver seu problema confirme ok!

[robsabin]

Olá! Quero agradecer. Deu certo. Muito Obrigado.