Jak pomocí funkce SetOption zakázat varovné zprávy v aplikaci pro Access

Střední: Vyžaduje základní dovednosti v makrech, kódování a interoperabilitě.

Tento článek se týká pouze databáze aplikace Microsoft Access (.mdb nebo .accdb).

Souhrn

V tomto článku se dozvíte, jak pomocí metody Application.SetOption zakázat varovné zprávy v aplikaci pro Access.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Technici podpory Microsoftu vám můžou pomoct vysvětlit funkčnost konkrétní procedury, ale tyto příklady nebudou upravovat tak, aby poskytovaly přidané funkce nebo sestavují postupy tak, aby splňovaly vaše konkrétní požadavky. Akční dotazy a další procesy, které připojují, odstraňují nebo upravují data, obvykle uživateli zobrazí upozornění, že data se chystáte upravit. V aplikaci za běhu je však často žádoucí upozornění zakázat, protože kontroly a opatření jsou obvykle mimo kontrolu uživatele.

Toho můžete dosáhnout pomocí metody SetWarnings objektu DoCmd, ale můžete raději zakázat upozornění pro celou aplikaci. K tomu můžete použít metodu SetOption objektu Application. Pokud to ale uděláte, měli byste upozornění při ukončení aplikace znovu zapnout.

Chcete-li to provést v jednoduché jedno formulářové aplikaci, postupujte takto:

1. Spusťte Access a pak vytvořte prázdnou databázi s názvem TestRun.

2. Importujte tabulku Customers z ukázkové databáze Northwind.mdb.

3. Vytvořte nový formulář v návrhovém zobrazení a pak přidejte nevázané pole se seznamem do oddílu podrobností.

4. Nastavte následující vlastnosti pole se seznamem:

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

5. Do části podrobností formuláře přidejte příkazové tlačítko a pojmenujte ho cmdDelete.

6. Nastavte vlastnost OnClick příkazového tlačítka na následující proceduru události:

   DoCmd.OpenQuery "qryDeleteCustomers"

7. Zavřete Editor jazyka Visual Basic.

8. Uložte formulář jako OdstranitVlastníci a pak ho zavřete.

9. Vytvořte nový dotaz v návrhovém zobrazení a pak přidejte tabulku Customers (Zákazníci).

10. V Accessu 2002 nebo Accessu 2003 klikněte v nabídce Dotaz na Odstranit dotaz.

    V Accessu 2007 klikněte na Odstranit ve skupině Typ dotazu na kartě Návrh .

11. Přetáhněte hvězdičku (*) ze seznamu polí do prvního sloupce návrhové mřížky dotazu a potom přetáhněte pole Země do druhého sloupce.

12. Na řádku Kritéria ve sloupci Země zadejte následující:

    Formuláře! [DeleteCustomers]! [cboCountry]

13. Uložte dotaz jako qryDeleteCustomers a pak ho zavřete.

14. Otevřete formulář OdstranitVlastníci ve formulářovém zobrazení.

15. V poli se seznamem vyberte zemi, klikněte na příkazové tlačítko a poznamenejte si zobrazené upozornění. V dialogovém okně upozornění klikněte na Ne.

16. Otevřete formulář v návrhovém zobrazení a potom na panelu nástrojů klikněte na tlačítko Kód.

17. V okně Kód zadejte nebo vložte následující postupy:

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. Zavřete Editor jazyka Visual Basic a pak formulář uložte a zavřete.

19. Otevřete formulář OdstranitVlastníci, vyberte zemi a klikněte na příkazové tlačítko.

    Všimněte si , že se nezobrazí žádné dialogové okno upozornění.

V tomto příkladu jsou možnosti potvrzení aplikace při načtení formuláře DeleteCustomers zakázány a znovu povoleny při uvolnění. Ve složitější aplikaci můžete stejné akce provádět ve spouštěcím formuláři nebo přepínacím panelu.