Report. Dirty-Eigenschaft (Access)Report.Dirty property (Access)

Mit der Dirty-Eigenschaft können Sie ermitteln, ob der aktuelle Datensatz seit dem letzten Speichern verändert wurde.You can use the Dirty property to determine whether the current record has been modified since it was last saved. Boolescher Wert mit Lese-/Schreibzugriff.Read/write Boolean.

SyntaxSyntax

Ausdruck. Dirtyexpression.Dirty

Ausdruck Eine Variable, die ein Report -Objekt darstellt.expression A variable that represents a Report object.

BemerkungenRemarks

Beispielsweise können Sie den Benutzer Fragen, ob Änderungen an einem Datensatz beabsichtigt waren, und wenn nicht, dem Benutzer erlauben, zum nächsten Datensatz zu wechseln, ohne die Änderungen zu speichern.For example, you may want to ask the user whether changes to a record were intended, and if not, allow the user to move to the next record without saving the changes.

Wird ein Datensatz gespeichert, so wird die Dirty-Eigenschaft automatisch auf False gesetzt.When a record is saved, Microsoft Access sets the Dirty property to False. Nimmt ein Benutzer Änderungen an einem Datensatz vor, so wird die Eigenschaft auf True gesetzt.When a user makes changes to a record, the property is set to True.

BeispielExample

Im folgenden Beispiel wird die btnUndo -Schaltfläche aktiviert, wenn Daten geändert werden.The following example enables the btnUndo button when data is changed. Die UndoEdits () -Subroutine wird aus dem after Update -Ereignis von Textfeldsteuerelementen aufgerufen.The UndoEdits( ) subroutine is called from the AfterUpdate event of text box controls. Durch Auswählen der aktivierten btnUndo -Schaltfläche wird der ursprüngliche Wert des Steuerelements mithilfe der OldValue -Eigenschaft wiederhergestellt.Choosing the enabled btnUndo button restores the original value of the control by using the OldValue property.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.