Evitar registros duplicados mediante función

Depro. Entre que termino de prepararte tu BD, mira éste código porque será el que teincluya, para evitar Duplicados desde la entrada del Titulo.

‘En la Cabecera del Módulo asociado al Formulario. Fuera de cualquier Procedimiento o Función
Dim IntentosTITULO As Integer

Private Sub Form_Load()
On Error GoTo Form_Load_TratamientoErrores

IntentosTITULO = 0

Form_Load_Salir:
On Error GoTo 0
Exit Sub
Form_Load_TratamientoErrores:
MsgBox "Error " & Err.Number & " en Procedimiento.: Form_Load de Documento VBA: Form_Clientes (" & Err.Description & ")"
Resume Form_Load_Salir
End Sub

Private Sub TITULO_BeforeUpdate(Cancel As Integer)
On Error GoTo TITULO_BeforeUpdate_Err

If (Eval("DLookUp(""[TITULO]"",""[LIBROS]"",""[TITULO] = Form.[TITULO] "") Is Not Null")) Then
'Si el valor de TITULO no es único, muestra un mensaje.
Beep
MsgBox "El TITULO que has introducido ya existe." & vbCrLf & "Introduce uno que sea Unico.", vbCritical, "TITULO DE LIBRO YA EXISTE"
IntentosTITULO = IntentosTITULO + 1

Call CuentaIntentos ' Para permitir solo tres Intentos
'Vuelve al control TITULO.
DoCmd.CancelEvent
End If

TITULO_BeforeUpdate_Exit:
Exit Sub
TITULO_BeforeUpdate_Err:
MsgBox Error$
Resume TITULO_BeforeUpdate_Exit
End Sub

Function CuentaIntentos()

If IntentosTITULO = 3 Then
MsgBox "Llevas tres Intentos sin exito." & vbCrLf & "El Formulario se cerrará", vbCritical, "MUCHOS INTENTOS"
DoCmd.Close acForm, "NombreDeTuFormulario"
End If
End Function

Mis saludos >> Jacinto

Hola Jacinto

El problema que veo es que si solo nos basamos en el titulo del libro, cabe la posibilidad que sin ser duplicados haya varios libros con el mismo título pero de distinto autor, editorial o incluso puede haber dos titulos iguales del mismo autor, editorial, etc. pero uno es el volumen 1  y el otro es el Volumen 2 (campo Tomo_Volumen). O sea que habría 2 titulos iguales pero serían diferentes registros.

Para evitar esto...¿Podría ampliarse el testeo de si es duplicado no solo al campo título sino que incluyera otros campos como "autor", "editorial", "tomo_volumen" y "año"?

O bien que se comprobarán todos los campos excepto el IDLIBRO (que como es clave ppal siempre es única) y cuando hubiera rellenado todo el registro en "antes de actualizar" me avisara, ... pero claro eso implica estar un buen rato rellenando el reg. para luego arriesgarte a que sea un duplicado.

Creo, no sé qué piensas que tal vez sea mejor usar la función comprobando más campos como te comenté antes, pero no todos:

TITULO, AUTOR, EDITORIAL, TOMO_VOLUMEN, AÑO

si éstos están duplicados es que el registro es un duplicado.

Ya me cuentas

Un saludo y muchas gracias por la ayuda

Rafael: Esto serán dos paellas, pero si eres especialista bienvenidas sean.

Tendré que hacer algún ensayo antes de mandarte un código improvisado que te pueda causar problemas. Me parece buena idea asegurar que no hay duplicidad, sondeando más de un Campo. Mis saludos >> Jacinto

Hola Jacinto

Dos paellas, fideuá de Gandía y arroz al horno de Xátiva como mínimo... :-)

Si necesitas algún dato más sobre el formulario o los campos me dices.

Muchas gracias

Hola Jacinto

Cuando puedas, en relación a esta pregunta de "evitar registros duplicados mediante función"... quedó pendiente ampliar la función para sondear más de un campo (ver respuestas del 9 de Enero, una mía y una tuya).

Un saludo y gracias por todo