I need to highlight text in a textbox on enter or click

[AccessMan]

name of textbox is txt_EnterDate

I want to be able to highlight the text in the textbox when i click into it with mouse, for easy editing

I could just clear it; txt_EnterDate = ""

but the user would need to see what date was previously entered

i've already used

Private Sub txt_EnterDate_GotFocus()

'If txt_EnterDate > "" Then
'txt_EnterDate.SelStart = 0
'txt_EnterDate.SelLength = Len(txt_EnterDate)
'End If

End Sub

Thanks for replies

 

[MarkK]

What was wrong with your GotFocus handler?

 

[boblarson]

Change this part:

'If txt_EnterDate > "" Then

to this:

If Len(Me.txt_EnterDate)> 0 Then

 

[AccessMan]

i found the answer in another forum here;

http://www.access-programmers.co.uk/forums/showthread.php?t=168189&highlight=highlight+text

My code was correct. It had to be placed in BOTH gotfocus and click event.

Thanks

 

[boblarson]

My code was correct.

Actually, not quite. You still should change it as I showed you so it will deal with nulls and empty strings. Your code as shown was only handling empty strings.

 

[AccessMan]

Ok, i'll heed your advice.

Cheers! or Slàinte in Irish

 

[boblarson]

Ok, i'll heed your advice.

Cheers! or Slàinte in Irish

Actually, let me modify it slightly to:

If Len(Me.txt_EnterDate & "")> 0 Then

NOW it will handle nulls and empty strings.