Zoom Box Font

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am opening the ZoomBox with DoCmd.RunCommand acCmdZoomBox on Dbl-Click.

I need to change the Front Size but without any global or permanent changes
to Access 2007. I also need to set a different font size when opening from
two different Felds. The font is currently changed by the user after the
ZoomBox opens -is there a way to do this with code?

I have searched this group and Google, the answer is probably there but, if
it is, I am missing it.

Any help would be appreciated.
 
I have absolutely no idea whether this still works in Access 2007 or not.
Here is aprevious post of mine on this subject.

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.
 
Thank you.

It does not work in 2007, or I am not making it happen.
I get "Variable not defined" when comipling.
 
Tom Ventouris said:
Thank you.

It does not work in 2007, or I am not making it happen.
I get "Variable not defined" when comipling.
Click to expand...

Did you set the reference to Utility.MDA? If you didn't, you'd get that
error.
 
The refernce does it, thank you. The full code, (without the error handling)
posted here for future ref:

Public Function ZoomBoxFunction()
DoCmd.RunCommand acCmdZoomBox
utility.zoom_iFontSize = 14
End Function

For 2007:
I found the library in C:\Program Files\Microsoft Office\Office12\ACCWIZ
 
Back
Top