пример из Гетца т.1 стр.456
lblDirty - надпись на форме, которая появляется или исчезает в зависимости от того, редактируется запись или нет.
Private Sub Form_Current()

lblDirty.Visible = False
End Sub

Private Sub Form_Dirty(Cancel As Integer)
' You can trap when the form becomes dirty, but
' not when it becomes "not dirty". If you want to do
' that, you'll need to use the messy Timer event
' code, below.
lblDirty.Visible = True
End Sub

Private Sub Form_Timer()
' Turn the label on or off, depending on the state of
' the Dirty flag and the current visibility of the label.

' Here's one way to do it:
'If Me.Dirty And Not lblDirty.Visible Then lblDirty.Visible = True
'If Not Me.Dirty And lblDirty.Visible Then lblDirty.Visible = False

' Here's a simpler way:
Dim fDirty As Boolean
fDirty = Me.Dirty
If Not (fDirty Eqv lblDirty.Visible) Then
lblDirty.Visible = fDirty
End If
End Sub