Userform textbox selection clears the other texboxes

[ipbr21054]

Hi,

On my userform i have 5 TextBoxes which i use to search for purposes then the listbox is populated.
Currently i can type in each one leaving text in them but im looking to clear each one when another is selected.
See photo example.

What i would like to be able to do is this if you could advise please.

Lets say i type ABC in the first textbox but i then type XYZ in the last textbox.
When i select the last textbox the code should clear the ABC from the first on.
Basically only allowing the user to show text in any one textbox at a time.

I can write an incorrect long winded code but not sure how to do it correctly in only a few lines.
Each TextBox has a custom name.
TextBoxBlank
TextBoxVehicle
TextBoxItem
TextBoxProgrammer
TextBoxChip

 

[sykes]

Well....
One (slightly schoolboy) way of achieving this, would be to have a little procedure for emptying ALL of your boxes...

Sub empty_txtbxs()
    With Me
        .TextBoxBlank.Value = ""
        .TextBoxVehicle.Value = ""
        .TextBoxItem.Value = ""
        .TextBoxProgrammer.Value = ""
        .TextBoxChip.Value = ""
    End With
End Sub

Then within the "Enter" event of each box, call the procedure:
This would be the procedure for "TextBoxBlank", for example:

Private Sub TextBoxBlank_Enter()
Call empty_txtbxs
End Sub

...You'll need to write similar lines into each of the other boxes' _enter events.

 

[ipbr21054]

Hi,
Where do i put the first code you show ?

 

[ipbr21054]

I have this but it makes no difference.

Can you see my error ?

Private Sub TextBoxBlank_GotFocus()
    Call Clear_TextBox
End Sub
Sub Clear_TextBox()
    With Me
        .TextBoxBlank.Value = ""
        .TextBoxVehicle.Value = ""
        .TextBoxItem.Value = ""
        .TextBoxProgrammer.Value = ""
        .TextBoxChip.Value = ""
    End With
End Sub

 

[ipbr21054]

All sorted.

changed to Enter like you advise & works.
Vave a nice day

 

[sykes]

Ah, good; I was just about to answer, too!
Glad it worked, and thanks for the feedback.