>Ho fatto come mi hai suggerito con la macro (maschera1 la lancia),
>ma penso che l'altra soluzione che mi hai suggerito potrebbe
>essere migliore, anche perchè con la macro mi chiede ogni volta
>di confermare ogni singolo passaggio). Potresti farmi un esempio
>pratico sul file che allego? Scusa se approfitto della disponibilità,
>ma non ne posso fare a meno...
Ok,
allora apri la Maschera che hai creato in modalità "Progettazione". Penso che fino a qui ci arrivi ok ?
Vedo che hai creato un pulsante con uno script. Fai con il tasto destro e tra le voci di menù dovrebbe esserci "Genera Evento" o qualcosa di analogo.
Ciò ti porta dentro Visual Basic for Applications.
Dove troverai un codice di questo tipo:
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim stDocName As String
stDocName = "Macro1"
DoCmd.RunMacro stDocName
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
è sufficiente sostituirlo con:
Private Sub Comando0_Click()
Dim db As Database
Set db = CurrentDb()
db.Execute ("Query1")
'altre query da eseguire
End Sub
A questo punto quando mandi la maschera in modalità di esecuzione ossia quando il pulsante diventa cliccabile, se lo clicchi verranno eseguite tutte le query indicate nell'ultimo frammento di codice secondo l'ordine in cui le hai inserite.
Ciao
David De Giacomi | Microsoft MVP
http://blogs.dotnethell.it/david/