[AccessD] Iterate Through All Forms and Control

I used Tools|Options|Datasheet.  Changed to book antiqua (horrible font!).
The tables now display in book antiqua.  Well, 'A Charming Font' is even
worse!

I had to close the table and reopen it to see the changed font.

I haven't actually tried looking at a form in datasheet view.

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 6:37 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Iterate Through All Forms and Control

It worked except for the subforms which are in datasheet format but, even
though in design view the text box fonts are Book Antiqua the form still
shows in Arial. Or MS Sand Serif, not sure.  When I open the table directly
it displays in Book Antiqua,  IN Tool-->Options-->Datasheet and
Tools-->Options-->Tables/Queries I changed the font to Book Antiqua.  

But no luck.  Datashsset subform is still not displaying in Book Antiqua.
Is there somewhere else this default is set?

MTIA


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

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com