How to apply filter from another form

[margzj]

I have this code from another website but it's not working. I want to filter the split view form from another form.

PrivateSub btnSearch_Click()

'//Check that other form is loaded - if not, then open it
IfNot fIsLoaded("frmMain")Then
DoCmd.OpenForm ("frmMain")


EndIf
'//Set filter to listbox criterion
Forms("frmMain").Filter ="[Priorities] = "& Chr(34)&Me.Priorities & Chr(34)
Forms("frmMain").FilterOn =True

EndSub

Function fIsLoaded(ByVal strFormname AsString)AsBoolean

'Returns False if form is not open or True if Open
If SysCmd(acSysCmdGetObjectState, acForm, strFormname)<>0Then

If Forms(strFormname).CurrentView <>0Then
fIsLoaded =True
EndIf

EndIf
EndFunction


I received this error



This macro is already filtering the query but is it showing all the data that has priority. [MasterQuery]![Priorities]=[Priorities]

[margzj]

Hi It's already working now, how to filter different field at the same time. I use the same code above.


This is my form

[June7]

Not really sure why that error occurs. However, the fIsLoaded custom function is not necessary.

Private Sub btnSearch_Click()
'//Check that other form is loaded - if not, then open it
If Not CurrentProject.AllForms("frmMain").IsLoaded Then
        DoCmd.OpenForm ("frmMain")
End If
'//Set filter to listbox criterion
    Forms("frmMain").Filter ="[Priorities] = " & Chr(34) & Me.Priorities & Chr(34)
    Forms("frmMain").FilterOn =True
End Sub

This is not a macro, it is VBA procedure. Macros in Access are very different means of coding.

Controls for the purpose of selecting filter criteria should be UNBOUND. Review http://www.allenbrowne.com/ser-62.html

[margzj]

This is the macro I am talking about "[MasterQuery]![Priorities]=[Priorities]"

[June7]

That isn't a macro, it is just an expression. Where are you using that expression?

[margzj]

This is the macro

[June7]

Drop the .Text property.

Should name controls different from fields, such as tbxPriorities or cbxPriorities.

Is MasterQuery the form's RecordSource?

Why do you even have this macro when you have VBA procedure applying filter? Only one of them will run as determined by choice set in the OnClick event property. What is the choice?

[margzj]

Yes MasterQuery is the record source of my form. I did not put the macro and the vba together, I am experimenting on how to filter the form with multiple fields.

[margzj]

This criteria also in the query is not working

Is Null Or Like "*" & [Forms]![frmSearch]![cmbPriorities] & "*"

It's showing all even the null value. But if I remove the

Is Null

the filter is working fine.

Any other option I can use? to filter multiple fields

[June7]

Review the link I referenced in post 3.

[margzj]

Review the link I referenced in post 3.

Hi Priority filter is working now, thanks. How to filter by contains?