if-then statement in vba

[rivereridanus]

Hello!

I have a form called restaurantinfo with a save button on it, and some simple vba behind it. A text box called savedtext appears when it is clicked to show the user that their info has been saved:

Private Sub savebutton_Click()
DoCmd.Save
Me.savedtext.Visible = True
End Sub



How can I make an (if-then) statement that says that if any further changes are made to the info (pulling from table restaurantinfo) on the form, then Me.savedtext.Visible = False ?

[boblarson]

Two things:

1. DoCmd.Save has nothing to do with records. It has to do with the saving of DESIGN CHANGES to the form. If you want to run a save, use

If Me.Dirty Then Me.Dirty = False

which will ONLY try to save if something has been changed on the form.

2. You would need to test in the form's Dirty event to see if anything changes.

[boblarson]

Oh, and the Form's On Dirty event will ONLY fire if a change is made to a control which is bound to a field on a bound form. Unbound controls and unbound forms will not fire the On Dirty event because there is no record source that is changing.

If you have unbound controls you would need to check in their before update event if the .OldValue is different from the current .Value.

[rivereridanus]

Thank you! I didn't know about the Dirty event before.