Blank value in Listbox

[vijay2482]

thanks to all who had helped me in the previous threads.......

Private Sub Add_Click()
If TextBox2.Value = "" Then
MsgBox "Please Enter a Group-Unit/Assembly/Componant"
End If
ListBox1.AddItem TextBox2.Value
TextBox2.Value = ""
End Sub

this code will prompt a msg saying that the user has to enter a value in the textbox
it then adds the entered text in the listbox.

the change i want:
when the add button is clicked without any value in the textbox,a msg is prompted and the blank value is also entered in teh listbox......
how to change the code to avoid the addition of the blank value in the listbox???

thanks in advance

[Andy Pope]

You need to use IF THEN ELSE code.

Private Sub Add_Click()
If TextBox2.Value = "" Then
MsgBox "Please Enter a Group-Unit/Assembly/Componant"
else
ListBox1.AddItem TextBox2.Value
TextBox2.Value = ""
End If
End Sub

If you disable the button at design time and add this code to the change event of the textbox you can stop the user from clicking the button until the textbox has text.

On a userform with a textbox and commandbutton.

Private Sub TextBox1_Change()
    CommandButton1.Enabled = Len(Trim(TextBox1.Text)) > 0
End Sub

[vijay2482]

thanks a lot....
that works perfect