[AccessD] ...close open forms

Sub CloseForms(arrKeepers as Variant)
Dim F as Form
Dim n As Long
Dim bKeep as Boolean

	For Each F in Forms
		bKeep = False
		For n = lBound(arrKeepers) to Ubound(arrKeepers)
			If F.Name =  arrKeepers(n) Then bKeep=True
		Next n
		If Not bKeep Then DoCmd.Close acForm, F.Name,acSaveYes
	Next F
End Sub

Useage

CloseForms Array("NameOfSwitchBoardForm","FormBeingOpened")

HTH

Lambert
		

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Wednesday, January 18, 2006 5: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