Clear text box on enter??

[ChrisHaynes]

I have a text box in a form with a default value. Does anybody know how to clear any text already in the text box when the user clicks/enters it?

Any help will be much appreciated!

Cheers.
Chris.

 

[ChrisHaynes]

Would it be possible to highlight the text instead?

 

[fneily]

On the OnEnter event place:

Me![Text7].Value = Null

Text7 is the name of your textbox.

 

[fneily]

Here's a little trick you can do to highlight a textbox that's clicked in.
Select the textbox in design view, bring up its' property sheet and change IN THIS ORDER, Back color to yellow, Back style to Transparent.
Then when they tab into the box, it will change to yellow and then back to transparent when they leave.

 

[MajP]

If you use the on enter event ensure you also should send the focus away from that control. If not as you scroll through records you will clear the text box inadvertantly.

Also I would not recommend the on enter event. I would think that you are begging for problems. How about click or dbl click?

Or at least give a chance not to clear

Private Sub txtBxName_Enter()
If Not Trim(txtBxName & " ") = "" Then
If MsgBox("Do you want to clear?", vbYesNo) = vbYes Then
Me.txtBxName.Value = Null
End If
End If
End Sub

 

[HarleyQuinn]

For highlighting I would look into the SelStart, SelText and SelLength properties of the textbox.

Hope this helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[ChrisHaynes]

Thanks alot for all your help. I found a really easy solutuion and also set it to change to yellow on enter like fneily suggested. I used this code:

To Highlight the contents of the text box on enter:

Private Sub Router_Search_For_Click()

SendKeys "{F2}"

End Sub

To change the colour of the textbox to yellow when i enter:

Private Sub Router_Search_For_GotFocus()

Me.Router_Search_For.BackColor = vbYellow

End Sub

To change the colour of the textbox back to normal when I exit:

Private Sub Router_Search_For_LostFocus()

Me.Router_Search_For.BackColor = vbWhite

End Sub

The combination works really well and is a really good effect. Thanks again everybody!

Chris.