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
Rispondi quotando
