Text Box Zoom Question

[Posse John]

I have a form with a text box that has:
..
Private Sub txtEntry_DblClick(Cancel As Integer)
DoCmd.RunCommand acCmdZoomBox
End Sub
..
When the zoom box displays, all the text is selected.

Is there a way to have the cursor display at the last character?

 

[Cindy]

Use the following in the On Enter event to move it to the end:
Me!txtEntry.SelStart = Len(txtEntry)

OR Put the following in the On Enter event to move the cursor to the
beginning:
Me!txtEntry.SelLength = 0

Cindy