J
Jen_ConfusedAboutAccess
Please forgive my lack of knowledge on writing code?? I'm trying to have an
automatic date change when data is changed within a field. I created the date
file that I named Update. I tried to follow the following instructions and
created the code below. However, it is not working and no changes can be
made to the either the table or form at the present time!
Can anyone suggest another way to do this or tell me what I'm doing wrong?
Your help is greatly appreciated...It is so frustrating to get stuck!
http://office.microsoft.com/en-us/access/HA010345351033.aspx?pid=CL100570041033
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Err
' Set bound controls to system date.
Update = Date
BeforeUpdate_End:
Exit Sub
BeforeUpdate_Err:
MsgBox Err.Description, vbCritical & vbOKOnly, _
"Error Number " & Err.Number & " Occurred"
Resume BeforeUpdate_End
End Sub
automatic date change when data is changed within a field. I created the date
file that I named Update. I tried to follow the following instructions and
created the code below. However, it is not working and no changes can be
made to the either the table or form at the present time!
Can anyone suggest another way to do this or tell me what I'm doing wrong?
Your help is greatly appreciated...It is so frustrating to get stuck!
http://office.microsoft.com/en-us/access/HA010345351033.aspx?pid=CL100570041033
Option Compare Database
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Err
' Set bound controls to system date.
Update = Date
BeforeUpdate_End:
Exit Sub
BeforeUpdate_Err:
MsgBox Err.Description, vbCritical & vbOKOnly, _
"Error Number " & Err.Number & " Occurred"
Resume BeforeUpdate_End
End Sub