D
Diyisfun
This is the event that is running & works as required:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_ERR
' set bound controls to system date & time
DateModified = Date
TimeModified = Time()
BeforeUpdate_END:
Exit Sub
BeforeUpdate_ERR:
MsgBox Err.Description, vbCritical & vbOKOnly, "ERROR NUMBER " & Err.Number
& " OCCURED"
Resume BeforeUpdate_END
End Sub
-----------
Every time any data is changed I get a date & time added.
What I want to do now, is create a date WHEN A NEW RECORD is created.
This should be in a new field that will not be changed.
I have had a play about but the date/time changes as the above.
I created a new field called CreateDate, this is what I wish to fill & not
to change.
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_ERR
' set bound controls to system date & time
DateModified = Date
TimeModified = Time()
BeforeUpdate_END:
Exit Sub
BeforeUpdate_ERR:
MsgBox Err.Description, vbCritical & vbOKOnly, "ERROR NUMBER " & Err.Number
& " OCCURED"
Resume BeforeUpdate_END
End Sub
-----------
Every time any data is changed I get a date & time added.
What I want to do now, is create a date WHEN A NEW RECORD is created.
This should be in a new field that will not be changed.
I have had a play about but the date/time changes as the above.
I created a new field called CreateDate, this is what I wish to fill & not
to change.