make undo button visible if anything changes 2

[mavog]

Hi ,
is there an easy way to make an 'undo changes' button visible but only when there are changes made in any fields on a form?

 

[amcodah]

yes, this should help you:

If Me.Dirty Then
Me.UndoChangesButton.Visible = False
End If

 

[amcodah]

Sorry about that first post, I thought I'd hit the stop button fast enough Now this is correct:

If Me.Dirty Then
Me.UndoChangesButton.Visible = True
End If


You could trigger it by a timer, or do a check after each update on each control by calling a function or sth IE:

Option Explicit
Private ChangesMade As Boolean
Private strDummie As String
...
Private Function CheckChangesMade()
If Me.Dirty Then
ChangesMade = True
Me.UndoChangesButton.Visible = True
Else
ChangesMade = False
End If
End Function

Private Sub Test_AfterUpdate()
If ChangesMade = False Then
strDummie = CheckChangesMade()
End If
End Sub

then call that function with AfterUpdate() at each field you got. (I require in this code that you have set the UndoChangesButton.Visible = False as default in the form)

 

[mavog]

thanx - the first option is the one that works well enough for me, but i'll keep it in mind if it needs that little bit extra

 

[Trevahaha]

umm.. you should put that in the onDirty event procedure of the form.

Private Sub Form_Dirty(Cancel as Integer)
   btnUndoChanges.visible = true

' I recommend btnUndoChanges.enabled = true

End Sub

BTW - it's recommended in style that instead of making something "visible" or "invisible" you make it disabled or enabled. It's less of a shock for the end-user when it's there/not there.