[AccessD] Iterate Through All Forms and Control

Dan:

Actually got it cribbed from some site on the net so it's done - had to
change the font on EVERY control in an app.  From Arial to Book Antigua.
Arial is a good readable san serif font.  Book Antiqua is serif and butt
ugly on the display - looks like a burning chicken ran across the display
with ink on its feet.  I'm saving the code in case they want to change back.



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 Dan Waters
Sent: Tuesday, December 09, 2008 4:13 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Iterate Through All Forms and Control

Hi Rocky,

Take a look at CurrentProject.AllForms.  Might help?

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Tuesday, December 09, 2008 5:40 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Iterate Through All Forms and Control

Dear List:
 
I need to iterate through all the forms and controls in a db.  I did this
before but can't find the code.
 
So I started with 

MsgBox Forms.Count
Dim frm As Form
Dim ctl As Control
For Each frm In Forms
    For Each ctl In frm.Controls
        MsgBox frm.Name & " " & ctl.Name
    Next ctl
Next frm
 
but this only does the open forms - Forms.Count=1.
 
I can't remember how to get all the forms.  Does anyone have a snip for this
 
MTIA
  	
	
 

Rocky Smolin

Beach Access Software

858-259-4334

www.e-z-mrp.com <http://www.e-z-mrp.com/> 

www.bchacc.com <http://www.bchacc.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