Labele Şartlı Yazı Yazdırmak

[yavuz829]

Merhaba Arkadaşlar
Label1 e şartli yazı yazdırmak istiyorum.

Eğer TextBox1 =0 ise Label1 de BAKİYE yazısı görünsün.
Eğer TextBox1 >0 ise Label1 de BİZ ALACAKLIYIZ yazısı görünsün.
Eğer TextBox1 <0 ise Label1 de BİZ BORÇLUYUZ yazısı görünsün.

Bu konuda yardımlarınıza ihtiyacım var. Saygılarımla.

 

[YUSUF44]

Textbox’taki veriler nasıl değişiyor?

 

[yavuz829]

Hocam Kaydet CommandButton1, Sil CommandButton15, ve Değiştir CommandButton12 ile

 

[YUSUF44]

Textboxın değişmesini sağlayan kodlar nedir?

 

[yavuz829]

Hocam programı ekliyorum.

UserForm1 de TextBox65 inndeki rakamlar değiştiği zaman Label88 in içindeki aşağıdaki kriterlere göre değişsin.

Eğer TextBox65 =0 ise Label88 de BAKİYE yazısı görünsün.
Eğer TextBox65 >0 ise Label88 de BİZ ALACAKLIYIZ yazısı görünsün.
Eğer TextBox65 <0 ise Label88 de BİZ BORÇLUYUZ yazısı görünsün.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub TextBox1_Change()
If Me.TextBox1 = 0 Then Me.Label1 = "BAKİYE"
If Me.TextBox1 > 0 Then Me.Label1 = "BİZ ALACAKLIYIZ"
If Me.TextBox1 < 0 Then Me.Label1 = "BİZ BORÇLUYUZ"
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = ""
Me.Label1 = ""
End Sub

 

[yavuz829]

Çok Teşekkürler Hocam ellerinize sağlık.