Slik bruker du SetOption til å deaktivere advarsler i et Access-program

Obs!

Office 365 ProPlus får nytt navn og heter nå Microsoft 365-apper for enterprise. Hvis du vil ha mer informasjon om denne endringen, kan du lese dette blogginnlegget.

Moderat: Krever grunnleggende ferdigheter for makro, koding og interoperabilitet.

Denne artikkelen gjelder bare for en Microsoft Access-database (.mdb eller .accdb).

Sammendrag

Denne artikkelen viser deg hvordan du bruker Application.SetOption-metoden til å deaktivere advarselsmeldinger i et Access-program.

Mer informasjon

Microsoft gir programmeringseksempler kun for illustrasjon, uten garanti hverken uttrykt eller antydet. Dette inkluderer, men er ikke begrenset til, de underforståtte garantiene for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som blir demonstrert og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav. Handlingsspørringer og andre prosesser som tilføyer, sletter eller endrer data, presenterer vanligvis brukeren med en advarsel om at dataene er i ferd med å bli endret. I et kjøretidsprogram er det imidlertid ofte ønskelig å deaktivere advarslene fordi kontroller og forholdsregler vanligvis er utenfor brukerens kontroll.

Du kan oppnå dette ved hjelp av SetWarnings-metoden for Objektet DoCmd, men du foretrekker kanskje å deaktivere advarsler for hele programmet. Hvis du vil gjøre dette, kan du bruke SetOption-metoden for Application-objektet. Hvis du gjør dette, bør du imidlertid også aktivere advarslene på nytt etter hvert som programmet avsluttes.

Hvis du vil gjøre dette i et enkelt ettskjemaprogram, følger du disse trinnene:

  1. Start Access, og opprett deretter en tom database kalt TestRun.

  2. Importer Kunder-tabellen fra eksempeldatabasen Northwind.mdb.

  3. Opprett et nytt skjema i utformingsvisning, og legg deretter til en ubundet kombinasjonsboks i detaljinndelingen.

  4. Angi følgende egenskaper for kombinasjonsboksen:

    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
    
  5. Legg til en kommandoknapp i detaljinndelingen i skjemaet, og gi den navn til cmdDelete.

  6. Angi OnClick-egenskapen for kommandoknappen til følgende hendelsesprosedyre:

    DoCmd.OpenQuery "qryDeleteCustomers"

  7. Lukk Visual Basic redigeringsprogrammet.

  8. Lagre skjemaet som DeleteCustomers, og lukk det.

  9. Opprett en ny spørring i utformingsvisning, og legg deretter til Kunde-tabellen.

  10. Klikk Slett spørring på Spørring-menyen i Access 2002 eller Access 2003.

    Klikk Slett i Spørringstype-gruppen på Utforming-fanen i Access 2007.

  11. Dra stjernen (*) fra feltlisten til den første kolonnen i utformingsrutenettet for spørringen, og dra deretter Land-feltet til den andre kolonnen.

  12. Skriv inn følgende i Vilkår-raden i Land-kolonnen:

    Skjemaer! [DeleteCustomers]! [cboCountry]

  13. Lagre spørringen som qryDeleteKundere, og lukk den.

  14. Åpne DeleteCustomers-skjemaet i skjemavisning.

  15. Velg et land fra kombinasjonsboksen, klikk kommandoknappen, og noter advarselen som vises. Klikk Nei i advarselsdialogboksen.

  16. Åpne skjemaet i utformingsvisning, og klikk deretter Kode-knappen på verktøylinjen.

  17. Skriv eller lim inn følgende fremgangsmåter i Kode-vinduet:

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

  1. Lukk Visual Basic redigeringsprogrammet, og lagre og lukk deretter skjemaet.

  2. Åpne DeleteCustomers-skjemaet, velg et land, og klikk deretter kommandoknappen.

    Vær oppmerksom på at ingen advarselsdialogboks vises.

I dette eksemplet deaktiveres applikasjonens bekreftelsesalternativer når DeleteCustomers-skjemaet lastes inn og aktiveres på nytt når det er lastet ut. I et mer omfattende program kan du utføre de samme handlingene i et oppstartsskjema eller sentralbord.