ZOOM button 1

[EEDirect]

Hello there. I am in need of a button to open (or ZOOM) my notes field. I can't seem to figure out the code. Can someone offer some advise?

thks.

Thanks & Regards,
EEDirect

http://www.dteservices.com

 

[dhookom]

How about pressing Shift+F2?

Duane
Hook'D on Access
MS Access MVP

 

[EEDirect]

This is for people who don't know keyboard shortcuts. Besides, I want to make it user freindly.

Thanks & Regards,
EEDirect

http://www.dteservices.com

 

[MajP]

Zoom the selected control

Private Sub cmdZoom_Click()
  Call zoomCtrl
End Sub

Public Sub zoomCtrl()
  Dim ctrl As Access.Control
  Set ctrl = Screen.PreviousControl
  If ctrl.ControlType = acTextBox Or ctrl.ControlType = acComboBox Or ctrl.ControlType = acListBox Then
     ctrl.SetFocus
     DoCmd.RunCommand acCmdZoomBox
  End If
End Sub

 

[EEDirect]

Thanks MajP.
That worked and did what I needed it to.
A BIG thumbs up.

Thanks & Regards,
EEDirect

http://www.dteservices.com