[AccessD] ...close open forms

Expanding on Lambert's suggestion:

In the OnOpen event of the called form, try

Dim f as Form

For Each f In Forms
	If f.Name <> Me.Form.Name and f.Name <> "frmSwitchBoard" Then
DoCmd.Close acForm. F.Name, acSaveYes
Next f

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Hindman
Sent: Wednesday, January 18, 2006 2:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms

Gustav

...thanks ...wish it was that easy ...it does what you say but not what
I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but
the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms
...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks
for 
> any
> other forms open, other than the sb, and closes them, saving their
data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com