Display a List of all Form's ServerFilter Property

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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...).
 
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?) . . .
 
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
 
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...
 
Back
Top