On a similar line to my previous post. The following code works fine except for our Mr D'Arcy.
I have tried numerous permitations, but cnnot escape an errror message.
Please can you help?
Private Sub Form_Open(Cancel As Integer)
Me.Filter = "[Engname] =" & Chr(34) & Forms!frmdatabaselogin!cboStaffMember & Chr(34) & "And [WE Date] >= Now() - 3"
Me.FilterOn = True
Me.WRSSub.Form.Combo65.RowSource = "select [hours id], [id2], [job number id], [Job Date], site, [Work Request Details], [total ot hrs], [total std hrs], callout from vvworksheetlookup where EngName='" & Forms!frmdatabaselogin!cboStaffMember & "'"