[ACCESS] evitare inserimento duplicati

[gibra]

Oltre alla regola 10. Formatta il codice sorgente: ..........

[LeleFT]

Come richiesto, sposto nel forum "Database" (ho anche corretto il titolo).


Ciao.

[optime]

aggiungo, sempre dal regolamento di Database

In questo forum NON si parla di alcune funzionalità peculiari di Microsoft Access (macro, maschere, report, etc) che continueranno ad essere trattate nel forum "Windows e software"

fate voi...

[Misterxxx]

buongiorno, avrei bisogno di un aiuto.. ho creato un database dove ad un campo voglio aggiungere il controllo che impedisca l'inserimento di un valore duplicato. Voglio però che il controllo venga fatto subito dopo l'inserimento del dato e non al salvataggio del record (cosa che succede impostando l'indicizzazione del campo).
In un altro database che avevo fatto con un collega (che era più esperto di me), avevo un codice che mi permetteva di farlo, sto provando ad adeguarlo al nuovo database ma continua a darmi errore di sintassi e vista la mia scarsissima conoscenza di vba non riesco a trovare l'errore...

considerando che il nome del campo a cui voglio applicare il controllo è "n°_verbale" (sia in maschera che in tabella) e la maschera si chiama "verbale" il codice che ho inserito è il seguente:

Private Sub n°_verbale_BeforeUpdate(Cancel As Integer)


If Not IsNull(DLookup(n°_verbale, verbale, _
n°_verbale = & Chr$(34) & Me!n°_verbale & Chr$(34))) _
And Me!n°_verbale <> Nz(Me!n°_verbale.OldValue) Then


MsgBox Me!n°_verbale & " Già esiste.", vbOKOnly, "Duplicato!"
Cancel = True


End If

posso chiedere il vostro aiuto?
grazie

è errata la formattazione della funzione dlookup
mi pare ..
che errore esce?

[rorofre]

grazie
mi esce
errore di compilazione
errore di sintassi

Cattura.JPG

[Misterxxx]

l'argomento criterio della funzione dlookup è una variabile stringa quindi le apici (che potresti usare al posto di ASCII) sono sbagliate:

If Not IsNull(DLookup(n°_verbale, verbale, _
Chr$(34) & n°_verbale = & Chr$(34) & Me!n°_verbale)) _
And Me!n°_verbale <> Nz(Me!n°_verbale.OldValue) Then

il rifermento Me! nell'ambito della stessa maschera è superfluo, più semplicemente potrebbe (dovrebbe ..) essere:

If Not IsNull(DLookup(n°_verbale, verbale, _
"n°_verbale =" & n°_verbale)) _
And n°_verbale <> Nz(n°_verbale.OldValue) Then

[rorofre]

grazie mille per l'aiuto!!! ma soprattutto per la spiegazione!
ho provato ad effettuare le modifiche da te indicate, ma mi da questo errore
mesaggio errore e debug.jpg

grazie ancora per l'aiuto

[Misterxxx]

schermo piccolo, vedo piccolo
non avevo notato anche gli altri argomenti, sono tutti stringhe

If Not IsNull(DLookup("n°_verbale", "verbale", _
"n°_verbale =" & n°_verbale)) _
And n°_verbale <> Nz(n°_verbale.OldValue) Then

https://support.office.com/it-it/art...b-bed10dca5937

[rorofre]

grazie mille
ora ci provo a ci ragiono
grazie ancora