Campo repetidos en ACCESS (Visual Basix 6.0)

[kip13]

Hola que tal mundo...

Estoy aqui porque quiero que me ayuden en la codificacion o q me de una guia, tengo una base de datos en ACCESS enlazada a Visual, es un Data1 y quisera que al momento de ingresar el ID (un numero q identifica a la persona) este si se repite me salga algun mensaje, pues se supone q estos deben ser unicos....

Bueno eso es lo unco que pido

Saludos y Gracias a los q leen..!!

[zxs23]

Puedes capturar el error que te da al ingresar la clave primaria duplicada, ahorita no tengo el numero de dicho error pero puedes ingresar una clave duplicada y ahi te sale, te dejo el codigo, espero te funcione.

Código:

On Error GoTo VerError

'Tu codigo de insercion

Exit Sub

VerError:
    If Err.Number = -2147467259 Then
       MsgBox "No se puede ingresar clave duplicada", vbCritical, "Información"
    Else
       MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical
    End If
End Sub