Boa Noite !Função DLookup Para Retornar se Produto já esta Cadastrado Não estou conseguindo com o Campo da Chave Primaria
com outros campos funciona perfeitamente se Alguem pudee ajudar agradeço eu já tentei de tudo ! éste é o Código meu Campo é Ref Chave Primaria
Private Sub NomeDoProduto_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Ref]", "Produtos Inserir", _
"[Ref] ='" & Me!Ref& "'"))) Then
MsgBox "O produto já está cadastrado no sistema..." & Ref.Text, _
vbInformation, "Atenção"
Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.
End If
End Sub
com outros campos funciona perfeitamente se Alguem pudee ajudar agradeço eu já tentei de tudo ! éste é o Código meu Campo é Ref Chave Primaria
Private Sub NomeDoProduto_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Ref]", "Produtos Inserir", _
"[Ref] ='" & Me!Ref& "'"))) Then
MsgBox "O produto já está cadastrado no sistema..." & Ref.Text, _
vbInformation, "Atenção"
Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.
End If
End Sub
Última edição por Nogaro513 em Seg 02 Dez 2013, 00:19, editado 1 vez(es)