MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Ajuda com a função Dlookup

    avatar
    RenatoL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 14/07/2022

    [Resolvido]Ajuda com  a função Dlookup Empty [Resolvido]Ajuda com a função Dlookup

    Mensagem  RenatoL 30/1/2023, 12:13

    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
    Anexos
    [Resolvido]Ajuda com  a função Dlookup Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    [Resolvido]Ajuda com  a função Dlookup Empty Re: [Resolvido]Ajuda com a função Dlookup

    Mensagem  Alexandre Fim 30/1/2023, 12:22

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ajuda com  a função Dlookup Setinf11
    Sistemas e Tecnologia Ltda

    RenatoL gosta desta mensagem

    avatar
    RenatoL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 14/07/2022

    [Resolvido]Ajuda com  a função Dlookup Empty Re: [Resolvido]Ajuda com a função Dlookup

    Mensagem  RenatoL 30/1/2023, 13:37

    Muito Obrigado !!!

    Conteúdo patrocinado


    [Resolvido]Ajuda com  a função Dlookup Empty Re: [Resolvido]Ajuda com a função Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:23