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]Ajuda com Dlookup

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Dlookup Empty [Resolvido]Ajuda com Dlookup

    Mensagem  Agravina 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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Dlookup Empty Re: [Resolvido]Ajuda com Dlookup

    Mensagem  DamascenoJr. 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Dlookup Empty Re: [Resolvido]Ajuda com Dlookup

    Mensagem  Agravina 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.

    Conteúdo patrocinado


    [Resolvido]Ajuda com Dlookup Empty Re: [Resolvido]Ajuda com Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:15