place cursor behind last text in memo field 2

[rene1000]

I have created a button which inputs the date in a memo field. Once this is done i want to put the focus on the memo field again and i would like the cursor to be placed behind the just inserted date.

this is what i have so far:

Screen.PreviousControl = description & vbCrLf & vbCrLf & Date & " : "
Screen.PreviousControl.SetFocus

this however place the cursor in the upmost left corner of the memo field. Anyone know how to achieve what i want ?

 

[Eupher]

Use the SelStart property to position the cursor where you want it within the text in the field, but the Screen.PreviousControl object doesn't support this property. So you'll need to assign the previous control to a control variable (or textbox variable). For instance:

Dim ctl As Control
Set ctl = Screen.PreviousControl

ctl = Date
ctl.SetFocus
ctl.SelStart = Len(ctl)

Ken S.

 

[rene1000]

Again a very helpfull post Ken. many thanks !

 

[BillPower]

Hi rene1000,

I would avoid using Screen.PreviousControl for a situation like this. If the button is clicked while another field other than "MemoFieldName" has the Focus, problems will arise.

Dim ctlTextToSearch As Control, strDescription As String, intFind As Integer, strFind As String
strDescription = "Replace this with Text or a Control Name, rename MemoFieldName with your MemoFieldName"
Set ctlTextToSearch = Me!MemoFieldName
ctlTextToSearch.SetFocus
ctlTextToSearch.Text = strDescription & vbCrLf & vbCrLf & Date & " : "
With Me!MemoFieldName
strFind = Date
intFind = InStr(.Value, strFind)
.SetFocus
.SelStart = intFind - 1
.SelLength = Len(strFind)
End With

Bill

 

[rene1000]

Hi Bill

You are right about that. Thanks for bringing that up

Rene