Gjelder for
Skjemaobjekt |
Rapportobjekt |
Du kan bruke Dirty-egenskapen til å fastslå om den gjeldende posten er endret siden sist den ble lagret. Du kan for eksempel spørre brukeren om endringer i en post var tilsiktet og, hvis ikke, la brukeren gå til neste post uten å lagre endringene. Lese/skrive Boolsk.
uttrykk.Dirty
uttrykk Påkrevd. Et uttrykk som returnerer ett av objektene i Gjelder for-listen.
Merknader
Dirty-egenskapen bruker følgende innstillinger.
Innstilling |
Visual Basic |
Beskrivelse |
True |
True |
Den gjeldende posten er endret. |
False |
False |
Den gjeldende posten er ikke endret. |
Denne egenskapen er tilgjengelig i skjemavisning og dataarkvisning.
Denne egenskapen angis eller leses ved hjelp av en makro eller Visual Basic for Applications-kode (VBA).
Når en post lagres, Microsoft Office Access 2007 settes Dirty-egenskapen til False. Når en bruker gjør endringer i en post, settes egenskapen til True.
Eksempel
I følgende eksempel aktiveres btnUndo-knappen når dataene endres. Underrutinen UndoEdits() kalles fra AfterUpdate-hendelsen for tekstbokskontroller. Når du klikker på den aktiverte btnUndo-knappen, gjenopprettes den opprinnelige verdien til kontrollen ved bruk av OldValue-egenskapen.
Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub