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

    [Resolvido]Ajuda com Dlookup

    Compartilhe
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]Ajuda com Dlookup

    Mensagem  Agravina em 23/10/2018, 19:59

    Boa tarde

    tenho uma tabela de cadastro de produto onde cadastro os códigos de barras dos produtos
    o problema é que quando o código inicia com Zero , não funciona

    https://www.dropbox.com/s/7wxqu0ddz77ugqq/TestePdv.zip?dl=0
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Ajuda com Dlookup

    Mensagem  IvanJr. em 23/10/2018, 23:20

    Amigo, sempre antes de postar seu banco user a ferramente compactar e reparar do MS Access. Quando fiz isso seu banco caiu de 100mb para 0,7mb. Bancos grandes dificultam a vida dos outros colegas que podem não tem internet tão boa mas que querem ajudá-lo.

    Quanto a sua questão, veja, encontrei a seguinda linha: If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras= '" & Int(Forms!frmpontodevenda!codbarras) & "'")) Then

    Observe que você está convertendo o valor que é texto (string) em número (inteiro). Isso faz com que o seu código de barras perda o zero a frente.

    Tente sem a conversão
    Código:
    If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras= '" & Forms!frmpontodevenda!codbarras & "'")) Then

    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    Re: [Resolvido]Ajuda com Dlookup

    Mensagem  Agravina em 24/10/2018, 01:17

    Amigo IvanJr vou tomar cuidado da proxima vez quanto ao tamanho do bd.
    E sou solução funcionou perfeitamente obrigado.

      Data/hora atual: 23/1/2019, 08:03