[Resolvido]Função Dlookup com aspas

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

alguem?! 

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

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

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


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

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



procurei aqui no forum apliquei algumas técnicas mais não tive o resultado correto

consegui utilizei o código abaixo

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

deu certo!

obg a todos envolvidos! 

Olá a todos,

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

Abraço