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

    Como faço a função DLookup em um subformulário.

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como faço a função DLookup em um subformulário. Empty Como faço a função DLookup em um subformulário.

    Mensagem  alantardivo 8/4/2019, 11:06

    Olá pessoal, bom dia!

    Tenho um formulário Registrar_Pedidos e dentro desse form eu tenho um subformulário com o nome de "Sub_Consulta_Pedidos". criei um evento no campo código que após atualizar e mostre para mim todos dados do produto que é relacionado ao código eu fiz de um jeito, mas não funcionou...
    Alguém poderia me explicar como poderia fazer isso??
    Desde já agradeço a todos What a Face

    Código:
    Private Sub Código_AfterUpdate()
    If Código = DLookup("Código", "Produto", "Código='" & Me!Código & "'") Then
    Dim varBuscaEAN, varBuscaProduto, varBuscaCusto, varBuscaModelo, varBuscaFabricante, varBuscaPeso As Variant

    varBuscaEAN = DLookup("EAN", "Produto", "Código='" & Me!Código & "'")
    varBuscaProduto = DLookup("Produto", "Produto", "Código='" & Me!Código & "'")
    varBuscaCusto = DLookup("Custo", "Produto", "Código='" & Me!Código & "'")
    varBuscaModelo = DLookup("Modelo", "Produto", "Código='" & Me!Código & "'")
    varBuscaFabricante = DLookup("Fabricante", "Produto", "Código='" & Me!Código & "'")

    Quantidade = 1
    Me.EAN.Value = varBuscaEAN
    Me.Produto.Value = varBuscaProduto
    Me.Custo.Value = varBuscaCusto
    Me.Modelo.Value = varBuscaModelo
    Me.Fabricante.Value = varBuscaFabricante
    End If
    End Sub

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  JPaulo 8/4/2019, 11:09

    Se está a correr essas instruções dentro do subform, não pode usar o Me.Campo
    Tem de se referencia de outra forma;

    Código:
    Forms!SeuFormulario!SeuSubFormulario.Form!CampoNoSubform

    Algo assim:

    Código:
    If Código = DLookup("Código", "Produto", "Código='" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & "'") Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Como faço a função DLookup em um subformulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Como faço a função DLookup em um subformulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    Como faço a função DLookup em um subformulário. Folder_announce_new Instruções SQL como utilizar...
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  alantardivo 8/4/2019, 12:22

    Olá JPaulo, boa tarde!

    Está apresentando erro...
    Tipos incompatíveis na expressão de critério.

    Código:
    If Código = DLookup("Código", "Produtos", "Código='" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & "'") Then

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  JPaulo 8/4/2019, 12:39

    Só testando mesmo.

    Se quiser anexar aqui parte do seu banco, estamos ae.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Como faço a função DLookup em um subformulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Como faço a função DLookup em um subformulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    Como faço a função DLookup em um subformulário. Folder_announce_new Instruções SQL como utilizar...
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  alantardivo 8/4/2019, 12:54

    Olá JPaulo...

    Segue em o link do meu bd.

    1drv.ms/u/s!AnlxzVyaVHf4pH1iqqkCmsIUWJIK


    Obrigado pela ajuda!!!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  JPaulo 9/4/2019, 07:15

    Como "Código é numerico, não pode ter aspas simples;

    Código:
    If Val(Me.Código.Value) = Val(Nz(DLookup("Código", "Produtos", "Código=" & Forms!Registrar_Pedidos!Sub_Consulta_Pedidos.Form!Código & ""), 0)) Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Como faço a função DLookup em um subformulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Como faço a função DLookup em um subformulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    Como faço a função DLookup em um subformulário. Folder_announce_new Instruções SQL como utilizar...
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  alantardivo 9/4/2019, 08:56

    Oi JPaulo, bom dia!

    Agradeço sua explicação e código, mas ficou mais uma duvida no ar.
    Nesse caso como faço para que ao jogar o número do código ele carregue todas informações que acompanho o Código. Exemplo:

    Ean
    Produto
    Cor
    Modelo
    Fabricante
    Valor

    esses são campos que quero que venha junto ao digitar o código...
    Se puder me ajudar, vou agradecer muito!!!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  JPaulo 9/4/2019, 11:04

    Então...

    É como você tem, mas tem de tirar as aspas simples dos criterios nos DLookups.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Como faço a função DLookup em um subformulário. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Como faço a função DLookup em um subformulário. Folder_announce_new 102 Códigos VBA Gratuitos...
    Como faço a função DLookup em um subformulário. Folder_announce_new Instruções SQL como utilizar...
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Como faço a função DLookup em um subformulário. Empty Re: Como faço a função DLookup em um subformulário.

    Mensagem  alantardivo 13/7/2019, 13:02

    Olá JPaulo, boa tarde! Desculpa a minha ignorância mesmo, estou me dedicando bastante para aprender com vocês.

    Não funcionou aqui no banco.
    Vou mandar pra você e se puder faz a alteração e coloca como comentado para eu entender direitinho.

    nesse caso quero fazer com o Formulário Registrar_Orçamentos e Descrição_Orçamentos.

    Obrigado!

    dropbox.com/s/oy09zmq523g8p2m/ALSystem%20-%20Gerenciador%20Financeiro%20-%20testes-002.accdb?dl=1

      Data/hora atual: 1/8/2021, 06:37