[AccessD] Open all forms

Hi Rocky

This might do what you're after

Dim dbs As Database
Dim Ctr As Container
Dim Doc As Document

  Set dbs = CurrentDb
  Set Ctr = dbs.Containers!Forms
  ' Enumerate through Documents collection of Forms container.
  For Each Doc In Ctr.Documents
    DoCmd.OpenForm Doc.Name, acDesign
    Forms(0).CloseButton = False
    DoCmd.Close acForm, Doc.Name
  Next Doc


Then set stuff to Nothing at the end.

-- Andy Lacey
http://www.minstersystems.co.uk 



>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com 
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
>Sent: 21 July 2008 17:29
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Open all forms
>
>
>Hi Rocky
>
>Not Segoe but Trebucket is on most newer machines.
>If you wish to have zero trouble with fonts use MS Sans Serif, 
>the old bitmapped font. Actually it is very good (and digits 
>are mono spaced) and has been with Windows since Windows 1.0.
>
>/gustav
>
>>>> rockysmolin at bchacc.com 21-07-2008 18:15 >>>
>Are Segoe and Trebucket going to be standard with older Windows? 
>
>
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com 
>www.bchacc.com 
> 
> 
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com 
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
>Sent: Monday, July 21, 2008 9:10 AM
>To: accessd at databaseadvisors.com 
>Subject: Re: [AccessD] Open all forms
>
>Hi Rocky
>
>In my experience, Arial is a bad choice for a screen font. 
>Indeed digits don't come out nice. Verdana and Tahoma or the 
>new Segoe are much to prefer
>- or Trebucket (one of my favorites) if you can get away with it!
>
>/gustav
>
>>>> rockysmolin at bchacc.com 21-07-2008 17:25 >>>
>
>.. I can change the Times font to Arial or Tahoma ..
>
>
>
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com 
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>