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]Consulta via Dlookup

    wvsilva
    wvsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 13/06/2010

    [Resolvido]Consulta via Dlookup Empty [Resolvido]Consulta via Dlookup

    Mensagem  wvsilva 24/10/2010, 15:41

    Boa tarde a todos..
    Gostaria de saber se alguem tem um exemplo de consulta via Dlookup.
    Para mim poder estudar.
    Pois preciso buscar dados em uma tabela para preencher automatico no formulario.
    Ex: Clientes tem o formulario de clientes.
    Preciso que ao digitar o cnpj ou cpf preencha todos os dados deste cliente.
    Desde ja agradeço a ajuda Very Happy
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consulta via Dlookup Empty Re: [Resolvido]Consulta via Dlookup

    Mensagem  vieirasoft 24/10/2010, 17:08

    Boa Tarde Amigo

    Veja aqui um exemplo de Dlookup e adapte ao que necessita

    Este exemplo funcione através de uma caixa de combinação

    ' Avaliar o filtro antes ser passado para a função DLookup.
    strFiltro = "Id = " & Me!Id


    Me!Endereço = DLookup("Endereço", "cliente", strFiltro)
    Me!Cpt = DLookup("Cpt", "cliente", strFiltro)
    Me!Local = DLookup("Local", "cliente", strFiltro)
    Me!Telefone = DLookup("Telefone", "cliente", strFiltro)
    Me!Pagamento = DLookup("Pagamento", "cliente", strFiltro)

    Abraços
    wvsilva
    wvsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 13/06/2010

    [Resolvido]Consulta via Dlookup Empty Re: [Resolvido]Consulta via Dlookup

    Mensagem  wvsilva 24/10/2010, 18:32

    Boa tarde viera!
    Obrigado pela ajuda
    Eu ate sei o codigo mais não sei aonde ultiizar
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Consulta via Dlookup Empty Re: [Resolvido]Consulta via Dlookup

    Mensagem  vieirasoft 24/10/2010, 19:30

    Olá de novo

    Como lhe disse acima este código está numa caixa de combinação no evento "antes de actualizar". Você pode utilizar esta função numa caixa de texto por exemplo.

    Conteúdo patrocinado


    [Resolvido]Consulta via Dlookup Empty Re: [Resolvido]Consulta via Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 15:24