Zoom field on form in Microsoft Access 2007

MeowserM
MeowserM used Ask the Experts™
on
Hello:

Is there a way to have the contents of a field (on a form) zoom (so it is easier to read) if you mouse over or click it?

Thank you,
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database Architect / Application Developer
Top Expert 2007

Commented:
You can hit Shift+F2 in any text or combo box to open the Access Zoom window.

mx

Author

Commented:
Thank you.

But is there any way to have the field "get larger" without the Zoom window box?  In my mind I was thinking something like the user would just click on the field and it would "pop out" so it was more readable.  Kinda like when you hit ctrl + or ctrl - when you are on a webpage.
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database Architect / Application Developer
Top Expert 2007

Commented:
Yeah, that would be cool.

I suppose there *might* be some clever way to do that, but I have not seen one.

It's possible you could tweak this:

http://www.lebans.com/tooltip.htm

... to grab the text in the box instead of a tool tip.  You might take a look.

mx
11/26 Forrester Webinar: Savings for Enterprise

How can your organization benefit from savings just by replacing your legacy backup solutions with Acronis' #CyberProtection? Join Forrester's Joe Branca and Ryan Davis from Acronis live as they explain how you can too.

MIS Liason
Most Valuable Expert 2012
Commented:
Can you post a screenshot of these controls that need this Zoom feature?
Why not just make the controls bigger?


The issue with doing things like this is the "annoyance" factor.
If this happens Automatically, as you have specified (if you mouse over or click it), this will become annoying to users who do not need this "Zooming"

You can try something like this though (on the click of a button)...
(Code and sample attached)

JeffCoachman
Private sglprvtH As Single
Private sglprvtW As Single
Private sglprvtF As Single

Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim sglZoomFactor As Single
sglZoomFactor = 2
    
    sglprvtH = Me.txtField1.Height
    sglprvtW = txtField1.Width
    sglprvtF = Me.txtField1.FontSize
    
    Me.txtField1.Height = Me.txtField1.Height * sglZoomFactor
    Me.txtField1.Width = Me.txtField1.Width * sglZoomFactor
    Me.txtField1.FontSize = Me.txtField1.FontSize * sglZoomFactor

End Sub

Private Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Me.txtField1.Height = sglprvtH
    Me.txtField1.Width = sglprvtW
    Me.txtField1.FontSize = sglprvtF

End Sub

Open in new window

Access-EEQ26663761-ZoomInToAAFor.accdb

Author

Commented:
Very clever.  This was what I was looking for.  I agree with you about the "annoyance" factor.  It was my thought when the user requested it.  The field contains very lengthy and wordy regulations.

Thank you very much for the solution.
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
Great,

This was actually an interesting little question
;-)

The other consideration might be that you space the controls wider apart, so that a "Zoomed" control does not cover (or get hidden behind) another control.
(You can also investigate the "Bring to Front" and "Send To Back" functionality to work around this perhaps?...)


JeffCoachman
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database Architect / Application Developer
Top Expert 2007

Commented:
Good one Jeff !

mx
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
MX,

Yeah, again, this was an interesting little Q.

As most Q's on this involve creating a "Zoom Form" to zoom into an image...

At first I just made the Control bigger (as requested).
Then I thought, "ummm, that looks lame", so I added code to make the font bigger too.

;-)

Jeff

Author

Commented:
Thanks again.  It is a cool solution.  I'll give you credit when they all ooohhh and awwe.
Jeffrey CoachmanMIS Liason
Most Valuable Expert 2012

Commented:
Royalty checks would be better...
LOL

But again, glad to help...

;-)

Jeff

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial