Newsgroup: it.comp.appl.access
Titolo: Evento "Non in elenco"

Nel mio Database ho una tabella [Progetti] correlata tramite il campo  
[Comune] alla tabella [Comuni].
Inserisco i dati tramite una maschera in cui c'e' una casella combinata  
che mi fa scegliere il comune tra quelli già presenti nella tabella Comuni
Per fare in modo di poter inserire voci nuove nell'elenco dei comuni ho  
fatto riferimento alla guida ed ho utilizzato questo script (ovviamente  
corretto)
Private Sub Comune_NotInList(NewData As String, Response As Integer)
     Dim ctl As Control
     ' Return Control object that points to combo box.
     Set ctl = Me!Comune
     ' Prompt user to verify they wish to add new value.
     If MsgBox("Value is not in list. Add it?", _
          vbOKCancel) = vbOK Then
         ' Set Response argument to indicate that data
         ' is being added.
         Response = acDataErrAdded
         ' Add string in NewData argument to row source.
         ctl.RowSource = ctl.RowSource & ";" & NewData
     Else
     ' If user chooses Cancel, suppress error message
     ' and undo changes.
         Response = acDataErrContinue
         ctl.Undo
     End If
End Sub
Copiato pari pari dalla guida in linea.
Il problema è che mi genera un errore nel momento in cui cerca di  
concatenare NewData al RowSource perche', essendo la casella combinata  
collegata ad una tabella e non ad un elenco valori, non mi permette di  
aggiungere niente alla query presente come OrigineRiga
(SELECT Comuni.Comune FROM Comuni ORDER BY Comuni.Comune;)
(l'errore in pratica me lo da' perche' non si puo' scrivere nulla dopo il  
; della query)
Come posso aggirare il problema? Ho sbagliato totalmente strada?
P.S.: [OT]Perche' deve essere cosi' complicato aggiungere i dati ad una  
ComboBox?
-- 
...oooOOO Nitro 82282 OOOooo...

 ha scritto nel messaggio news:op.szpxz9wctxn9rc@magazzino...

Prova con questo esempio:
'---
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 DAO.Recordset
    Set rst = CurrentDb.openrecordset("Comuni")
    rst.AddNew
    rst!Comune = NewData
    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!Comune.Undo
End If
Ciao.
P.S. Se non si studia il VBA è sempre difficile fare qualsiasi cosa...
-- 
Sergio MAZZA 

 collegata ad una tabella e non ad un elenco valori, non mi permette di
per' ogni tanto un giretto su :
http://groups.google.it/group/it.comp.appl.access?hl=it
prima di richiedere cose trite e ritrite
e' sempre d'obbligo, qui come in qualsiasi
altro newsgroup.
Risparmi tempo e byte ed hai 300 risposte immediate
(e non si fa la figura del niubbio)
bye :o)

 bye :o)
In realta' ho cercato altri post in cui si parlava del "non in elenco", ma  
a causa del poco tempo a disposizione non ne ho trovati, cosi' ho postato  
io (pur avendo la forte sensazione che questo fosse un problema abbastanza  
datato). Per quanto riguarda la figura del niubbio, non c'e' problema,  
fossi esperto non starei a chiedere, no? ;)


 P.S. Se non si studia il VBA è sempre difficile fare qualsiasi cosa...
Sto studiando, sto studiando...
(ho scaricato una guida sul VBA per Ac97, anche se uso il 2003 non  
dovrebbero esserci grossi problemi, no?)


 wrote in message
news:op.szp05lxctxn9rc@magazzino

Visto che tu non hai molto tempo, hai fatto benissimo a postare
la domanda nel NG dove noi tutti non abbiamo nulla da fare....!!!!
Mah..................
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ...oooOOO Nitro 82282 OOOooo...
Non trovi però le novità; qui (
http://msdn.microsoft.com/office/downloads/vba/default.aspx
) non hai più scuse per non studiare...
Ciao.
-- 
Sergio MAZZA 

 @Alex
Hi! Hi! Della serie: Ogni riferimento a fatti o persone è puramente casuale...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Persone..... Fatti sicuramente, ma casuali proprio no...! ;-)
E' qualche giorno che cazzeggio molto, ma non è colpa mia
sto aspettando le ferie, ed il conto alla rovescia mi innervosisce...!


 @Alex
LE FERIEEE??
Ma parlano tanto male dei Romani e... E... E bravo!
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Si, meritate ferie, caspita ho 75 giorni di ferie
all'anno devo pur farle prima o poi, e pensare che
quando sono stanco mi metto in malattia per non consumarle.
Così facendo tra malattia e ferie riesco a lavorare Marzo, Aprile
e Settembre.
;-)
Quando torno ti dico dove sono andato....!
E' un posto caldo 4° sopra l'equatore.


 non hai più scuse per non studiare...
Sono troppo allenato per non trovare scuse ;)
