Início
![[Resolvido]Função Dlookup Empty](https://2img.net/i/empty.gif)
souzadenilson 22/7/2022, 00:52Boa noite.
Eu coloquei em meu projeto a função dlookup. em meu projeto, porem ele está funcionando porque na tabela "Tab_Cadastro" o campo "Id_CodProduto" esta como texto curto e quando eu alterei para numero ele não funcionou.
Onde pode estar acontecendo este erro.
Segue o código que utilize
i
Eu coloquei em meu projeto a função dlookup. em meu projeto, porem ele está funcionando porque na tabela "Tab_Cadastro" o campo "Id_CodProduto" esta como texto curto e quando eu alterei para numero ele não funcionou.
Onde pode estar acontecendo este erro.
Segue o código que utilize
i
- Código:
Private Sub Cod_Produto_Exit(Cancel As Integer)
'On Error Resume Next
Call AtualizaLista
Me.Lst_PedLcto.Enabled = True
Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto='" & Me.Cod_Produto & "'") (Esta linha que está funcionando
'Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "'")
Me.Fisico_Produto.SetFocus
If IsNull(DLookup("[Desc_Produto]", "tab_cadastro", "[Id_CodProduto]= Forms!Frm_Acerto!Cod_Produto")) Then
If MsgBox("Código não encontrado! Deseja Cadastrar produto", vbYesNo) = vbYes Then
Me.Cod_Produto = ""
DoCmd.OpenForm "Frm_CadProduto"
Else
'Me.Cod_Produto.SetFocus
'Me.Cod_Produto = ""
Exit Sub
'Me.Saida_Produto.Enabled = False
'Me.Obs_Mvto.Enabled = False
'Me.Cbo_Responsavel.Enabled = False
End If
End If
'Me.Fisico_Produto.Enabled = True
'Me.Fisico_Produto.SetFocus
End Sub
