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]Função Dlookup

    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 02/05/2012

    [Resolvido]Função Dlookup Empty [Resolvido]Função Dlookup

    Mensagem  souzadenilson 22/7/2022, 00:52

    Boa noite.

    Eu coloquei em meu projeto a função dlookup. em meu projeto, porem ele está funcionando porque na tabela "Tab_Cadastro"  o campo "Id_CodProduto" esta como texto curto e quando eu alterei para numero ele não funcionou.
    Onde pode estar acontecendo este erro.

    Segue o código que utilize

    i
    Código:

    Private Sub Cod_Produto_Exit(Cancel As Integer)
        'On Error Resume Next
        Call AtualizaLista
        Me.Lst_PedLcto.Enabled = True
        Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto='" & Me.Cod_Produto & "'") (Esta linha que está funcionando
        'Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "'")
         Me.Fisico_Produto.SetFocus
        If IsNull(DLookup("[Desc_Produto]", "tab_cadastro", "[Id_CodProduto]= Forms!Frm_Acerto!Cod_Produto")) Then
            
             If MsgBox("Código não encontrado! Deseja Cadastrar produto", vbYesNo) = vbYes Then
        
        Me.Cod_Produto = ""
        DoCmd.OpenForm "Frm_CadProduto"
        
      Else
        
        'Me.Cod_Produto.SetFocus
        'Me.Cod_Produto = ""
        
        Exit Sub
        
        'Me.Saida_Produto.Enabled = False
        'Me.Obs_Mvto.Enabled = False
        'Me.Cbo_Responsavel.Enabled = False
        
        End If
        End If
        'Me.Fisico_Produto.Enabled = True
        'Me.Fisico_Produto.SetFocus
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8181
    Registrado : 05/11/2009

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  Alexandre Neves 22/7/2022, 22:01

    Boa noite
    Colocou a dúvida e marcou-a com "Resolvido"
    Reveja, se foi por engano, desmarque; se está resolvido, explique como para ajudar outros com a mesma dúvida


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 02/05/2012

    [Resolvido]Função Dlookup Empty Re: [Resolvido]Função Dlookup

    Mensagem  souzadenilson 22/7/2022, 22:32

    Consegui resolver, retirei as aspas simples e deu certo

      Data/hora atual: 15/8/2022, 14:45