Cursor Jump

MonkeyChico

Registered User.
Local time
Today, 08:39
Joined
May 11, 2010
Messages
18
I have a button labeled "Add Note." When a user clicks the button it creates a date stamp in a related memo field (Me.Text3720). Here is the code:

Private Sub AddNote_Click()
Me.Text3720 = Me.Text3720 & vbCrLf & vbCrLf & Date & "--"
End Sub

Is there a way to make the cursor jump to after the date stamp so my users don't have to click in the memo field?

I am very new to VBA so exact code would be highly appreciated.

Thanks!
 
You can put
Code:
Private Sub AddNote_Click()
With Me
   .Text3720 = .Text3720 & vbCrLf & vbCrLf & Date & "--"
   .Text3720.SetFocus
   .Text3720.SelStart = Len(.Text3720)
   .Text3720.SelLength = 0
End With
End Sub
 
Bob, thank you very much it works perfectly! I appreciate your help.
 

Users who are viewing this thread

Back
Top Bottom