Zoom Box Font

[Tom Ventouris]

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.

[Stephen Lebans]

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.

"Tom Ventouris" <TomVen...@discussions.microsoft.com> wrote in message
news:E8BB3E56-170D-4EF9...@microsoft.com...

[Tom Ventouris]

Thank you.

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

[Arvin Meyer [MVP]]

"Tom Ventouris" <TomVen...@discussions.microsoft.com> wrote in message

news:D0A22C33-982C-4D05...@microsoft.com...

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

Did you set the reference to Utility.MDA? If you didn't, you'd get that
error.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

[Tom Ventouris]

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