Vorrei sapere dove sia l errore nel codice che ho scritto...

Il problema è l evitare l inserimento di record doppi durante la scrittura di una maschera.
Al momento impostando l opzione di non ammissione duplicati nel DB,e salvando il file subito dopo l immissione,appare il messaggio di errore generico ma vorrei sostiturilo con una MsgBox magari con un testo "nome gia esistente"

Ovviamente questa è la soluzione piu complicata possibile lo immagino

Per chiarezza nella tabella contatti del DB c è un campo email come chiave primaria

Lo scenario sarebbe,che nell aggiunta di un nuovo utente, non appena si inserisce l email (chiave primaria) il db controlla se gia presente e restituisce un errore in caso positivo

Tutto in teoria dato che non funziona dandomi errore sempre e cmq "-.-

Grazie infinite

Private Sub Email_BeforeUpdate()

Dim dbs As Database
Dim tab_Contatti As Recordset
Dim UtenteRicercato As String
Dim UtenteDaConfrontare As String

Set dbs = CurrentDb
Set tab_Contatti = dbs.OpenRecordset("Contatti")
Set CampoUtenteContatti = tab_Contatti.Fields("Email")

UtenteDaConfrontare = Email (<-questo è il valore che legge dalla maschera di input utente)

UtenteRicercato = CampoUtenteContatti.Value

While (Not tab_Contatti.EOF)
UtenteDaConfrontare = CampoUtenteContatti.Value
If UtenteRicercato = UtenteDaConfrontare Then
MsgBox "Utente già inserito"
End
Else
tab_Contatti.MoveNext
End If
Wend