Display a List of all Form's ServerFilter Property

A

Aubrey

How can I Loop throught the Forms Collection, and check each one for non
blank ServerFilter Propreties?

Occasionally, while Debugging, a ServerFilter gets defined (by the
underlying processes), and I forget to scan all edited Forms for these
instances.

(Just moved interstate, and all my books are still packed. Did not find
anything on MSDN CD or Google (yet...).
 
A

Aubrey

CurrentProject works GREAT for displaying AllForms.Name

What is the syntax to Display the Forms(0).ServerFilter Property?

I tried the DoCmd.OpenForm (frmName)
but the OnCurrent Events sidetracked that . . .
so, there has to be a way to Open the Form (in Design Mode?) . . .
 
A

Aubrey

Ouch!! Bitten by the "Group Shout" bug. This code works good for me:

Public Sub SrvrFltr()
Dim obj As AccessObject, dbs As Object, Str As String
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
Str = Left$(" ",
(30 - Len(obj.Name)))
DoCmd.OpenForm obj.Name, acDesign
If Len(Forms(0).ServerFilter) > 0 Then
Debug.Print obj.Name; Str; Forms(0).ServerFilter
End If
DoCmd.Close
Next obj
End Sub
 
P

Peter Yang [MSFT]

Hello Aubrey,

Nice to see you found the solution. It will surely benefit the community.
:)

Regards,

Peter Yang
MCSE2000/2003, MCSA, MCDBA
Microsoft Online Partner Support

When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.

=====================================================



This posting is provided "AS IS" with no warranties, and confers no rights.


--------------------
Thread-Topic: Display a List of all Form's ServerFilter Property
thread-index: AcXSjXTVO7o9JiNrTxaYA0RpbpByuA==
X-WBNR-Posting-Host: 69.221.213.233
From: =?Utf-8?B?QXVicmV5?= <[email protected]>
References: <[email protected]>
Click to expand...
 
Top