Newsgroup: it.comp.appl.access
Titolo: Personalizzare messaggio come?

ciao, nella miatabella, ho una chiave primaria impostata su 4 campi:
- Cognome
- Nome
- DataNascita
- CittàNascita
quando cerco di duplicare l'indice, vorrei mi uscisse un messaggio da me
impostato e non quello predefinito.
saluti CF

 wrote in message
news:f_9H9.54729$
2B1.1...@twister2.libero.it

Intercetta l'errore con ON ERROR GOTO......!
Lo gestisci generando il tuo messaggio e annullando 
il tentativo di Duplicazione.....!!
P.S. non avevi il CodiceFiscale da utilizzare come ChiavePrimaria
invece che utilizzare 4 campi.......!! E' per definizione UNIVOCA.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:ff2047ee59325cda0d...@mygate.mailgate.org...

Mi hai dato un'idea, tanto viene generato dai quattro campi! o no??
A domani, che intanto cambio tutto.
cia CF

 cia CF
NOOOOOO.....!!!
Viene si generato dai campi in questione, ma non con i programmi
che trovi in giro.
Viene generato dalla FINANZA, che gestisce con algoritmi speciali
pescando dal DB completo i Dupplicati...............!!
Quello che fanno i programmi in giro, non possono fare altro che
EVENTUALMENTE verificarne l'attendibilità.....!!!
Saluti..!


il tentativo di Duplicazione.....!!
Scusa Alex su che evento : ho provato ad intercettare l'errore , ma
esce sempre fuori il messaggio di Access.
Ho provato su Before Update (mi sembrava il più logico ) su After
update , su modifica ....  .
ARAAARgh.
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)

 (Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)
Ciao Fabrizio...!
Che EVENTO....??
Se usi A2K forse si può provare OnDirty....!!!
Altrimenti c'è levento OnError di FORM.....!!!
Private Sub Form_Error(DataErr As Integer, Response As Integer)
   Response=acDataErrContinue
   If dataerr=TuoCodiceInteger then MsgBox "Haiiiiiiii...." 
End Sub
Restituisce il numero dell'errore, e l'azione da fare....!
Ciao.
@Alex


End Sub
Mi dice "blocco if senza end if " (sigh) come mai ? Ignurant. :))
Facezie a parte , questo evento non lo conoscevo , così pure il resto
: io tentavo di fare tutto col gestore di errore ( on error goto ... )
su before update ; tra l'altro avevo già provato ad usarlo su dirty ,
ma avevo lo stesso problema.
Grazie mille Alex.
p.s. do il codice per completezza:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue
   If DataErr = 3022 Then
   MsgBox "Se son rose fioriranno ....."
   End If
End Sub


 (Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)
Prova ad invertire l'ordine....!!
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3022 Then MsgBox "Se son rose fioriranno ....."
    Response = acDataErrContinue
End Sub
Ciao.
@Alex.


End Sub
Ho capito il senso della correzione che mi hai fatto avendo visto le
variabili locali in fase di debug.
Purtroppo ho i soliti problemi con la guida in linea e faccio una
fatica tremenda a ritrovare i giusti riferimenti , cosě ti chiedo:
1. DataErr contiene l'Err.Number , is it correct ?
2. Response deve darmi il messaggio se č 1 se č 0 no ?
    no non mi convince cosě come l'ho messa giů , mi puoi aiutare ?
Scusa ma sono a pag . 150 del mio manuale :-))))
Ho visto 


    no non mi convince cosě come l'ho messa giů , mi puoi aiutare ?
Messa giů cosě si capisce un'altra cosa: il messaggio di errore di
Access e non quello di msgbox messo da me.


 ha scritto nel messaggio
news:fda63822c7d1a7b49c...@mygate.mailgate.org...

...OnDirty...  Come si traduce in Italiano??
Per il resto addirittura, se tento di duplicare l'indice, oltre che non mi
restituisce alcun messaggio di errore, mi si pianta sullo stesso record.
saluti CF

 saluti CF
Usa OnERROR----> Su Errore ( di Form ).
@Alex.


 @Alex.
ho provato e..(come sopra)




Che non molli il record mi sembra ovvio non potendolo salvare ( rimane
la matitina tanto per intenderci), che non vada bene il codice
suggerito da Alex mi sembra molto curioso.
*********************************************************************************
Private Sub Form_Error(DataErr As Integer, Response As Integer)
'Codice di @Alex in it.comp.appl.access
   If DataErr = 3022 Then
   MsgBox "Se son rose , fioriranno ...."
   Response = acDataErrContinue
   End If
End Sub
*********************************************************************************
Giuro che l'ho provato anche su chiavi composte e funziona benissimo.



Ti credo anche senza giurare, siamo uomini d'onore e quindi basta la
parola!! o meglio il testo.
TUTTO PERFETTO !!! Con un NEO (maligno direi)
Sul tentativo di immissione di un'indice esistente, mi esce il messaggio ma:
Se stavo inserendo il paziente numero (del contatore) 44, e vado a
convalidare l'OK del msg Box "Se son rose fioriranno..." quando ritorno alla
maschera di immissione nuovo paziente, il contatore mi parte dal numero 45.
Quindi il record è stato MANGIATO. Come fare per evitare ciò.
Grazie per quello che hai già fatto, e per quello che farai.
CF

CF
O povero me che responsabilità mi metti sulle spalle. ;-)


 Ciao. Fabrizio.
Già da tempo utilizzo questo tipo di contatore ( che potrebbe risolvere i
problemi sopra citati) solo che mi reswtituisce il valore in questo formato
A02-234, che per un IDPaziente non mi sta bene perchè A02- è di troppo.
Potremmo eliminarli.
="A" & Format(Date();"aa") & "-" &
Format(IIf(IsNull(DMax("ID_Fattura";"Tb_Fatture";"ID_Fattura like 'A" &
Format(Date();"aa") &
"-???'"));1;Right(DMax("ID_Fattura";"Tb_Fatture";"ID_Fattura like 'A" &
Format(Date();"aa") & "-???'");3)+1);"000")
Naturalmente, baciamo le mani a vossia!!
CF

Format(Date();"aa") & "-???'");3)+1);"000")
E' quello di Sib ma non mi sembra adatto , dovrebbe esserci qlc sul
sito comune nella sezione tables , dove parla di ID: prova a guardare.
Cmq don Cataldo , magari c'è qlc altra soluzione oltre alla creazione
di un contatore : io lo buttata lì.
Magari si potrebbe intercettare l'uscita del record e obbligare
l'utente a rimanere sul record: è un altra che butto.
Così su due piedi però , mi piace di più l'idea del contatore
personalizzato.
Scusa , ma sono in piena fase "creativa" ( c'ho da lavurà) e non
riesco a mettermici molto.
Cmq visto che un contatore personalizzato serve anche a me , magari ci
ritorno su.



Mi sa che lo propongo come quesito sul NG, ti raccomando seguilo!!
Ciao CF