MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Função Dlookup - Formulário

    Compartilhe

    LorenaMota
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/08/2017

    Função Dlookup - Formulário

    Mensagem  LorenaMota em Qui 03 Ago 2017, 20:58

    Ola pessoal,
    Estou com uma dúvida estou querendo utilizar a função Dlookup no meu banco de dados aonde tenho uma caixa de combinação Itens e tenho os campos Preço Unitário,Preço Venda, Lucro , Estoque.

    Gostaria que quando eu selecionar um produto na coluna itens as outras colunas automaticamente sejam preenchidas.

    Já procurei em muitos lugares mais não conseguir resolver.
    Deste já eu agradeço.Obrigada.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: Função Dlookup - Formulário

    Mensagem  caiosouza em Qui 03 Ago 2017, 21:02

    Basicamente vc precisa que através do nº do item seja preenchido os 4 campos mencionados?
    E onde deseja visualizar os dados? Numa caixa de texto?


    .................................................................................
    A persistência leva ao sucesso!

    LorenaMota
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/08/2017

    Re: Função Dlookup - Formulário

    Mensagem  LorenaMota em Sex 04 Ago 2017, 18:08

    Eu preciso que quando eu selecionar um item, o restante apareça nas caixas de texto Preço Unitário, Preço de Venda, Lucro e Estoque. As caixas de texto já estão criadas, está no formulário.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: Função Dlookup - Formulário

    Mensagem  caiosouza em Sex 04 Ago 2017, 18:19

    Boa tarde,

    No evento Ao Alterar do Seu campo TXT_ITEM coloque:

    Código:
    Me.TXT_PRECO_UNITARIO = DLookup("preco_unitario", "Sua tabela", "item= " & forms!SeuFormulario!TXT_ITEM)
    Me.TXT_PRECO_VENDA = DLookup("preco_venda", "Sua tabela", "item= " & forms!SeuFormulario!TXT_ITEM)
    Me.TXT_LUCRO = DLookup("lucro", "Sua tabela", "item= " & forms!SeuFormulario!TXT_ITEM)
    Me.TXT_ESTOQUE = DLookup("estoque", "Sua tabela", "item= " & forms!SeuFormulario!TXT_ITEM)


    .................................................................................
    A persistência leva ao sucesso!

    LorenaMota
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/08/2017

    Re: Função Dlookup - Formulário

    Mensagem  LorenaMota em Sex 04 Ago 2017, 19:20

    Eu não sei o que eu estou fazendo de errado mais não estou conseguindo enviar os print's, mais posso te mandar o banco de dados. Você poderia da uma olhada?

    Deste já te agradeço.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: Função Dlookup - Formulário

    Mensagem  caiosouza em Sex 04 Ago 2017, 19:38

    Olha, pode sim. Poste no aqui para outras pessoas poderem participar do fórum e me envie no e-mail [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    A persistência leva ao sucesso!

    LorenaMota
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/08/2017

    Re: Função Dlookup - Formulário

    Mensagem  LorenaMota em Sex 04 Ago 2017, 20:16

    Já postei o banco de dados mais irei mandar através do seu email.

    Obrigada.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: Função Dlookup - Formulário

    Mensagem  caiosouza em Sex 04 Ago 2017, 23:57

    Boa noite,

    Segue banco de dados enviado pela nossa amiga Lonena.

    Aqui vão algumas sugestões para bom uso e facilidade de manutenção do seu sistema:

    1 - Nome de tabelas, consulta, formulários, relatórios, modulos e macros devem sempre estar de uma forma que no ambiente de desenvolvimento em VBA vc não os confunda. Ex.: Em vez de Produtos, vc pode colocar tab_produtos... Menu vc pode colocar fml_menu.

    2 - O mesmo serve para o nome dos seus controles, nunca deixe espaços e acentos nos teus comando, tanto nas tabelas quando no nome dos campos no formulário.

    3 - Use sempre números sequências (que não se repetem) para esse tipo de função. Pois buscando por Texto a busca de dados não é sempre muito confiável. Por conta de existir a possibilidade dos Textos se repetirem.


    Para entender melhor, olhe com  atenção os novos nomes no seu sistema.
    Anexos
    Caixa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 11 vez(es)


    Última edição por caiosouza em Sab 05 Ago 2017, 00:02, editado 1 vez(es)


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: Função Dlookup - Formulário

    Mensagem  caiosouza em Sex 04 Ago 2017, 23:58

    Para conhecimento de todos, segue banco de dados antigo.
    Anexos
    Caixa_old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 9 vez(es)


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: Ter 21 Nov 2017, 17:32