Utilizzo del metodo SetOption per la disattivazione dei messaggi di avviso in un'applicazione Access

In questo articolo viene illustrato come utilizzare il metodo Application.SetOption per disattivare i messaggi di avviso in un'applicazione Access.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. Le query di comando ed altri processi che accodano, eliminano o modificano dati in genere presentano all'utente un messaggio di avviso relativo alla modifica dei dati. In un'applicazione di runtime è tuttavia spesso preferibile disattivare gli avvisi in quanto controlli e precauzioni sono in genere sotto il controllo dell'utente.

È possibile effettuare questa operazione utilizzando il metodo SetWarnings dell'oggetto DoCmd, ma si potrebbe scegliere di disattivare gli avvisi per l'intera applicazione. A tale scopo, è possibile utilizzare il metodo SetOption dell'oggetto Application. In tale circostanza, tuttavia, è necessario anche riattivare gli avvisi alla chiusura dell'applicazione.

Per effettuare queste operazioni in un'applicazione semplice e basata su un'unica maschera, attenersi alla seguente procedura:

1. Avviare Access, quindi creare un database vuoto denominato TestRun.
2. Importare la tabella Clienti dal database di esempio Northwind.mdb.
3. Creare una nuova maschera in visualizzazione Struttura, quindi aggiungere una casella combinata non vincolata alla sezione dei dettagli.
4. Impostare le seguenti proprietà per la casella combinata:

      Nome: cboCountry
      Origine riga: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country;
   					

5. Aggiungere un pulsante di comando alla sezione dei dettagli della maschera e denominarlo cmdDelete.
6. Impostare la proprietà OnClick del pulsante di comando sulla seguente routine evento:

   DoCmd.OpenQuery "qryDeleteCustomers"
   					

7. Chiudere Visual Basic Editor.
8. Salvare la maschera con il nome DeleteCustomers e chiuderla.
9. Creare una nuova query in visualizzazione Struttura, quindi aggiungere la tabella Clienti.
10. Scegliere Query di eliminazione dal menu Query.
11. Trascinare l'asterisco (*) dall'elenco dei campi alla prima colonna della griglia di struttura della query, quindi trascinare il campo Country sulla seconda colonna.
12. Nella riga Criteria della colonna Country digitare quanto segue:

       Forms![DeleteCustomers]![cboCountry]
    					

13. Salvare la query come qryDeleteCustomers, quindi chiuderla.
14. Aprire la maschera DeleteCustomers in visualizzazione Maschera.
15. Selezionare un paese dalla casella combinata, fare clic sul pulsante di comando e notare il messaggio visualizzato. Scegliere No nella finestra di dialogo di avviso.
16. Aprire la maschera in visualizzazione Struttura e fare clic sul pulsante Codice sulla barra degli strumenti.
17. Nella finestra del codice digitare o incollare le seguenti routine:

    Private Sub Form_Load()
    
       Application.SetOption "Confirm Action Queries", 0
       Application.SetOption "Confirm Document Deletions", 0
       Application.SetOption "Confirm Record Changes", 0
    
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
    
        Application.SetOption "Confirm Action Queries", 1
        Application.SetOption "Confirm Document Deletions", 1
        Application.SetOption "Confirm Record Changes", 1
    
    End Sub
    		

18. Chiudere Visual Basic Editor, quindi salvare e chiudere la maschera.
19. Aprire la maschera DeleteCustomers, selezionare un paese e fare clic sul pulsante di comando.
    
    Non verrà visualizzata alcuna finestra di dialogo di avviso.

In questo esempio le opzioni di conferma dell'applicazione vengono disattivate quando la maschera DeleteCustomers viene caricata e riattivate quando viene scaricata. In un'applicazione più complessa è possibile eseguire le stesse operazioni in una maschera di avvio o in un pannello comandi.