I get the following error when I execute this command:
Expand|Select|Wrap|Line Numbers
- With rstDB
- .AddNew
- .Fields("Associate") = Me.fAssociate.Value
- .Fields("Date") = Me.fDate.Value
- .Fields("Project") = Me.fProject.Value
- .Fields("Associate") = Me.fAssociate.Value
- .Fields("Status") = status
- .Fields("StatusDate") = Now()
- .Fields("Notes") = Me.fNotes.Value
- .Fields("md_DateTime") = datex
- .Fields("md_Action") = "A"
- .Fields("md_User") = gblUser
- .Update
- End With
- rstDB.Close
- dbsDB.Close
- Set rstDB = Nothing
- Set dbsDB = Nothing
- Forms![MyOpen_I].Form.Refresh
- Forms![MyOpen].[MyOpen subform].Form.Requery
The error is with line 24. Thanks.