Two Criteria and Date in VBA

[mlrucci]

Good afternoon, I am attempting to write vba to open another form based on today's date and [EmployeeID] in a list. I currently have

Dim strCriteria As String
strCriteria ="[EmployeeID] = " & Me.lstDailyProductivity.Column(0)
DoCmd.OpenForm"frmLogProcedurePopUp", , ,strCriteria, , acDialog
End Sub

which will pull up all the entries by the employeeID clicked in the list. Works great. What I need is to limit the results to today only. Struggling with the Date and a second criteria. Any help would be appreciated.

[June7]

And what field holds date value you need to filter on? What have you attempted?

strCriteria ="[EmployeeID] = " & Me.lstDailyProductivity.Column(0) & " AND DateField=Date()"

[mlrucci]

Perfect! Thank very much. the () kept dissappearing. forgot the quotes. Thanks again

[June7]

You probably tried concatenating Date() function which would require # delimiters. VBA will drop the (). Since Date() is an intrinsic function, the WHERE CONDITION argument will evaluate when embedded between quotes.