using applyfilter command to filter 2 criteria in tha same field

[dbdb]

hi,

i have a form name stock
i need to filter the data with this criteria :
1. status like : "yes"
2. class like : "all"
3. class like : "M2D"

i used this command but not work

    kr = Me.cmbstatus.Value
    class1 = "all"
    class2 = "M2D"
 
    DoCmd.ApplyFilter , "status like '" & kr & "' and class like '" & class1  & "'and class like '" & class2 & "'"
 
   Me.Refresh

it not work.
how do i have to filter it.

Thank you.

[Stewart Ross]

Hi. Assuming that in all cases Status has to be 'Yes', you need to OR the Class criteria, not AND them. However, you don't seem to be clear about what you are comparing, as you are using Like without using any wildcard characters for matching what goes before and after the string.

There is no need to use Like if you are after an exact match; the = operator is the right one for this. If you need partial matching you will need to use wildcard characters before and after the pattern, as shown below.

I have also used parenthesis for the OR part to ensure that the meaning of the statement and its execution sequence is clear. The AND is being done on the result of the OR, and the parenthesis just ensure that there is no doubt of the order in which they are interpreted.

Equals operator version

DoCmd.ApplyFilter , "status = '" & kr & "' AND (class = '" & class1  & "' OR class = '" & class2 & "')"

Partial match version

DoCmd.ApplyFilter , "status Like '*" & kr & "*' AND (class Like '*" & class1  & "*' OR class Like '*" & class2 & "*')"

-Stewart

[MikeTheBike]

Hi

As you have not used any wild card characters I assume you shouldn't be using Like in the filter, ie. the strings 'yes', 'all' and 'MDS' are the complete field entries.

If so, then I suggerst something like this:-

DoCmd.ApplyFilter , "status = '" & kr & "' AND (class = '" & class1 & "' OR class = '" & class2 & "')"

Note the bracket and to OR

HTH


MTB

[NeoPa]

Another way of checking multiple values against a single field is to use the In() function.

Call DoCmd.ApplyFilter(, "[status]='" & _
                         Me.cmbstatus & _
                         "' AND [class] In('all','M2D')")
Me.Refresh

[dbdb]

well thank you guys,,,
it work...

thanks for your help.