[Resolvido]campo númerico

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", "tblClientes", _
"[Nome] ='" & Me!nome & "'"))) Then
MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If

esse código funciona em um campo texto, mas quero em um campo numérico , ele da erro, poderia me ajudar?

Olá

Dê uma estuda no tutorial abaixo que vc mesmo será capaz de responder.

Tutorial sobre filtragens

Bom estudo!

tente assim

Private Sub Nome_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[Nome]", "tblClientes", _
"[Nome] =" & Me!nome & ""))) Then
MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If

Private Sub numero_caso_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[numero_caso]", "tblClientes", _
"[numero_caso] ='" & Me!numero_caso & "'"))) Then
MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
Cancel = True 'cancela o evento.
Me!numero_caso.Undo 'desfaz a digitação.

End If
End Sub


ficou assim meu código, mas aparece a mensagem mesmo quando o registro é diferente no campo do form

Peguei o código do Harysohn
e adaptei, ficou assim:

Private Sub numero_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.numero.Value
stLinkCriteria = "numero= '" & Busca & "'"
If DCount("numero", "Registro", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção NUMERO já existe.", vbInformation
Cancel = True 'cancela o evento.
Me!nome.Undo 'desfaz a digitação.
End If
Set rsc = Nothing


Agradeço a todos .