If data in field is changed, display message box

[laurat]

I have a date field, once a user goes in and changes the data in that field I would like a message box to display that they must write a comment as to why it was changed and then open the comments for so the comment can be entered. I tried to put code in the On_Change() event but it would display the message box everytime I pressed a key to put a new date in. I only want the message to come up once the entire field has been changed from its original value (I don't want the message to display when the first value is entered)

Any suggestions?? Thanks.

 

[Newman]

You could use AfterUpdate:

Private sub DateField_AfterUpdate()
If Not IsNull(DateField.OldValue) then ...
End Sub
Newman