Newsgroup: it.comp.appl.access
Titolo: Controllo numero doppio.

Salve a tutto il NG,
Il codice che vi riporto funziona benissimo per il controllo dei nomi doppi,
ora però mi serve per effettuare un controllo sui numeri di cartella clinica
doppi.
Il numero di cartella clinica è contenuto in una sottomaschera che a sua
volta è presente in una Form, ma come provo a dargli 'qualsiasi' numero
compare un messaggio di errore che recita ' Tipi di dati non corrispondenti
nell'espressione criterio'.
Perchè fa così????
Private Sub n_reg_gen_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[n_reg_gen]", "tab CARTELLA CLINICA", "[n_reg_gen]=
'" & Me![n_reg_gen] & "'"))) Then
MsgBox "----> ATTENZIONE!!!  Il numero di cartella esiste già in archivio.
Verifica i DUPLICATI."
Cancel = True
Me![cognome].Undo
End If
End Sub
Grazie mille per l'aiuto.
Ciao Rita

Ciao Rita

 "[n_reg_gen]= '" & Me![n_reg_gen] & "'"))) Then
prima di tutto metti tra parentesi quadre i nomi di tabella o campo che
contengono spazi:
If (Not IsNull(DLookup(("[n_reg_gen]"), "[tab CARTELLA CLINICA]",
Sib


Se il campo n_reg_gen è di tipo numerico, prova a scrivere:
If (Not IsNull(DLookup(("[n_reg_gen]"), "tab CARTELLA CLINICA",
"[n_reg_gen]= " & Me![n_reg_gen]))) Then
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:W4cz8.31604$8D3.8...@news1.tin.it...

Grazie Sib, eseguo subito.
Ciao Rita

 ha scritto nel messaggio
news:d8cz8.112254$SR5.2...@twister1.libero.it...

Sì Roberto, il campo è di tipo numerico, cmq ora correggo subito.
Ciao Rita
P.S.: Roby tutto bene? Come stai?

 ha scritto nel messaggio
news:d8cz8.112254$SR5.2...@twister1.libero.it...

Roberto scusami, ho provato il codice, ma mi dà errore, selezionando la
parte "[n_reg_gen]=" mi dice: Errore di compilazione: previsto numero di
riga oppure di etichetta oppure istruzione oppure fine istruzione.
Che diavolo gli sarà andato storto?
Grazie ciao Rita

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:W4cz8.31604$8D3.8...@news1.tin.it...

Sib ho messo le parentesi quadre, ma mi dà errore ugualmente.
Ciao grazie
Rita

 ha scritto nel messaggio
news:Pbiz8.114367$SR5.2...@twister1.libero.it...

Alt! Funziona tutto, scusate ma sono io che pasticcio.
Roberto il codice funziona, mi dava errore perchè avevo spezzato la riga di
codice per andare accapo e quindi la compilazione si bloccava.
Solo che non capisco per quale motivo non mi cancelli il campo una volta
individuato il numero doppio.
L'ho provato tempo fa con i campi di testo e praticamente mi puliva il campo
ed ora non lo fa.
Misteri di Access o sono io che vaneggio.
Ciao Grazie
Rita


Contentiamoci, prima che venga di peggio. :-)
Ciao
Roberto

 Rita
Cancel = True
cancella l'evento, ovvero l'aggiornamento del controllo, e non il suo
contenito.
Quanto a
Me![cognome].Undo
spero che ora tu scriva invece
Me![n_reg_gen].Undo
per avere in quel controllo il valore che esso aveva prima
dell'aggiornamento.


 ha scritto nel messaggio
news:oViz8.114746$SR5.2...@twister1.libero.it...

Ok grazie Roberto, tutto a posto.
Ciao Rita