Zoom box

[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.

 

[Arturo]

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.

 

[Arturo]

I am using the continuous forms setting. Any other thoughts?

 

[Damon Heron]

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