[Resolvido]Avisar se já cadastrado

Bom dia!Estou usando o seguinte código para avisar se já esta cadastrado


Private Sub descrição_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[cod]", "tbl_produtos", _
"[cod] ='" & Me!descrição & "'"))) Then
MsgBox "O produto já está cadastrado no sistema..." & descrição.Text, _
vbInformation, "Atenção"
Cancel = True 'cancela o evento.
Me!cod.Undo 'desfaz a digitação.
End If
End Sub
o problema é se já esta cadastrado deveria desfazer a digitação,mas não o faz,e retorna para outro campo.
o nome do campo no form cod

Bom dia Alexandre...
Tente assim:


Private Sub descrição_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[cod]", "tbl_produtos", _
"[cod] ='" & Me!descrição & "'"))) Then
MsgBox "O produto já está cadastrado no sistema..." & descrição.Text, _
vbInformation, "Atenção"
Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.
End If
End Sub

Valeu Harysonh,funfou
abraços!

O Fórum agradece o Retorno.