SetOption gebruiken om waarschuwingsberichten uit te schakelen in een Access-toepassing

Gemiddeld: vereist basisvaardigheden voor macro's, codering en interoperabiliteit.

Dit artikel is alleen van toepassing op een Microsoft Access-database (.mdb of .accdb).

Samenvatting

In dit artikel wordt beschreven hoe u de methode Application.SetOption gebruikt om waarschuwingsberichten in een Access-toepassing uit te schakelen.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten. Actiequery's en andere processen die gegevens toevoegen, verwijderen of wijzigen, geven de gebruiker doorgaans een waarschuwing dat de gegevens op het punt staan te worden gewijzigd. In een runtime-toepassing is het echter vaak wenselijk om de waarschuwingen uit te schakelen, omdat controles en voorzorgsmaatregelen meestal buiten de controle van de gebruiker vallen.

U kunt dit doen met behulp van de methode SetWarnings van het DoCmd-object, maar u kunt er de voorkeur aan geven om waarschuwingen voor de hele toepassing uit te schakelen. Hiervoor kunt u de methode SetOption van het toepassingsobject gebruiken. Als u dit echter doet, moet u de waarschuwingen ook weer inschakelen wanneer de toepassing wordt afgesloten.

Voer de volgende stappen uit om dit te doen in een eenvoudige toepassing met één formulier:

1. Start Access en maak vervolgens een lege database met de naam TestRun.

2. Importeer de tabel Klanten uit de Northwind.mdb voorbeelddatabase.

3. Maak een nieuw formulier in de ontwerpweergave en voeg vervolgens een niet-afhankelijke keuzelijst met invoervak toe aan de detailsectie.

4. Stel de volgende eigenschappen in voor de keuzelijst met invoervak:

   Name: cboCountry
   Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
   

5. Voeg een opdrachtknop toe aan de detailsectie van het formulier en geef dit de naam cmdDelete.

6. Stel de eigenschap OnClick van de opdrachtknop in op de volgende gebeurtenisprocedure:

   DoCmd.OpenQuery "qryDeleteCustomers"

7. Sluit de Visual Basic-Editor.

8. Sla het formulier op als DeleteCustomers en sluit het.

9. Maak een nieuwe query in de ontwerpweergave en voeg vervolgens de tabel Klanten toe.

10. Klik in Access 2002 of in Access 2003 op Query verwijderen in het menu Query .

    Klik in Access 2007 op Verwijderen in de groep Querytype op het tabblad Ontwerpen .

11. Sleep het sterretje (*) van de lijst met velden naar de eerste kolom van het queryontwerpraster en sleep het veld Land naar de tweede kolom.

12. Typ het volgende in de rij Criteria van de kolom Land:

    Formulieren! [DeleteCustomers]! [cboCountry]

13. Sla de query op als qryDeleteCustomers en sluit deze vervolgens.

14. Open het formulier DeleteCustomers in de formulierweergave.

15. Selecteer een land in de keuzelijst met invoervak, klik op de opdrachtknop en noteer de waarschuwing die wordt weergegeven. Klik op Nee in het waarschuwingsdialoogvenster.

16. Open het formulier in de ontwerpweergave en klik vervolgens op de werkbalk op de knop Code.

17. Typ of plak de volgende procedures in het codevenster:

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. Sluit de Visual Basic-Editor, sla het formulier op en sluit het.

19. Open het formulier DeleteCustomers, selecteer een land en klik vervolgens op de opdrachtknop.

    Houd er rekening mee dat er geen waarschuwingsdialoogvenster wordt weergegeven.

In dit voorbeeld worden de bevestigingsopties van de toepassing uitgeschakeld wanneer het formulier DeleteCustomers wordt geladen en opnieuw wordt ingeschakeld wanneer het wordt verwijderd. In een uitgebreidere toepassing kunt u dezelfde acties uitvoeren in een opstartformulier of schakelbord.