[Resolvido]Ajuda Função Dlookup

como fazer

Forms!frmpontodevenda!Imagem3.Picture = (DLookup("[Foto]", "Tab_Produto", "[CódigoBarras] = '" & Forms!frmpontodevenda!codbarras & "'"))

se não achar passar para o código abaixo

Forms!frmpontodevenda!Imagem3.Picture = (DLookup("[Foto]", "Tab_Produto", "[CódigoBarras] = '" & Forms!frmpontodevenda!Idprodutovv0 & "'"))

Up

Olá, teste assim:

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


Não testado, abraço.

Obrigado ahteixeira funcionou perfeitamente!

Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço