Casella combinata che faccia aggiornare i dati nella tabella adeguata
SimoneB
tabella. Nella tabella, e in maschera, è presente un campo IdCliente
relazionato con una tabella dal nome Cliente. Quando attraverso la maschera
inserisco un cliente nuovo questo non mi viene inserito automaticamente ed
access mi visualizza una finestra di errore. Andando sull'evento "Non in
elenco" della casella di testo IdCliente ho pensato, con una macro, di farmi
aprire la maschera Cliente in modo tale da poter aggiornare tale tabella
senza dover premere nessun pulsante o cose di questo genere. Solo che
uscendo da tale maschera non mi aggiorna in automatico la casella di testo
IdCliente. Mi hanno detto di impostare il seguente codice...
If MsgBox("questo cliente non esite", vbYesNo + vbQuestion) = vbYes Then
Me!IdCliente.RowSource = Me!IdCliente.RowSource & ";" & Chr(34) &
NewData & Chr(34)
Response = acDataErrAdded
Else
Me.Undo
Response = acDataErrContinue
End If
Ma non capisco dove metterlo mi sapreste dire dove impostarlo?
Grazie e saluti SimoneB
Fabrizio
"SimoneB" <dklf...@khkhk.it> ha scritto nel messaggio
news:436637d7$0$20489$4faf...@reader4.news.tin.it...
visto uno simile, lo devi impostare sull'evento after_update() della casella
combinata.
p.s Se riesco a trovare i miei appunti ti posto il codice in vba esatto!!!!
ciao
Enrico T.S.
"SimoneB" <dklf...@khkhk.it> ha scritto nel messaggio
news:436637d7$0$20489$4faf...@reader4.news.tin.it...
devi inserire la chiamata alla form di inserimento Cliente nell'evento
su non inelenco ma non con una macro bensi con del codice dove metterai:
Private Sub TuaComboBox_NotInList(NewData As String, Response As Integer)
If MsgBox("questo cliente non esite. Inserire ?", vbYesNo + vbQuestion) =
vbYes Then
docmd.openform "NomeTuoForm", acNormal, , , acFormAdd, acDialog
Response = acDataErrAdded
Else
Me.Undo
Response = acDataErrContinue
End If
End Sub
bye :o)
Sandro
"SimoneB" <dklf...@khkhk.it> ha scritto nel messaggio
news:436637d7$0$20489$4faf...@reader4.news.tin.it...
Ciao SimoneB,
il mio OL non mi ha scaricato la tua reply, ma se rileggi bene c'era scritto
sull'evento not in list :
il che vuole dire che dalla modalità struttura della maschera clicchi la tua
Combo, proprietà--> elenco--> copi il codice su non in elenco. Fai
attenzione ad adattare il nome dei controlli a quelli dell'esempio
altrimenti non ottieni il risultato voluto.
ciao, Sandro.
Sandro
> > Grazie e saluti SimoneB
> Se è giusto come codice ho i miei dubbi,
why not ? l'hai provato ?
[cut]
ciao, Sandro
Sandro
"SimoneB" <dklf...@khkhk.it> ha scritto nel messaggio
news:436637d7$0$20489$4faf...@reader4.news.tin.it...
prova a vedere anche questa:
3.39 Si può aggiungere un record alla tabella che è origine riga di una
casella combinata senza usare una maschera? del SC
4.13 Casella combinata - Aggiungere un nuovo record del sito di Karl
prova pure questo :
Dim db As DAO.Database
Dim rst As DAO.Recordset
If MsgBox("Il cliente non esiste lo vuoi aggiungere", vbYesNo +
vbQuestion) = vbYes Then
Set db = currentdb
Set rst = db.OpenRecordset("nomeTabella/query")
rst.AddNew
rst!CampoCliente = NewData
rst.Update
Response = acDataErrAdded
Else
Me.Undo
Response = acDataErrContinue
end if
Set rst = Nothing
Set db = Nothing
ciao, Sandro
Fabrizio
"Sandro" <sandro_...@tin.it> ha scritto nel messaggio
news:4366c04d$0$29550$4faf...@reader1.news.tin.it...
ne la faq!!!!
[cut]
why not ? l'hai provato ?
[cut]
si ho una maschera che mi utilizza un imissione non in elenco da parte di
una casella combinata, ho messo il codice che posti (clausola su casella
combinata non in elenco) e funge!!!!!!.
Di certo con il codice che postava Simmone era una parte del codice "non
vorrei dire eresie", non ho provato questo codice e neppure lo
provo!!!ehehehehehe.
cmq sia, mi sto addentrando da poco in questo bellissimo mondo del vba e
quando sò di essere un pò utile posto.
Ciao a buon rendere.
SimoneB
Ciao SimoneB