Newsgroup: it.comp.appl.access
Titolo: controllo per doppio iserimento...

ciaoa tutti... in una maschera ho un campo
testo... anche se inserisco una serie
fissa di 8 numeri (un codice)
che vorrei che se venisse digitato un codice
uguale mi avverta che è doppio...
mi dite come posso fare ??
grazie...

 ha
scritto nel messaggio news:5Z7wb.137353$vO5.5...@twister1.libero.it...

Prego.....????
Non ho capito nulla...!
Ben risentito innanzitutto...!
@Alex.

 ha
scritto nel messaggio news:5Z7wb.137353$vO5.5...@twister1.libero.it...

Impostando i duplicati non ammessi in struttura  tabella per quel campo?
ciao

 Impostando i duplicati non ammessi in struttura  tabella per quel campo?
--------------
Ciao Andrea.. e  Alex...
arieccomi...
certo che mi sono spiegato da cane..;-))
cmq ero sotto l'effetto di overdose di stanchezza ...!!!
in sostanza come dice Andrea l'ho già fatto..
ma mi servirebbe un evento dopo aggiornamento
del controllo in maniera da non percorrere tutti
gli inserimenti della maschera e poi alla fine ricevere
l'avviso di Access...
spero mi sono spiegato meglio...
Ciao...

 ha scritto:

Prova con un dlookup su quel campo su l'evento beforeupdate del tuo
controllo.
In altre parole controllo con dlookup in quella tabella se in quel campo c'è
il valore che ho appena digita ma prima (appunnto:beforeupdate)
dell'aggiornamento del campo.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ciao...
Si.
Se intercetti l'Evento Before_Update del Controllo, questo espone la
possibilità
di annullarlo :
Private Sub NomeControllo_BeforeUpdate(Cancel As Integer)
    Dim retVal as variant
    Dim strMsg as string
    retVal=Dlookup("[NomeCampoTabella]","NomeTabella","[NomeCampoTabella]="
& chr(34) & Me.NomeCampo & chr(34))
    If not isNull(retVal) then
        strMsg=msgBox ("Inserimento già esistente,  procedo con
l'annullamento..?", vbInformation + vbOKCancel, "Attenzione"
        if strmsg=vbok then Cancel=True
    end if
End Sub
Ciao.
@Alex.

 End Sub
---------------->
provato ma mi dà un errore di compilazione...
End If senza blocco If...
Private Sub Cod_Reg_BeforeUpdate(Cancel As Integer)
  Dim retVal As Variant
    Dim strMsg As String
    retVal = DLookup("[Cod_Reg]", "Anagrafe", "[Cod_Reg]=" & Chr(34) &
Me.Cod_Reg & Chr(34))
    If Not IsNull(retVal) Then strMsg = MsgBox("Inserimento già
esistente,procedo con l 'annullamento..?", vbInformation + vbOKCancel,
"Attenzione")
        If strMsg = vbOK Then Cancel = True
End If
End Sub

 End Sub
Già, vedi cosa succede ad improvvisare....!!!
Private Sub Cod_Reg_BeforeUpdate(Cancel As Integer)
   Dim retVal As Variant
   Dim strMsg As String
   retVal = DLookup("[Cod_Reg]", "Anagrafe", "[Cod_Reg]=" & Chr(34) &
   Me.Cod_Reg & Chr(34))
   If  IsNull(retVal) Then exit sub
   MsgBox("Inserimento già esistente,procedo con l 'annullamento..?",
vbInformation , "Attenzione")
   Cancel = True
 End Sub
Ho semplificato perchè se è doppio ed è Chiave primaria Cancella per
forza...., ma ti avvisa.
Ciao
@Alex.

 forza...., ma ti avvisa.
--------------
scusami Alex.. ma l'errore di ora è:
errore di compilazione - errore di sintassi !!
evidenziando in blu la stringa del MsgBox..
---
riguardo la chiave primaria non lo era..
ma ho reso il campo Cod_reg chiave primaria..
Ciao..

 >    MsgBox("Inserimento già esistente,procedo con l 'annullamento..?",
vbInformation , "Attenzione")
MAssimiliano


...zzzoooo!
YES.
Ciao MA grazie per la correzione della svista...!
@ALex.

 Ciao MA grazie per la correzione della svista...!
------------------
ciao Alex..guarda che la stringa è tutta su una riga..
e cmq.. si evidenzia di rosso...
sia la stringa retVal   che Msgbox sono su una stessa riga....
-----------------------------------------
 Private Sub Cod_Reg_BeforeUpdate(Cancel As Integer)
   Dim retVal As Variant
   Dim strMsg As String
   retVal = DLookup("[Cod_Reg]", "Anagrafe", "[Cod_Reg]=" & Chr(34) &
Me.Cod_Reg & Chr(34))
   If IsNull(retVal) Then Exit Sub
   MsgBox("Inserimento già esistente,procedo con
l'annullamento..?",vbInformation , "Attenzione")
     Cancel = True
End Sub
----------------------------------
non potrebbe essere che la maschera ha come origine
Query1 ??
Ciao...

 ha
scritto nel messaggio news:yunxb.147046$vO5.5...@twister1.libero.it...

Beh....  questa è un'altra cosa, che centra ma devi essere tu a darci le
INFO corrette
e non parziali.....!
In ogni caso se qualche volta leggessi l'HELP, e no me ne volere per il
rimprovero, ma
vedresti che:
MsgBox non va usato con le Parentesi a meno di .....VEDI HELP....!
Nel tuo caso non servono le Parentesi.
Il DlookUp invece invece è corretto farlo su Anagrafe, ma non sapendo
cosa hai fatto con la Query1 non saprei cos'altro aggiungere....!!!
Ciao.
@Alex.

 cosa hai fatto con la Query1 non saprei cos'altro aggiungere....!!!
ora funziona egregiamente...
Ciao e '73 de ik0qdd...

 Ciao e '73 de ik0qdd...
Sei fortunato che è quasi Natale....!
Ciao.
 @Alex..!

 ha scritto nel messaggio
news:bq5ovr$5b2$1...@lacerta.tiscalinet.it...

------------------------
Ok... anche se manca poco + di un mese..!!
beh.. vuol dire che per gli aguri ti manderò
un QSL.... !!
Ciao...