Well I'm having a good night. I have another "Too Few Parameters" Expected 1 error message
Below is the code I'm trying to get to work. If I leave out the db.OpenRecordset part, it works. If I leave it in I get the error message. I would appreciate it if someone could throw some suggestions my way.
If Me.chkSectionEquipment = True Then
If Trim(Nz(Me.txtEquip, "")) = "" Then
Eval ("Msgbox('Equipment Name Is [email=Missing@Before]Missing@Before[/email] I can filter the Orders List " & _
"you must type an Equipment name!@@',0,'AMC Database Message System')")
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Dim stS As String
stS = "SELECT * FROM Orders WHERE Orders.Equipment" & _
" LIKE ""*"" & Forms![frmOrdersFilter]![txtEquip] & ""*"""
Set rs = db.OpenRecordset(stS) 'Here is where it highlights for the too few parameters error
If rs.RecordCount = 0 Then
Eval ("Msgbox('There Are No Matching Records!@There are no matching Orders for the criteria(s) " & _
"you have entered!@@',0,'No Matching Orders')")
Forms![frmOrdersNavigator]![frmOrderssub].Form.RecordSource = stS
DoCmd.Close acForm, "frmOrdersFilter"