Zoom box

  • Thread starter Thread starter Arturo
  • Start date Start date
A

Arturo

I am using the following to expand a memo field.

DailyNotes.SetFocus
DoCmd.RunCommand acCmdZoomBox

How do I get the cursor to go to the end of the filed?

Thank you.
 
No, it didn't work. Let me qualify that a little more. I want the cursor to
go to the end of the Zoom Box when it opens.

Thank you.
 
Continuous form should not make any difference, as long as you use the nav
buttons to move thru the form, and in the current event put
MyZoomBox.visible= false

You can make the zoombox as big as the entire form, if you want. Use a BIG
font!

Also, by making this a simple subroutine, you can call it from multiple
bound textboxes,
like this:

Private Sub txt1_DblClick(Cancel As Integer)
Zoomin (Me.txt1.ControlSource)
End Sub

Sub Zoomin(ctrlsource As String)
MyZoomBox.Visible = True
MyZoomBox.ControlSource = ctrlsource
MyZoomBox.SetFocus
MyZoomBox.SelStart = Nz(Len(Me.MyZoomBox), 0)
End Sub

Damon
 
Back
Top