Newsgroup: it.comp.appl.access
Titolo: Evento Not in List

Ho un po' riadattato il codice del sito comune di Roberto, uso A 00 e anche
guardandando un po' di vecchi messaggi.
Ho una form "Richiesta" con una casella combinata "Utente" che mi
restituisce il nome e cognome dell'utente ed ha come origine di riga una
query basata sulla chiave primaria della "TabUtente" (IDUtente colonna
nascosta, più le colonne Nome e Cognome).
Su Not in List della combinata ho inserito un messaggio, poi azzero il nuovo
dato, poi apro la Maschera "Utente" così posso inserire, digitando, i miei
dati e chiudere la maschera. Vorrei però che il nuovo nominativo fosse
visualizzato nella casella combinata che però non so come aggiornare se non
chiudendo e riaprendo la maschera di richiesta (una sorta di comando che
dica "Copia l'ultimo nominativo di TabUtente immesso nella combinata di
TabRichiesta che è aperta").
Come potrei fare ?
Secondo voi è giusta come soluzione ?
L'ideale sarebbe riadattare il codice del sito comune copiando direttamente
il "New Data" nei controlli Nome e Cognome ? Ma nel caso dei doppi nomi e
dei cognomi composti penso che sia un grande casino giusto ?
Di seguito vi posto il codice grazie mille a chi ha un po' di pazienza per
aiutarmi.
Antonio
CodUtente_NotInList(NewData As String, Response As Integer)
    Dim IntNuovo As Integer, strAvverti As String
    Dim IntFinestraMsg, strMessaggio As String
    Dim stDocName As String
    strAvverti = "Nominativo digitato non in elenco"
    strMessaggio = "Vuoi aprire la finestra ''Utenti'' per aggiungere" &
Chr(13) & Chr(10) & NewData & Chr(13) & Chr(10) & " e i suoi dati in
elenco?"
    IntFinestraMsg = vbYesNo + vbQuestion
    IntNuovo = MsgBox(strMessaggio, IntFinestraMsg, strAvverti)
    If IntNuovo = vbYes Then
    Me.CodUtente = 0
    stDocName = "Utente"
    DoCmd.OpenForm stDocName
    DoCmd.GoToRecord , , acNewRec
    Response = acDataErrContinue
    Else ecc ecc.


Forse intendi questo?:
'-------------
Private Sub nomeCasellaCombinata_NotInList(NewData As String, Response As
Integer)
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK
Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("nomeTabella")
    rst.AddNew
    rst!testo = NewData
    rst!ettari = 0
    rst.Update
    rst.Close
    Set rst = Nothing
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano
le modifiche.
    Response = acDataErrContinue
    Me!nomeCasellaCombinata.Undo
End If
'-------------
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -

 ha scritto nel messaggio
news:9tddqc$fmn$1...@pegasus.tiscalinet.it...

La differenza sostanziale tra la mia soluzione che trovi sul Sito Comune e
la tua soluzione è che io, per aggiornare la tabella, apro un recordset  in
una routine VBA a fronte dell'evento NotInList restando nella maschera che
contiene la casella combinata, invece tu apri e rendi rendi attiva un'altra
maschera.
La variabile figurativa NewData è utilizzabile solo all'interno della routin
di tale evento.
Ti consiglio pertanto di dichiararti nella maschera chiamante una casella di
testo non associata non visibile nella quale, prima di richiamare la
maschera di inserimento, memorizzi il contenuto della variabile NewData; a
fronte dell'evento "Su caricamento" della maschera di inserimento, copia il
valore della casella di testo non associata di cui sopra nel controllo della
maschera che deve contenere il nome ed il cognome. A fronte dell'evento "su
chiusura" della maschera di inserimento, ti consiglio di copiare il valore
IDUtente del record appena inserito nella casella combinata della maschera
chiamante e quindi eseguire un requery della casella combinata.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 valore della casella di testo non associata di cui sopra nel controllo
della
Io in questi casi sfrutto la proprietà OpenArgs della maschera che apro.
Ciao
Sib

 Sib
Troppo giusto!!
Ciao
Roberto

 Troppo giusto!!
Scusate ragazzi se non vi ho risposto subito ma è da due giorni che 
non riesco a scaricare i messaggi del newsgroup con outlook express 
ora ho adottato la soluzione provvisoria di un newsreader del cavolo 
!
Guardo la soluzione di roberto poi magari mi faccio vivo.
Grazie ancora
Antonio
-- 
News2000 1.5ß Version 
http://socket2000.8m.com

 Grazie ancora
Non e' che la mia fosse diversa da quella di Roberto, aggiungevo un piccolo
suggerimento che a Roberto in quel momento non era venuto in mente.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente