Autopreencher

Ola bom dia...

criei um controle de acesso e no formulario onde digito a entrada e saida dos visitantes tenho os seguintes campos:
Codigo - Visitante - Empresa - Visitado - Setor - Assunto - Data - Entrada - Saida

Quando eu preencher o campo VISITANTE queria que o campo EMPRESA se preenchesse automaticamente e o mesmo acontecesse com os campos VISITADO E SETOR...
tentei varias coisas e não consegui...
Obs... os campos VISITANTE E EMPRESA estão em uma tabela chamada VISITANTE
os campos VISITADO E SETOR estão em outra tabela chamada VISITADO...


desde ja agradeço...

Feliz 2014.
Seja bem vindo ao fórum

Conforme exemplo do Amigo Críquio:

Codigo é chave primária ou pelo menos é um campo que não se repete? O melhor modo de se realizar uma pesquisa é pela chave primária, mas vamos lá. Tente assim no evento "Após atualizar" do campo Visitante:

Código:


Me.Empresa = DLookup("Empresa", "VISITANTE", "Codigo=" & Me.Codigo)
Me.Visitante = DLookup("Visitante", "VISITANTE", "Codigo=" & Me.Codigo)
Me.Visitado = DLookup("Visitado", "VISITADO", "Codigo=" & Me.Codigo)
Me.Setor = DLookup("Setor", "VISITADO", "Codigo=" & Me.Codigo)

Codigo é um campo tipo número, não? Se for tipo texto, terá que adicionar aspas simples e duplas, assim:

Me.Empresa = DLookup("Empresa", "VISITANTE", "Codigo='" & Me.Codigo & "'")
Me.Visitante = DLookup("Visitante", "VISITANTE", "Codigo='" & Me.Codigo & "'")
Me.Visitado = DLookup("Visitado", "VISITADO", "Codigo='" & Me.Codigo & "'")
Me.Setor = DLookup("Setor", "VISITADO", "Codigo='" & Me.Codigo & "'")



Espero que ajude.

Valeu pela resposta deu certo obrigado