Hi, hoping someone can help with this one..
I have a form with some fields.
When one of the fields, which happens to be a combo box, is populated with one of several values I want the following to happen...
Insert todays date into another field on the record. I'm thinking it should be fairly simple, but my VBA is rusty.
I have the following, feel free to tell me that what I have is stupid..
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Err
' Set bound controls to system date and time.
IIf [Status] = "Done by Katie" Or "Done by Tanya", [Process_Complete_Date] = Date
BeforeUpdate_End:
Exit Sub
BeforeUpdate_Err:
MsgBox Err.Description, vbCritical & vbOKOnly, _
"Error Number " & Err.Number & " Occurred"
Resume BeforeUpdate_End
End Sub
Thanks for any ideas