How do I Expand a field with a mouse click instead of using SHIFT+

[efandango]

Does anyone know how to Expand a field with a mouse click instead of using
SHIFT+F2. The field in question is a note field and is one of many that very
often run over a few lines which become obscured du to the (necessary) size
limitation. Ideall, i would like to link the 'expand command' do a mouse
double click. I can't find any reference to Keyboard Calls for SHIFT+F2.

 

[mscertified]

Include this code in the 'double click' event:

Private Sub MyControl_DblClick()
Me!MyControl.SetFocus
DoCmd.RunCommand acCmdZoomBox
SendKeys "^{HOME}" 'Scroll back to beginning (CTRL-HOME)
End sub

 

[efandango]

Since posting this question, I have solved the problem myself, so i thought
it best to share the solution with you.

The anser is to crate a Macro with a 'Sendkeys' Action
set for Double-Click mouse.
The required kestroke string is +{F2}

problem solved.

 

[fredg]

Does anyone know how to Expand a field with a mouse click instead of using
SHIFT+F2. The field in question is a note field and is one of many that very
often run over a few lines which become obscured du to the (necessary) size
limitation. Ideall, i would like to link the 'expand command' do a mouse
double click. I can't find any reference to Keyboard Calls for SHIFT+F2.

Code that control's double-click event:
DoCmd.RunCommand acCmdZoomBox