Kuidas kasutada SetOption Accessi rakenduse hoiatusteadete keelamine

Mõõdukas: Nõuab põhiliste makro, kodeerimine ja koostalitlusvõime oskused.


See artikkel kehtib ainult Microsoft Accessi andmebaasis (.mdb või .accdb).

Kokkuvõte

See artikkel näitab teile, kuidas Accessi rakenduse hoiatusteadete keelamine Application.SetOption meetodi abil.

Lisateabe saamiseks

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele. Päringute ja muud protsessid, et lisada, kustutada või muuta andmeid tavaliselt esitab kasutaja hoiatuse, et andmed on muuta. Käitusaja rakendus, aga on sageli soovitav keelata hoiatused, sest kontrolli ja ettevaatusabinõud on tavaliselt kasutaja ilmajäämise.

Saate selle objekti DoCmd meetodiga SetWarnings saavutamiseks, kuid soovite kogu rakenduse Hüperlingihoiatuste kuvamise. Selleks, et saate rakenduse objekti meetodi SetOption . Kuid kui te seda teete, peate lülitada ka hoiatusi uuesti sisse, kui rakendus sulgub.


Seda lihtne ja ühe vormi rakenduse, toimige järgmiselt.

  1. Käivitage Access ja looge tühi andmebaas nimega TestRun.

  2. Tabeli Kliendid Northwind.mdb proovi andmebaasi importida.

  3. Luua uus vorm ja lisage köitmata Liitboks jaotises üksikasjad.

  4. Seadke liitboksi järgmised atribuudid:
    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country;

  5. Nupu lisamine vormi jaotises üksikasjad ja nime cmdDelete.

  6. Seadke atribuudi OnClick nupu sündmuse järgmiselt:

    DoCmd.OpenQuery "qryDeleteCustomers"
  7. Sulgege Visual Basic Editor.

  8. Vormi salvestamine DeleteCustomers ja seejärel sulgege fail.

  9. Saate luua uue päringu Kujundusvaade ja seejärel lisage tabeli Kliendid.

  10. Access 2002 või Access 2003 klõpsake menüüPäringu kustutada .

    Access 2007, klõpsake menüü kujundus jaotises Päringu tüüp nuppu Kustuta .

  11. Lohistage tärn (*) loendist väli päringu kujundusruudustik esimesest veerust ja lohistage väli riigi teises veerus.

  12. Riigi veeru reale kriteeriumid tippige järgmine:
    Forms![DeleteCustomers]![cboCountry]

  13. QryDeleteCustomers salvestage ja sulgege see.

  14. Avage DeleteCustomers vormi vormi vaates.

  15. Valige riik liitboksi, klõpsake nupu ja pange tähele, kuvatakse hoiatus. Klõpsake dialoogiboksis nr .

  16. Avada vormi kujundus ja seejärel klõpsake tööriistaribal nuppu koodi .

  17. Tähis aknas tippige või kleepige järgmised toimingud:

    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. Sulgege Visual Basic Editor ja seejärel salvestage ja sulgege vorm.

  19. DeleteCustomers vorm, valige riik ja seejärel klõpsake nuppu käsk.


    Pange tähele, et pole dialoogiboks.

Selles näites kinnitada rakenduse suvandid on keelatud, kui DeleteCustomers vormi laadimisel ja uuesti sisse lülitatud, kui see on maha. Täpsemad rakendus võib teostada samu toiminguid lülituskilbi või käivitamise kujul.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×