PDA

View Full Version : [Access]Esecuzione comando e visualizzazione popup con num record inseriti/cancellati


doctorAle85
29-04-2015, 09:31
Ciao a tutti,

Ho la seguente sub:

Private Sub Command1_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery ("delete_t1")
DoCmd.OpenQuery ("insert_t1")
MsgBox ("t1 valorizzata con successo")
DoCmd.OpenQuery ("delete_t2")
MsgBox ("Aggiornamento t2 avvenuto con successo")
DoCmd.SetWarnings True
End Sub

Vorrei far comparire popup con la specifica del numero di record inseriti/cancellati.
Il codice dovrebbe diventare una cosa del genere:

Private Sub Command1_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery ("delete_t1")
DoCmd.OpenQuery ("insert_t1")
.....
num_ins=...
...
MsgBox ("Inseriti "+num_ins+" record")
DoCmd.OpenQuery ("delete_t2")
.....
num_del=...
...
MsgBox ("Cancellati "+num_del+" record")
DoCmd.SetWarnings True
End Sub

E' possibile calcolare le variabili num_ins e num_del?
C'è qualche funzione in vba che permette di restituire il numero di record inseriti/cancellati con una query?

Grazie