Command button to open a form filtered by two criteria

[zia di]

I'm an Access newbie and unsure of what I am missing for the following situation.



I have a "Startup" form that is like a dashboard when I open my database.
From here, I have a command button to open ALL records in a different form called "Student Cases".
There is another command button that allows me to only open the forms for a specific case manager (i.e. Jane Smith). I used the following code:

DoCmd.OpenForm "Student Cases"
DoCmd.ApplyFilter , "Casemgr = 'Jane Smith"

I'm having trouble with the third command button I'm trying to do. I want to filter by one additional criteria (Case Status) to the previous code.
When I click the command button "Open Cases", I want the following: Open the "Student Cases" form, but only show records where Casemgr=Jane Smith and Casestatus=Open

I thought I could just do the following:

DoCmd.OpenForm "Student Cases"
DoCmd.ApplyFilter , "Casemgr = 'Jane Smith" AND "Casestatus = Open"

But I get the following error:

Run-time error '13':
Type mismatch


Can someone tell me what I am doing wrong?

Thank you so much!!!

[Welshgasman]

Unlikely that is really what you want? I would expectthe values to change?
However try

"Casemgr = 'Jane Smith' AND Casestatus = 'Open'"

You could do all of that as you open the form?
Google the OpenForm syntax.

[ranman256]

make a continuous form that shows all records.
In the header, put unbound controls for the user to enter search criteria.
When user clicks the Find button, Test all controls for a possible filter then build the where clause:

sub btnFind_click()
sWhere = "1=1"
if not isnull(cboState) then   sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then    sWhere = sWhere & " and [Name]='" & txtName & "'"
if not IsNull(cboGender) then    sWhere = sWhere & " and [Gender]='" & cboGender & "'"




 'then filer
if sWhere = "1=1" then
   me.filterOn = false
else
   me.filter = sWhere
   me.filterOn = true
endif


end sub