Solved: Setting CommandButton = False under a specific condition

[Bob Blooms]

My knowledge of Excel VBA is growing with the help of this forum. Thanks!

Now I am really getting brave, you know a little bit of knowledge is dangerous. What I am trying to accomplish is to remove the ability of the user to click on a commandbutton prior to entering data into a textbox. So while TextBox1 = "" CommandButton3 = False.

I'm thinking that when the userform is initialized CommandButton3 would be set to False

Is this correct? But I have no idea of what the code should be.

[lucas]

One example:

for the initialize:
[vba]Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub
[/vba]

for the textbox:
[vba]Private Sub Textbox1_Change()
If TextBox1.Value <> "" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub
[/vba]

[Bob Phillips]

Steve, keep it mean

[vba]

Private Sub Textbox1_Change()
CommandButton1.Enabled = TextBox1.Value <> ""
End Sub
[/vba]

[lucas]

Well of course. Lean and mean is always better...

Thanks Bob.

[mdmackillop]

Meaner?
[VBA]
CommandButton1.Enabled = Len(TextBox1)

[/VBA]

[Bob Phillips]

Meaner?
[VBA]
CommandButton1.Enabled = Len(TextBox1)

[/VBA]

Positively austere! Although I think it is cheating a bit by using the default property (you know my views on property defaults!).

[Paul_Hossler]

All lean, mean, and austere solutions are indeed elegant, but Lucas' approach has --- IMHO --- the advantage of being easier to decypher in a year or two when you come back to it

Paul

[Bob Blooms]

Wow! It is great to have options. However, being a VBA sub-neophyte I went with the code by Lucas. I need the practice of writing and tracing the code. I'll spend today applying this new knowledge to all the other buttons on my userform. Thanks to you all!!!!