Newsgroup: it.comp.appl.access
Titolo: caselle combinate evento non in elenco

C'č un modo per in serire dei dati nella tabella di origine della casella
combinata se non presente nell'elenco, procedura sfruttabile per piů caselle
combinate da mettere in un modulo ? Avendo, la casella combinata1
su non in elenco, richiamo la procedura e inserisco i dati dalla form1 nella
tabella1 in relazione con tabellaA1(con elenco da aggiornare), la casella
combinata2 su non in elenco, richiamo la procedura e inserisco i dati dalla
form2 nella tabella2 in relazione con tabellaA2....
grazie

 ha scritto nel messaggio
news:2rkm5dF...@uni-berlin.de...

Vai sul SitoComune e trovi un DEMO di Roberto realizzato
proprio per questa esigenza.
    [SEZIONE]    Forms
        "Si puň aggiungere un record alla tabella che č origine riga di una
casella combinata senza usare una maschera?"
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 wrote in message
news:cj38tk$u8v$1...@lacerta.tiscalinet.it...

La procedura č bellissima, ma comunque si deve inserire in ogni casella
combinata ( MiaCombo). Mi chiedevo se si poteva averla unica e richiamabile
come una funzione per l'intero progetto.
Ciao

 ha scritto nel messaggio
news:2rkpccF...@uni-berlin.de...

Dipende se l'origine dati(Tabella e Campo) sono sempre
gli stessi direi di si, altrimenti si puň in ogni caso, ma
diventa un pň piů macchinoso.......!
Devi solo fare alcune modifiche e mettere la Funzione in un
Modulo dichiarandola Public.
In ogni caso l'EVENTO NOT_INLIST conviene farlo
generare e gestirlo poi in questo modo:
'//    Chiamandola dalla Combo1
Private Sub MiaCombo1_NotInList(NewData As String, Response As Integer)
    Response = NomeFunction(NewData, me.MiaCombo1)
End Sub
'//    Chiamandola dalla Combo2
Private Sub MiaCombo2_NotInList(NewData As String, Response As Integer)
    Response = NomeFunction(NewData, me.MiaCombo2)
End Sub
'/    In un
Modulo------------------------------------------------------------------
Public AddNewItem(byval NewData, ctl as Access.Control) as Integer
 Dim IntNuovo As Integer, strTitolo As String
   Dim IntFinestraMsg As Integer, strMsg As String
   strTitolo = "Prodotto digitato non in elenco"
   strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) &
Chr(10) & "in elenco?"
   IntFinestraMsg = vbYesNo + vbQuestion
   IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
   If IntNuovo = vbYes Then
       Dim miorst As Recordset
       Set miorst = CurrentDb.OpenRecordset("Prodotti")
       miorst.AddNew
       miorst!Prodotto = NewData
       ctl  = miorst![IdProdotto]
       miorst.Update
       miorst.Close
       strTitolo = "Inserimento nuovo Prodotto in elenco"
       strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
       IntFinestraMsg = vbOKOnly + vbExclamation
       IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
       AddNewItem= acDataErrAdded
       ctl .Requery
   Else
       strTitolo = "Nome del prodotto errato"
       strMsg = NewData & " non č in elenco." & Chr(13) & Chr(10) &
"Seleziona un prodotto dall'elenco"
       IntFinestraMsg = vbOKOnly + vbExclamation
       IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
       AddNewItem= acDataErrContinue
       ctl .Undo
    End If
End Function
Spero non mi sia sfuggito nulla perchč non l'ho provata, quindi se trovi
qualche
mancanza implementala pure tu, la strada č questa.....!
Ciao
-- 
@Alex (Alessandro Baraldi)
