Vlastnost Změna

Platí pro

Pomocí vlastnosti Dirty můžete určit, jestli byl aktuální záznam od svého posledního uložení změněn. Můžete se třeba chtít uživatele zeptat, jestli byly změny záznamu úmyslné, a pokud ne, umožnit uživateli, aby přešel na další záznam bez uložení změn. Typ Boolean pro čtení/zápis.

Výraz.Dirty

Výraz Povinný argument. Výraz, který vrátí jeden z objektů v seznamu Platí pro.

Poznámky

Vlastnost Dirty používá následující nastavení.

Tato vlastnost je dostupná ve Formulářovém zobrazení a v zobrazení Datový list.

Tato vlastnost se nastavuje nebo čte pomocí makra nebo kódu jazyka VBA (Visual Basic for Applications).

Při uložení záznamu access nastaví vlastnost Dirty na False. Když uživatel záznam změní, nastaví se tato vlastnost na True.

Příklad

V následujícím příkladu se při změně dat povolí tlačítko btnUndo. Podprogram UndoEdits( ) se volá z události AfterUpdate (Po aktualizaci) ovládacích prvků typu textové pole. Kliknutím na povolené tlačítko btnUndo se pomocí vlastnosti OldValue obnoví původní hodnota ovládacího prvku.

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