Dirty (gewijzigd), eigenschap

Van toepassing op

Formulierobject

Rapportobject

U kunt de eigenschap Dirty gebruiken om te bepalen of de huidige record is gewijzigd sinds deze voor het laatst werd opgeslagen. U wilt bijvoorbeeld de gebruiker mogelijk vragen of wijzigingen in een record bedoeld waren en de gebruiker, als dat niet het geval is, toestaan om naar de volgende record te gaan zonder de wijzigingen op te slaan. Boolean lezen/schrijven.

expressie Dirty

expressie Required. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.

Opmerkingen

De eigenschap Dirty gebruikt de volgende instellingen.

Instelling

Visual Basic

Beschrijving

True

True

De huidige record is gewijzigd.

False

False

De huidige record is niet gewijzigd.

Deze eigenschap is beschikbaar in formulierweergave en gegevensbladweergave.

Deze eigenschap kan worden ingesteld of gelezen met een macro of een Visual Basic for Applications-code (VBA).

Als een record wordt opgeslagen, stelt Microsoft Office Access 2007 de eigenschap Dirty in op False. De eigenschap wordt ingesteld op True als een gebruiker een record wijzigt.

Voorbeeld

Het volgende voorbeeld schakelt de knop btnUndo in als gegevens worden gewijzigd. De subroutine UndoEdits( ) wordt vanuit de gebeurtenis AfterUpdate in de besturingselementen voor tekstvakken aangeroepen. Als op de ingeschakelde knop btnUndo wordt gedrukt, wordt de oorspronkelijke waarde van het besturingselement hersteld door de eigenschap OldValue te gebruiken.

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
Uw Office-vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagents.

×