[AccessD] Open all forms

Rocky

In my Utility Functions module, I have two functions defined:

Function cbfGotFocus()
    Me.ActiveControl.BackColor = 8454143
End Function

Function cbfLostFocus()
    Me.ActiveControl.BackColor = vbWhite
End Function 

Then, in each control, I have the Got Focus event = "=cbfGotFocus()" and the
Lost Focus event = "=cbfLostFocus()". You should be able to set these
variables too during your control looping.

This is a rather bright yellow; you'll probably want to a softer color.

Regards,
Bob Gajewski

** Please consider the environment before printing this e-mail **

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Monday, July 21, 2008 13:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Open all forms

Andy:

Worked perfectly.  Now I'm going to cycle through al the controls and change
the font name.  Which I think I can do.

But I'd like to add conditional formatting to each text box so that it shows
pale yellow background when it has the focus.  Apparently you can only do
this manually one control at a time - won't do multiple selections. So that
could be tedious.

Any ideas how to do that while I've got the form open in design mode?  


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 Andy Lacey
Sent: Monday, July 21, 2008 10:30 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [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
>
>


--
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