Mensaje que me avise que el dato ya existe

Se puede utilizar la función DCount, si devuelve un cero = no existe, si devuelve un numero (el que sea, normalmente = 1) esta en la base el numero de veces que indique el numero.

IF DCount("*", "campo-de-la-tabla", "DatoXX= " & Dato-A-Verificar) Then Msfbox "El dato ya existe"

Otra alternativa (posiblemente la que ya se esta utilizando) es crear un índice sin repeticiones y el sistema devolverá un mensaje de error si se intenta repetir ese dato en ese conjunto.

DCount es una FUNCION y es de Access pero todas las funciones son simples comandos de acciones básicas que hay en todas partes y por lo tanto se pueden emular, la ventaja de las funciones es que se le aportan datos y devuelve un dato, una SQL devuelve el dato pero hay que utilizar recordset o argucias para poner el dato en el mismo lugar que la función.

¡Gracias!

Amigo si me sirve pero el amigo Julián me dio la solución más sencilla te agradezco por tu atención te mando un fuerte abrazo

Convendrías saber que debe hacer una vez hayas comprobado si existe. Por ejemplo, vamos a suponer que no quiero que se repita un valor de país.

Puedes ver que el cursor está todavía en el control País. Al pulsar Enter

Y al pulsar Aceptar el cursor se vuelve al control País para que lo cambies. En este caso, repito, en este caso, el código del evento Antes de Actualizar del control Pais es

Private Sub Pais_BeforeUpdate(Cancel As Integer)
If DCount("*", "clientes", "pais='" & Me.Pais & "'") >= 1 Then
MsgBox "Ese país ya existe", vbOKOnly, " Que lo sepas"
Cancel = True
End If
End Sub

Si el campo tiene una índice único puede validar con número de error 3022, sino utilice Dcount() como le explican, no obstante le recomiendo acostumbrarse hacerlo con SQL, porque cuando migre a un servidor de datos como MySQL o PostrgreSQL y las tablas no están vinculadas Dcount() no tendrá ningún efecto. Le dejo el código para capturar el error 3022

Private Sub algo_BeforeUpdate(Cancel As Integer)
On Error GoTo hay_error
 'Aqui va el código
hay_error_exit:
  Exit Sub
hay_error:
     If Err.Number = 3022 Then
        MsgBox "Ya existe el registro", vbCritical, "Error"
     Else
        MsgBox Err.Number & " " & Err.Description, vbCritical, "Error"
     End If
     Resume hay_error_exit
End Sub