Kā izmantot SetOption, lai atspējotu brīdinājuma ziņojumu programmā Access

Vidējs: Nepieciešama pamata makro, kodēšana un sadarbspēja iemaņas.


Šis raksts attiecas tikai uz Microsoft Access datu bāzes (. mdb vai. accdb).

Kopsavilkums

Rakstā izskaidrots, kā izmantot Application.SetOption metodi, lai atspējotu brīdinājuma ziņojumu programmā Access.

Papildinformācija

Microsoft piedāvā programmēšanas piemērus norāda tikai kā piemēru, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām. Action vaicājumi un citi procesi, kas pievienot, dzēst vai modificēt datus parasti iesniegt lietotājs ar brīdinājumu, ka dati ir jāmaina. Izpildlaika programmā, tomēr vēlams bieži atspējot brīdinājumus, jo pārbaudes un līdzekļus parasti lietotāja neatkarīgu.

Jūs varat paveikt, izmantojot objekta DoCmd metodi SetWarnings , bet vēlaties atspējot brīdinājumus visai programmai. Lai to izdarītu, var izmantot programmas objekta SetOption metodi. Tā rīkojoties, jums ir arī savukārt brīdinājumi ieslēgts lietojumprogramma tiek aizvērta.


Lai to izdarītu, vienkāršs un vienu veidlapu programmā, rīkojieties šādi:

  1. Startējiet programmu Access un pēc tam izveidojiet tukšu datu bāzi ar nosaukumu TestRun.

  2. Importēt no Northwind izlašu datu bāzes tabulu Klienti.

  3. Izveidot jaunu veidlapu noformējuma skatā un pēc tam pievienojiet datu sadaļa Nesaistīts kombinētais lodziņš.

  4. Iestatiet šo kombinētā lodziņa rekvizīti:
    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country;

  5. Pievienojiet komandas pogu veidlapas datu sadaļa un piešķiriet cmdDelete.

  6. Iestatiet komandas pogas OnClick rekvizītā notikumu šādi:

    DoCmd.OpenQuery "qryDeleteCustomers"
  7. Aizveriet Visual Basic redaktoru.

  8. Saglabājiet veidlapu kā DeleteCustomers un pēc tam aizveriet to.

  9. Izveidojiet jaunu vaicājumu noformējuma skatā un pēc tam pievienojiet tabulas Klienti.

  10. Access 2002 vai Access 2003 izvēlnē Dzēst vaicājumuvaicājums .

    Programmā Access 2007, cilnes noformējums grupā Vaicājuma tips noklikšķiniet uz Dzēst .

  11. Vaicājuma noformējuma režģa pirmajā kolonnā lauka sarakstā velciet zvaigznīti (*), un pēc tam velciet lauku valsts otrajā kolonnā.

  12. Valsts kolonnas rindā kritēriji ievadiet šādu tekstu:
    Forms![DeleteCustomers]![cboCountry]

  13. Saglabājiet vaicājumu kā qryDeleteCustomers un pēc tam aizveriet to.

  14. Atveriet DeleteCustomers formu formas skatā.

  15. Atlasiet valsti kombinēto lodziņu, noklikšķiniet uz pogas komandu un ņemiet vērā, tiek parādīts brīdinājums. Noklikšķiniet uz bez brīdinājuma dialoglodziņā.

  16. Atveriet formu noformējuma skatā un rīkjoslā noklikšķiniet uz pogas kodu .

  17. Koda logā ierakstiet vai ielīmējiet šādas darbības:

    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. Aizveriet Visual Basic redaktoru un pēc tam saglabājiet un aizveriet formu.

  19. Atveriet DeleteCustomers formu, atlasiet valsti un noklikšķiniet uz pogas komandas.


    Ņemiet vērā, ka bez brīdinājuma dialogs.

Šajā piemērā programmu apstiprināt opcijas ir atspējotas, DeleteCustomers formu ielādē un atkārtoti iespējots, ja nav noslogots. Vairāk izstrādā programmu, var veikt tādas pašas darbības sākuma formā vai komutatoru.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Insider

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×