Access - Evitar duplicados con VBA

Hola, recientemente he estado desarrollando un programa en ACCESS, el problema es que no se que código hay que agregar para que en el campo DNI salgo un MSGBOX diciendo que el registro está duplicado. Un saludo y gracias.

COn un Dlookup lo solucionas, en el evento despues de actualizar

Hola leo, ante todo darte las gracias por haberme dado una pista para resolver mi duda con este problema, lo que ocurre, que como podrás notar soy "novato" en la programación, he hecho lo que tu me has dicho, me he colocado en el editor de Visual BASIC, en el campo que yo tengo que es DNI y he introducido la instrucción, pero me dice que el argumento no es opcional, ¿Necesita una variable?, abajo te indico lo que he hecho:
Private Sub DNI_AfterUpdate()
Dim variable As Variant
DLookup ("DNI")
Else
MsgBox ("los datos no deberian repetirse")
End If
End Sub
Muchas gracias y perdona por molestarte.
Salu2

Hola leo, ante todo darte las gracias por haberme dado una pista para resolver mi duda con este problema, lo que ocurre, que como podrás notar soy "novato" en la programación, he hecho lo que tu me has dicho, me he colocado en el editor de Visual BASIC, en el campo que yo tengo que es DNI y he introducido la instrucción, pero me dice que el argumento no es opcional, ¿Necesita una variable?, abajo te indico lo que he hecho:
Private Sub DNI_AfterUpdate()
Dim variable As Variant
DLookup ("DNI")
Else
MsgBox ("los datos no deberian repetirse")
End If
End Sub
mi correo es : [email protected]
Muchas gracias y perdona por molestarte.
Salu2

DLookup ("[CampoDeLaTabla]", "NombredeLaTabla", "[NombreDelCampoAVerif] = " _
& Forms!FormularioActivo!NombreDelCampoQUeACtualizaste)
esa seria la sintaxis de la funcion

Hola Leo, a mi no me funciona me pone "se esperaba ="
y he escrito:
Private Sub NombreDelCampo_AfterUpdate()
Dim variable As Variant
DLookup ("[CampoDeLaTabla]", "NombredeLaTabla", "[NombreDelCampoAVerif] = " _
& Forms!FormularioActivo!NombreDelCampoQueACtualizaste)
Else
MsgBox ("los datos no deberian repetirse")
End If
End Sub

Si puedes ayudarme para averiguar el error.
Gracias

Buen día José probá con esto:
Fue escrito para un campo que se llama numerofactura de una tabla llamada facturaliquidaciones.
Esto debes ponerlo en el código del campo que vas a llenar en el evento BeforeUpdate.

Private Sub Nº_Factura_BeforeUpdate(Cancel As Integer)
Dim rst As DAO.Recordset, _
strSQL As String
strSQL = "SELECT [numerofactura] "
strSQL = strSQL & "FROM [facturaliquidaciones] "
strSQL = strSQL & "WHERE [numerofactura] ='" & Me.[Nº_Factura] & "'" ' Nº_Factura es el cuadro de texto del formulario
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
If Not rst.EOF And Not rst.BOF Then
MsgBox "ESTE REGISTRO YA FUE CARGADO", vbOKOnly + vbInformation, "ATENCION"
Me.Undo

End If
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If

End Sub

Espero que te sirva.

QUIQUE

Hola Quique, buenas tardes

Gracias por contestar,
Me sale error "3464 en tiempo de ejecución, No coinciden los tipos de datso en la expresión"
Depurar
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Yo estoy haciendo esto en Access 2003 creo que no lo dije antes.

Gracias y saludos