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]DLookup - retornando erro de incompatibilidade

    avatar
    betocac
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/10/2016

    [Resolvido]DLookup - retornando erro de incompatibilidade Empty [Resolvido]DLookup - retornando erro de incompatibilidade

    Mensagem  betocac 24/5/2017, 20:36

    Boa tarde senhores,

    Tenho uma rotina que gostaria de buscar um código em uma tabela conforme um determinado campo de um formulário.
    Estou tentando usar o DLookup conforme abaixo;

    Private Sub IdCliente_GotFocus()
    Dim varX As Variant

    If Not IsNull(Me.CNPJ_CPF) Then
    varX = DLookup("[Codigo]", "tb_Clientes", "[CNPJ] = " & (Me.CNPJ_CPF))
    Me.IdCliente = varX
    End If
    End Sub

    O problema é que recebo uma mensagem de erro em tempo de execução: 3464 (Tipo de dados incompatíveis na expressão critério).
    Fiz e refiz os testes, o nome da tabela e os tipos dos campos estão corretos, já vi vários exemplos e não consegui sucesso.

    Peço aqui a ajuda dos mestres.

    Obrigado!
    avatar
    misaelsp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 20/02/2013

    [Resolvido]DLookup - retornando erro de incompatibilidade Empty Re: [Resolvido]DLookup - retornando erro de incompatibilidade

    Mensagem  misaelsp 25/5/2017, 12:58

    bom dia amigo.
    O que pode estar acontecendo é o seguinte, se o campo cnpj for um campo de tipo Número, não é necessário aspas simples para indicar um valor, mas se o campo for texto, você precisa colocar o valor entre aspas simples.


    tente assim:

    varx = Dlookup("Codigo", "tbl_Clientes", "CNPJ = '" & Me.Cnpj_Cpf.Value & "'")

    acho que seu problema sera resolvido


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer Very Happy
    avatar
    betocac
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/10/2016

    [Resolvido]DLookup - retornando erro de incompatibilidade Empty Re: [Resolvido]DLookup - retornando erro de incompatibilidade

    Mensagem  betocac 25/5/2017, 13:04

    Ok, colega, era isso mesmo, já havia chegado a essa solução, mesmo assim, obrigado pela ajuda!

    Conteúdo patrocinado


    [Resolvido]DLookup - retornando erro de incompatibilidade Empty Re: [Resolvido]DLookup - retornando erro de incompatibilidade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:39