Şarta Göre Buton İptali Hakkında..

[yesimgurol]

Merhabalar ,

Userform da 30 adet Textbox bulunmaktadır. Kayıt düzeltme için verileri bu textbox lara alabiliyorum. Veriler üzerinde düzeltme işlemi yapıp KAYDET dediğimde kayıt işlemini de sorunsuz yapmaktayım.
Ne var ki eğer Textboxlar boş iken yanlışlıkla da olsa KAYDET butonuna bastığımda textboxlar boş olduğu için sayfadaki veriler de haliyle siliniyor.

Bunun önüne geçmek adına ,
Eğer ki, "Textbox 1" boş ise KAYDET butonu aktif olmasa
"Textbox 1" e veriler geldiği anda KAYDET butonu da aktif hale geçse..

Bu fikrim için forumda araştırma yaparken bulduğum kodları aşağıdaki şekilde düzenledim, fakat boş iken evet aktif olmuyor, ama verileri getirdiğimde Text lere, buton aktif hale geçmiyor:-(

Private Sub UserForm_Initialize()
    
    If TextBox1 = "" Then
        CommandButton4.Enabled = False
    Else
        CommandButton4.Enabled = True
    End If
    
End Sub

 

[muygun]

Merhaba;


Private Sub UserForm_Activate()
Me.Caption = "ÖNKAYIT MODÜLÜ"
CommandButton4.Enabled = False
End Sub

Private Sub TextBox1_Change()
If TextBox1 = "" Then CommandButton4.Enabled = False
If TextBox1 <> "" Then CommandButton4.Enabled = True
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[yesimgurol]

Teşekkür ederim, Sayın muygun,:bravo::dua2:

Harika oldu sayenizde,:mutlu::mutlu: