Hello Everyone
I am getting this error in the following query
Private Sub WeekEndingbx_AfterUpdate()
If WeekEndingbx >= date Then
Me.CmboElement.RowSource = DoCmd.OpenQuery "Current_EditTimesheet_Element"
Else
Me.CmboElement.RowSource = Docmd.openQuery "Old_EditTimesheet_Element"
End If
End Sub
How to rectify this?