[Resolvido]Ajuda com a função Dlookup

Olá a todos !

Por gentileza alguém poderia me ajudar  no evento ao alterar do Txt_nome do form Editar_cadastro_colaboradores  gostaria que ele trouxesse as informações da pesquisa pelo Dlookup.
não sei o que errei mas nada acontece ao alterar o nome .
desde já obrigado pela ajuda

Olá Renato,

Para obter o nome, vc precisa informar em qual coluna do combobox se o nome se encontra, no caso, a coluna 1.
Para carregar os dados, se utiliza o evento "Após Atualizar" (AfterUpdate) do campo.
Ficou assim:

Código:



Private Sub Txt_nome_AfterUpdate()

    Me.Txt_cargo = DLookup("[setor]", "ADM-MFASC", "[nome]='" & Me.Txt_nome.Column(1) & "'")
    Me.Txt_email = DLookup("email", "ADM-MFASC", "nome='" & Me.Txt_nome.Column(1) & "'")
    Me.Txt_Foto = DLookup("foto", "ADM-MFASC", "nome='" & Me.Txt_nome.Column(1) & "'")
    Me.Txt_login = DLookup("Login", "ADM-MFASC", "nome='" & Me.Txt_nome.Column(1) & "'")
    Me.Txt_senha = DLookup("senha", "ADM-MFASC", "nome='" & Me.Txt_nome.Column(1) & "'")
    MsgBox "correto"

End Sub



Copie e cole o codigo acima.
Agora vai funcionar.

Boa sorte
Att,

Alexandre Fim

Muito Obrigado !!!