[AccessD] ...close open forms

...tks Lambert, that works like a charm.

William

----- Original Message ----- 
From: "Heenan, Lambert" <Lambert.Heenan at AIG.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 5:50 PM
Subject: Re: [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
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>