Add field for Last Modified Date

[csenor]

Good morning. I have a roster table that I had a "Record Modified" field. I had researched this before and made it work. I can't find my notes so I'm reaching out again. The field for some reason is not recording the date stamp any longer. I have the following VBA code in a module:

Option Compare Database


Private Sub Form_BeforeUpdate(Cancel As Integer)
[Record_Modified] = Date
End Sub

I have saved the VBA, reopened the form, entered data into a record, and it won't add the date stamp. Any suggestions?

I have tried the microsoft help center way of doing it with a macro and can't get that to work either.

 

[Joe4]

Has VBA been enabled for that database at that particular workstation?

 

[csenor]

I believe so. How would I check?

 

[Joe4]

Add this block of VBA code to your Form:

Private Sub Form_Load()
    MsgBox "Hello World!"
End Sub

Then save and close the Form.
Now try opening it again. When you do, do you get a message box? If you don't, then I suspect VBA has not been enabled.

 

[csenor]

I added that code to VBA screen and it did appear when I opened the form. Is the code I listed above correct?

 

[Joe4]

Your code seems to work for me.
Is [Record_Modified] a bound field?

 

[csenor]

I found the issue. I had attempted to create a macro from the advice of the other forums and microsoft help websites prior to the VBA. The macro was still listed in the Before Update section of the property sheet. When I deleted the macro from that spot, the dates started to work again. Thanks for your help.