[AccessD] A2K: Loop through Forms and close open forms

Glen
Many many thanks 
Just what I needed
Many thanks

Darren

----- Original Message ----- 
From: "Glen McWilliams" <glen_mcwilliams at msn.com>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, June 01, 2004 11:10 AM
Subject: RE: [AccessD] A2K: Loop through Forms and close open forms


> Darren
> 
> Here is a snippet from my shut-down module, which walks through the Forms 
> collection closing any open form:
> 
> '****Begin Code****
>    ' Close any open Forms.
>    ' Loop through the Forms collection.
>    For Each objTmp In dbsCurrent.Containers("Forms").Documents
>       ' Assign the name propery value, for each Form, to the Name string 
> variable.
>       strName = objTmp.Name
>       If gfnIsObjectOpenBln(acForm, _
>                             strName) Then
>          ' Use the Close method of the DoCmd object to close the specified 
> object.
>          DoCmd.Close acForm, strName
>       End If
>    ' Repeat the foregoing block of statements for the next element in the 
> specified
>    ' collection.
>    Next objTmp
> '****End Code****
> 
> 
> >From: "Darren DICK" <d.dick at uws.edu.au>
> >Reply-To: Access Developers discussion and problem 
> >solving<accessd at databaseadvisors.com>
> >To: "AccessD List" <AccessD at databaseadvisors.com>
> >Subject: [AccessD] A2K: Loop through Forms and close open forms
> >Date: Tue, 1 Jun 2004 09:46:57 +1000
> >
> >Hello all
> >
> >I want to loop through the Forms collection and close any form/forms that 
> >is/are open.
> >
> >Any suggestions?
> >
> >Many thanks in advance
> >
> >Darren
> >
> >--
> >_______________________________________________
> >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