Display a List of all Form's ServerFilter Property

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...).
--
Aubrey Kelley

Hello Aubrey,

You may want to consider using CurrentProject.AllForms and DoCmd.OpenForm

http://msdn.microsoft.com/library/de...us/vbaac10/htm
l/accolAllForms.asp


Thanks & 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.

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

--
Aubrey Kelley


"Peter Yang [MSFT]" wrote:

Hello Aubrey,

You may want to consider using CurrentProject.AllForms and DoCmd.OpenForm

http://msdn.microsoft.com/library/de...us/vbaac10/htm
l/accolAllForms.asp


Thanks & 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.

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
--
Aubrey Kelley


"Aubrey" wrote:

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

--
Aubrey Kelley


"Peter Yang [MSFT]" wrote:

Hello Aubrey,

You may want to consider using CurrentProject.AllForms and DoCmd.OpenForm

http://msdn.microsoft.com/library/de...us/vbaac10/htm
l/accolAllForms.asp


Thanks & 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.

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?=
References:


Subject: Display a List of all Form's ServerFilter Property
Date: Sun, 16 Oct 2005 13:09:04 -0700
Lines: 53
Message-ID:
MIME-Version: 1.0
Content-Type: text/plain;
charset="Utf-8"
Content-Transfer-Encoding: 7bit
X-Newsreader: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.0
Newsgroups: microsoft.public.access.forms
NNTP-Posting-Host: TK2MSFTNGXA03.phx.gbl 10.40.2.250
Path: TK2MSFTNGXA01.phx.gbl!TK2MSFTNGXA03.phx.gbl
Xref: TK2MSFTNGXA01.phx.gbl microsoft.public.access.forms:64274
X-Tomcat-NG: microsoft.public.access.forms

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
--
Aubrey Kelley


"Aubrey" wrote:

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

--
Aubrey Kelley


"Peter Yang [MSFT]" wrote:

Hello Aubrey,

You may want to consider using CurrentProject.AllForms and
DoCmd.OpenForm


http://msdn.microsoft.com/library/de...us/vbaac10/htm
l/accolAllForms.asp


Thanks & 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.