enable ... buton

Здравейте на всички в този прекрасен клуб !
Имам удоволствието да попадна в този клуб, прекрасен е!
А сега, имам нужда от помощ !
Написах си код ,но нещо не се получава ето го :
Private Sub CommandButton1_Click()
If TextBox1.Text <>"" Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False

End If
End Sub

Искам ,когато стартирам кода бутона да не е активен ,а когато в текстбокса въведа текст той да се активира .

Мисля ,4е има подобна тема но не мога да я намеря.
Аз съм у4еничка ,която от скоро се занимава с ексел и VBA

Ето майчетоо, пробвай този код :
Private Sub TextBox1_Change()
If IsNumeric(Me.TextBox1.Value) Then Me.CommandButton1.Enabled = True
If IsNumeric(Me.TextBox1.Value) = 0 Then Me.CommandButton1.Enabled = False
If Len(Me.TextBox1.Value) Then Exit Sub
End Sub

Много ти благодаря drosg !!!

хахахаа, явно сам си задаваш въпроса, ама поне сменяй потребителя когато си благодариш сам.
И за да не е в заблуда другото ти аз - в текстбокса не е задължително да се въвеждат само цифри - така че IsNumeric може да не устройва всеки.

Geocaching в България

Майче, нямаш грешка в кода, просто проверката ти не е на необходимото място. Тя се извършва при кликването на команд бутона. При стартирането на кода трябва да направиш CommandButton1.Enabled = False , а после проверката ти да става при промяна на текс бокса