Newsgroup: it.comp.appl.access
Titolo: Aiuto...!!!

Ciao a tutti,
ho un problema che sicuramente per voi sarą piuttosto banale
ma a me crea tanti problemi.
Ho creato una tabella con IDDESCRIZIONE (chiave primaria) e DESCRIZIONE (campo
testo). Sulla base di questa tabella ho creato una maschera nella quale vi č
una combo all'interno della quale č visualizzata la DESCRIZIONE.
Come posso aggiungere nuovi dati nella combo direttamente dalla maschera e
quindi memorizzati nella tabella e visualizzati immediatamente ?
Spero di essere stato chiaro!!
Ciao 
-- 
Posted from  [213.82.208.89] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:fad81a3634226e39fd7...@mygate.mailgate.org...

Ciao, se vai sul sitocomune trovi un esempio che fa proprio al caso tuo.
Ciao Christian
www.sitocomune.com

Non tanto !!



Ti riporto cosa dice l'help:
'---------------------
Evento NonInElenco - Esempio di routine evento
Nell'esempio riportato di seguito si utilizza l'evento NonInElenco per
aggiungere una voce a una casella combinata.
Per provare l'esempio, creare in una maschera una casella combinata chiamata
Colori. Impostare a Sì la proprietà Solo in elenco della casella combinata.
Per riempire la casella combinata, impostarne la relativa proprietà Tipo
origine riga a Elenco valori e fornire un elenco di valori separati da punti
e virgola come impostazione della proprietà Origine riga. È possibile ad
esempio fornire i valori seguenti come impostazione di questa proprietà:
Rosso; Verde; Blu.
Aggiungere quindi la routine evento riportata di seguito alla maschera.
Passare alla visualizzazione Maschera e immettere un nuovo valore nella
parte testo della casella combinata.
Private Sub Colori_NotInList(NewData As String, _
        Response As Integer)
    Dim ctl As Control
    ' Restituisce l'oggetto Control che fa riferimento alla casella
combinata.
    Set ctl = Me!Colori
    ' Richiede di verificare se si desidera aggiungere un nuovo valore.
    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.
        ctl.RowSource = ctl.RowSource & ";" & NewData
    Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore
    ' e si annullano le modifiche.
        Response = acDataErrContinue
        ctl.Undo
    End If
End Sub
Nota   L'esempio riportato sopra aggiunge una voce a una casella combinata
non associata. Quando si aggiunge una voce a una casella combinata
associata, si aggiunge un valore a un campo dell'origine dati sottostante.
Nella maggior parte dei casi, non è possibile aggiungere semplicemente un
campo in un nuovo record. Secondo la struttura dei dati contenuti nella
tabella, è probabilmente necessario aggiungere uno o più campi per
soddisfare le richieste dei dati. È necessario ad esempio che il nuovo
record includa i valori per qualsiasi campo che comprende la chiave
primaria. Se è necessario aggiungere voci in modo dinamico a una casella
combinata associata, è necessario richiedere all'utente di immettere i dati
per tutti i campi richiesti, salvare il nuovo record e quindi rieseguire la
query sulla casella combinata per visualizzare il nuovo valore.
'--------------
E' proprio sull'ultima parte che devi focalizzare l'attenzione...
Ciao.