Alter zoom text default font

[Nick]

We use replication and so are required to have memo fields unbound. That
means text cannot be entered directly into them. Instead, we have a command
button that brings up the "zoom" window, which is not a control with
editable properties.

The zoom window (as in "Zoom" to view/edit a property field) has a built in
font command button, but that is what we are trying to get around using. It
is time consuming to adjust it to a readable size everytime the window is
opened. How can the default font of that "zoom" window be adjusted?

 

[Arvin Meyer [MVP]]

While it is possible to get to the Zoom form, it is secured and there is no
way that I know of to save any changes.

 

[AccessVandal via AccessMonster.com]

Hi Nick,

Why the trouble of using access built-in "Zoom"?

Is it possible to create a look alike Form with a Textbox with it's fonts set
bigger?

 

[Stephen Lebans]

Here's a previous post of mine on a related issue.

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.