>> Zoombox font

[Guest]

Hi, using Access 2002. In the popup zoom box (SHIFT+F2) there is an option to
chance the font. Unfortunitely you seem to have to reset the font for each
session.

Is there a method to save changes to the zoom box font?

Any suggestions or recommendations appreciated

Many thanks,
Jonathan

 

[fredg]

Hi, using Access 2002. In the popup zoom box (SHIFT+F2) there is an option to
chance the font. Unfortunitely you seem to have to reset the font for each
session.

Is there a method to save changes to the zoom box font?

Any suggestions or recommendations appreciated

Many thanks,
Jonathan

I wish that was a feature also, but unfortunately, you need to change
it each time.

 

[Stephen Lebans]

Hi Fred,
the OP can set a Reference to the Utility.MDA, setup an AutoKeys Macro
Group, with a Macro named "+{F2}", an Action of RunCode, a Function name of
"MyZoom".

The function below requires error code/logic to handle when the AutoKeys
Macro is called without a valid current Form and/or a valid current
Control.


Add the following code to a standard Code module:

Public Function MyZoom()

utility.zoom_iFontSize = 24

Call Application.Run("UTILITY.BuilderZoom",
Application.Screen.ActiveForm.Name, Application.Screen.ActiveControl.Name,
Application.Screen.ActiveControl.Value)

End Function


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

Hi Stephen,

very nice

I will explore the Utility.mda to see what other gems it includes...

Many thanks
Jonathan Parminter

Hi Fred,
the OP can set a Reference to the Utility.MDA, setup an AutoKeys Macro
Group, with a Macro named "+{F2}", an Action of RunCode, a Function name of
"MyZoom".

The function below requires error code/logic to handle when the AutoKeys
Macro is called without a valid current Form and/or a valid current
Control.


Add the following code to a standard Code module:

Public Function MyZoom()

utility.zoom_iFontSize = 24

Call Application.Run("UTILITY.BuilderZoom",
Application.Screen.ActiveForm.Name, Application.Screen.ActiveControl.Name,
Application.Screen.ActiveControl.Value)

End Function


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.