Automatically adjust fonts in the zoom box on DoCmd.RunCommand acCmdZoomBox

[hrprabhu]

Hi All,

I am still using Access 2003. Some of the users of the database I creat are quite old. Have difficulty reading small fonts.

I use DoCmd.RunCommand acCmdZoomBox on double click events of text and memo fields for a zoom box to pop up.

My question is how I make the fonts bigger and bolder automatically instead of the standard size 8. The users have to click on the Fonts button and change to their requirements and they are annoyed!

Thanks in advance

Raghu from Melbourne

[zmbd]

For each control of interest in the double click you can set
Me.YourControlNameHere.FontSize = 15
On lost focus event set the font size back to 10 or 8 etc...

[ADezii]

To the best of my knowledge, there is no way to programmatically adjust the Size of the Font within the Zoom Box. This is complicated by the fact that this is a Dialog Box. What you can do, however, is create your own Custom Zoom Box (Form with minimal Controls) which will accomplish what you have requested. You can even capture the SHIFT+F2 Keystrokes that by Default Open the Zoom Box, and Open your Custom Form.

[zmbd]

I'm so sorry,
That's what I get for reading and running... I thought you had a custom "zoom"

This works for Access 2010
The major thing is that reference to the utility library or you get an error 2040

Private Sub z_ctrl_txtbx_filelocation_DblClick(Cancel As Integer)
On Error goto z_error_trap:
    'You must have the: {tools}\{References}: [x]utility
    utility.zoom_iFontSize = 24
    utility.BuilderZoom Application.Screen.ActiveForm.Name, Application.Screen.ActiveControl.Name, _
    Nz(Application.Screen.ActiveControl.value, "")
z_resume_from_error:
exit sub
z_error_trap:
If Err.Number = 2040 Then
        MsgBox "Sorry, the automatic zoom isn't available right now. Please Press [F2] and adjust the font size by hand.", , "Missing Utility Reference"
    Else
        MsgBox "Error Number: " & Err.Number & vbCrLf & "Error Text: " & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Terminal Error"
End Sub

- I have no idea where that library refernence is now that we've moved to Windows 7... I'll have to find the path.

[hrprabhu]

Thanks zmbd and ADezii will try and what I can do.

[TheSmileyCoder]

I once created a form which would popup with a big textbox, in which the font was chosen (and saved) per user. The intention was not exactly old people, but more to be used in meetings where the screen might be hard to see for some. If interested I can try to find for you during teh weekend.

[hrprabhu]

Thanks very much. It would be much appreciated.