Macro/module to show form filter?

[GopherUK]

Hi,

I am a bit stuck with this one... is it possible to create a macro/module that will display the form filter? I would also like one that would toggle the filter on and off. Is this possible?

Thanks in advance.

 

[jackd]

Here's a vba function that should give you the Filter for a Form.

'---------------------------------------------------------------------------------------
' Procedure : getFormFilters
' Author : Jack
' Date : 05-10-2011
' Purpose : To return the Filter expression for a supplied Form name
'---------------------------------------------------------------------------------------
' Last Modified:
'
' Inputs: Form name
' Dependency: N/A
'--------------------------------------------------------------------------
'
Public Function getFormFilters(FrmName As String) As String

On Error GoTo getFormFilters_Error

If Not CurrentProject.AllForms(FrmName).IsLoaded Then
DoCmd.OpenForm FrmName, acNormal, , , , acHidden
getFormFilters = Forms(FrmName).Filter
DoCmd.Close acForm, FrmName
Else
getFormFilters = Forms(FrmName).Filter
End If

On Error GoTo 0
Exit Function
getFormFilters_Error:

MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure getFormFilters of Module AWF_Related"

End Function

In my test,
Debug.Print frm.name & vbCrLf & vbTab & "Filter: " & vbTab & getFormFilters(frm.name)
the result shows the Form name and the Filter on next line
Customer Orders
Filter: ((Customers.Country="Mexico"))