Display Field in Zoombox

This example displays a zoom box for a control. To use the code, create a button on the form and paste the code into the On Click event.

'************ Start of Code *****************
'Code courtesy of Terry Kreft 

Sub cmdZoom_Click()
   Screen.PreviousControl.SetFocus
   RunCommand acCmdZoomBox
End Sub
'************** End of Code *****************

Return to Example List