da markinson » dom set 05, 2010 10:14 am
Pur utilizzando un pochino Access, non mi sono ancora deciso ad imparare VBA ...
Comunque, potresti tentare con un trucchetto.
Ossia:
- creare un pulsante di chiusura maschera con la procedura guidata;
- andare nelle proprietà del pulsante e, quindi, nella scheda "Eventi" dello stesso;
- in corrispondenza della voce "su clic" (se non ricordo male), dovrà esserci la dicitura "[Routine evento]";
- a questo punto, cliccare sul pulsante con i tre punti di sospensione della riga in questione (tutto a destra), per accedere a VBA;
- copiare il codice VBA corrispondente a quel comando;
- andare nel controllo (utilizzo il termine generico) per il quale in uscita si prevede la chiusura della maschera;
- quindi, "Proprietà - Evento", nella proprietà/riga "Su uscita" scrivere "[Routine evento]" e fare clic sui soliti tre punti di sospensione (tutto a destra, stessa riga);
- incollare il codice VBA in precedenza selezionato, prestando attenzione a cambiare i rimandi ai precedenti controlli con i controlli dai quali, in uscita (appunto), l'evento dovrà verificarsi.
Molto artigianale ... ma così ho risolto in altre circostanze.
Per finire (apportando i necessari adeguamenti), il codice dovrebbe essere:
- Codice: Seleziona tutto
Private Sub NomeTuoControllo_Exit(Cancel As Integer)
On Error GoTo Err_NomeTuoControllo_Exit
DoCmd.Quit
Exit_NomeTuoControllo_Exit:
Exit Sub
Err_NomeTuoControllo_Exit:
MsgBox Err.Description
Resume Exit_NomeTuoControllo_Exit
End Sub
L'ho provato adesso: da me (almeno), funziona.
MegaLab.it (MLI) = Gianluigi "Zane" Zanettini - That's all Folks!