UserForm_Initialize'de If komutu

[vivident]

Merhaba

Ekteki dosyamda UserForm_Initialize olayının içinde if şartı kullandım, lakin şart doğru olmasına rağmen istediğim gibi çalışmıyor

Userform3'ten veri seçip butona tıklandığında Userform2 açılıyor
Textbox1 içerisi dolu ise label1'de "sicil var.Ok" değil ise "sicil yok" yazması gerekiyor. Lakin label1'de hep "sicil yok" ibaresi yazıyor

Private Sub UserForm_Initialize()
If TextBox1.Text = "" Then
Label1.Caption = "sicil yok"
Else
Label1.Caption = "sicil var. Ok"
End If
End Sub

 

[Erdem Akdemir]

Merhaba,

İnitialize olayı başlangıç'ta olur ve bir defa çalışır.

Aşağıdaki gibi deneyin istediğiniz olacaktır.

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then
Label1.Caption = "sicil yok"
Else
Label1.Caption = "sicil var. Ok"
End If
End Sub

 

[vivident]

Sayın kuvari kodu denedim, çalıştı. Yalnız aşağıda gibi değiştirdim.

Private Sub UserForm_Initialize()
If TextBox1.Text = "" Then
Label1.Caption = "sicil yok"
End If
End Sub
Private Sub TextBox1_Change()
Label1.Caption = "sicil var. Ok"
End Sub

 

[Erdem Akdemir]

Merhaba,

Sizin verdiğiniz kodda Text'in içini sildiğinizde sicil var yazar.

 

[vivident]

Text bir kez yüklendikten sonra bir daha değişmiyor. O yüzden sorun değil sayın kuvari