if text = "" then vba satırı çalışmıyor :(

[erty]

If Text4 = "" Then
Text22.Value = "AŞAĞIDAKİ KUTU BOŞ"
Else
Text22.Value = "AŞAĞIDAKİ KUTU DOLU"
End If

Yukardaki gibi yazdığımda hiçbir zaman text4="" olayını algılayamıyor Lütfen acilen yardımınıza ihtiyacım var Eğer ekteki dosyayı indirip vba kodlarına bakarsanız tam olarak ne yapmak istediğimi daha iyi anlayabilirsiniz. Aşağıdaki textbox'a herhangi bir yaz girdiğimde "AŞAĞIDAKİ KUTU DOLU", boş bıraktığımda ise "AŞAĞIDAKİ KUTU BOŞ" yazmasını istiyorum ama nedense bi türlü olmuyo ve herzaman boş da olsa dolu da olsa "AŞAĞIDAKİ KUTU DOLU" yazısı çıkıyo

 

[modalı]

Bir de aşağıdaki gibi deneyin.
If Nz(Text4) = "" Then
Text22.Value = "AŞAĞIDAKİ KUTU BOŞ"
Else
Text22.Value = "AŞAĞIDAKİ KUTU DOLU"
End If

İyi çalışmalar

 

[erty]

Çok teşekkür ederim modalı, çalıştı

 

[Merhum İdris SERDAR]

Private Sub Command10_Click()

If Text4.Value <> 0 Then
Text22.Value = "AŞAĞIDAKİ KUTU DOLU"
Else
Text22.Value = "AŞAĞIDAKİ KUTU BOŞ"
End If

End Sub

Bu şekilde deneyin.