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

4 participantes

    [Resolvido]Função Dlookup com aspas

    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

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

    Mensagem  alozs 20/3/2019, 13:10

    Olá amigos, estou quebrando a cabeça aqui com uma condição que parece ser simples, em meu form eu tenho um campo do tipo numero de 13 digitos porem preciso que o vba faça uma alteração nele pegando somente os 8 primeiro dígitos e compare com o código cadastrado na tabela de produtos, sem essa alteração funciona normal a função dlookup porem quando eu altero ele (conforme mostra a foto em anexo) entra uma bendita aspas que eu acho que é por conta disso que a função dlookup não consegue comparar o código "modificado" com o cadastrado na tabela

    alguém tem alguma dica para ajudar a solucionar esse caso

    [Resolvido]Função Dlookup com aspas Aspas10
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

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

    Mensagem  alozs 21/3/2019, 15:55

    alguem?!  Rolling Eyes
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 21/3/2019, 22:38

    Olá Alonso,

    Entra a aspa porque é campo texto, o numerico nao tem aspas.
    Tente defenir uma variavel numerica.
    Se não conseguir monte um pequeno exemplo com o erro e patilhe para se testar.

    Abraço
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

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

    Mensagem  alozs 22/3/2019, 01:28

    então o mais estranho é que o campo já numerico mais parece que ele converte para texto, não entendi bem, tem algum código que consigo usar para tentar "forçar" ele a converter para numérico ou reconhecer como numérico
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 22/3/2019, 13:30

    Quando você usa uma função interna, como o Left ou Right ou mesmo DLookup é considerada texto mesmo.

    Tem de forçar para numero, assim;

    Código:
    txtcodbarras = Left(txtcodbarras, 8)
    'força para numero

    If Val(txtcodbarras) = Val(DLookup("CodigoDoProduto", ect....)) 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

    [Resolvido]Função Dlookup com aspas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função Dlookup com aspas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função Dlookup com aspas Folder_announce_new Instruções SQL como utilizar...
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP 22/3/2019, 13:58

    Bom dia Alonso!!!

    Se você quiser transformar o número em texto: Str([Nome campo])
    Se você quiser transformar o texto em número: Val([Nome campo])

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

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

    Mensagem  alozs 22/3/2019, 20:24

    hahahaha deu certo, obg, mais um para o livro do conhecimento

    a ultima dúvida agora...rsrsrs aproveitando o tópico, ficou perfeito porem o resultado do campo "quantidade" esta me retornando muitos zeros a direita, tentei mudar a formação no campo no formulário porem sem sucesso, como que eu "forço" ele a me retornar o resultado somente 0,000 ou 0,00

    [Resolvido]Função Dlookup com aspas Aspas11

    procurei aqui no forum apliquei algumas técnicas mais não tive o resultado correto Sad
    alozs
    alozs
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    Registrado : 07/02/2018

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

    Mensagem  alozs 22/3/2019, 20:52

    consegui utilizei o código abaixo

    Me.txtQuantidade = Format$(Me.txtQuantidade.Value, "0.000")

    deu certo!

    obg a todos envolvidos!  cheers cheers cheers bounce bounce
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 25/3/2019, 15:04

    Olá a todos,

    Alonso, obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 1/8/2021, 12:28