Access - item ya existe....que hago mal??

Hola...en mi form quiero que me salga un mensaje cuando introduzco un dato que ya esta grabado , pero el mensaje es solo por informacion no quiero restringir la tabla ,esto es lo que hago pero siempre me saca el mensaje de THAT´S OK para cualquier dato que ingreso...espero me haya hecho entender

Private Sub id_producto_AfterUpdate()
Dim mcad As String
Dim mrs As Variant
mcad = "select * from REGISTROS_JABONES where ([ID_PRODUCTO]) =([id_producto])"
Set mrs = CurrentDb.OpenRecordset(mcad)
If mrs.RecordCount > 1 Then
MsgBox "CODIGO REPETIDO"
Else
MsgBox "THAT´S OK"
End If

Puedes usar mejor la funcion Dcount o usar un select count para contar cuantos registros tienen el mismo codigo. Seria algo como

mcad = "select COUNT(*) from REGISTROS_JABONES where ([ID_PRODUCTO]) =([id_producto])"
Set mrs = CurrentDb.OpenRecordset(mcad)
If mrs.Fields(0) > 1 Then
...

Tu codigo esta fallando porque nesesitas hacer algo como
mrs.MoveLast
lngRecs = mrs.RecordCount
mrs.MoveFirst

Aunque el codigo que te di al principio es mas apropiado

Saludos
Yamil

My Friend , que pena sigue igual...tienes otra sugerencia ??

El codigo final te quedaria como :

Private Sub id_producto_AfterUpdate()
Dim mcad As String
Dim mrs As DAO.Recordset

mcad = "select COUNT(*) from REGISTROS_JABONES where
ID_PRODUCTO =" & Me.id_producto
Set mrs = CurrentDb.OpenRecordset(mcad)
If mrs.Fields(0) <> 0 then
MsgBox "CODIGO REPETIDO"
Else
MsgBox "THAT´S OK"
End If

o haces lo siguiente en una sola linea
varX = DLookup("ID_PRODUCTO","REGISTROS_JABONES ",
"ID_PRODUCTO =" & Me.id_producto

El codigo final te quedaria como :

Private Sub id_producto_AfterUpdate()
Dim mcad As String
Dim mrs As DAO.Recordset

mcad = "select COUNT(*) from REGISTROS_JABONES where
ID_PRODUCTO =" & Me.id_producto
Set mrs = CurrentDb.OpenRecordset(mcad)
If mrs.Fields(0) <> 0 then
MsgBox "CODIGO REPETIDO"
Else
MsgBox "THAT´S OK"
End If

o haces lo siguiente en una sola linea
varX = DLookup("ID_PRODUCTO","REGISTROS_JABONES ",
"ID_PRODUCTO =" & Me.id_producto )
if Not isNull(varX) Then
MsgBox" Ya existe"
Else
MsgBox "OK"
End If

No tengo como probarlo, pero puede funcionar

Private Sub id_producto_AfterUpdate()
Dim mcad As String
Dim mrs As Variant
mcad = "select * from REGISTROS_JABONES where ([ID_PRODUCTO]) =([id_producto])"
Set mrs = CurrentDb.OpenRecordset(mcad)
If not mrs.eof Then
MsgBox "CODIGO REPETIDO"
Else
MsgBox "THAT´S OK"
End If

If mrs.RecordCount > 0
Usa CERO al contar, no UNO
Un saludo
Victoria

no...asi tampoco es,creo que para todos los valores que ingreso esta devolviendo 1 pues cuando pongo mrs.recordcount>0 me saca \"CODIGO REPETIDO\" y cuando pongo mrs.recordcount>1 me saca
\"THAT´S OK\"
he cambiado el tipo de variable pero tampoco...que me sugieren ???

Sres.muchas gracias ...ahora si le dimos donde era con el Dlookup
Saludos
Mauricio Serna