Código Dlookup Ajuda

Uso Este código abaixo para retornar dados do produto e imagem
Mas se o código conter mas de 7 dígitos não retorna imagem.

if Idois é referente a estes campo no formulário

=Format(Esquerda(Direita([CodBarras];6);5);"@@\,@@@") campo IdPeso
=Esquerda([CodBarras];1) campo Idois
=Esquerda([CodBarras];7) campo Idprodutovv0

São necessários para ler os códigos gerados por balanças

If Idois = "2" Then
If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!Idprodutovv0 & "'")) Then
MsgBox "Produto não Cadastrado ", vbInformation, "ATENÇÃO"

Dim strCB As String
strCB = (DLookup("[Foto]", "Tab_Produto", "[CódigoBarras] = '" & Forms!frmpontodevenda!codbarras & "'")) & ""
If Len(strCB) > 0 Then
Forms!frmpontodevenda!Imagem3.Picture = strCB
Else
'se não achar passar para o código abaixo
Forms!frmpontodevenda!Imagem3.Picture = (DLookup("[Foto]", "Tab_Produto", "[CódigoBarras] = '" & Forms!frmpontodevenda!Idprodutovv0 & "'"))
End If

Boa tarde
Terá campo com vários tamanhos
Veja quais os tamanhos possíveis e, em cada situação, quais partes precisa extrair

O problema está m retornar foto do produto quando este tem o código com mais de 7 digitos

exemplo
código 100 funciona normalmente
código 1234567 não funciona.

Agravina

Provavelmente seja a formatação que está pegando parte do código e não ele por inteiro.

Se sabe usar ponto de interrupção do código, e a janela de verificação imediata, veja
se o código que está inserindo está sendo retornado por inteiro. Por exemplo:

Deseja ver a foto do código 1234567

Porém com a formatação o Access está lendo 123456 e não encontrará registros com esse código.

Caso não consiga, poste a tabela e o formulário em questão.

Lembrando que o fórum não está aceitando anexo no momento, use o dropbox ou o mega.

[ ]'s

Noob

Seu link de bd para analise .

https://www.dropbox.com/s/a214f2sb20zms0r/Novo%28a%29%20Microsoft%20Office%20Access%202007%20Banco%20de%20Dados.accdb?dl=0