textbox eğer sorunu

[kemal turan]

merhaba,
Aşağıdaki kodda textbox107 değerine göre label caption u belirlemek istiyorum.
her türlü sonuçda label caption "borçluyuz " oluyor.:dusun:

If TextBox107.Value < 0 Then
Label16.Caption = "alacaklıyız"
Else
If TextBox107.Value = 0 Then
Label16.Caption = "hesap sıfır"
Else
If TextBox107.Value > 0 Then
Label16.Caption = "borçluyuz"
End If
End If
End If

 

[Orion1]

Buyurun.

If cdbl(TextBox107.Value) < 0 Then

 

[kemal turan]

merhaba Sn Orion
hata verdi.
aşağıdaki gibi denedim yine hata verdi. (type mismatch)

Private Sub TextBox107_Change()
If Format(CDbl(TextBox107.Value), "#,##0.00") < 0 Then
Label16.Caption = "alacaklıyız"
Else
End If
If Format(CDbl(TextBox107.Value), "#,##0.00") = 0 Then
Label16.Caption = "hesap sıfır"
Else
End If

If Format(CDbl(TextBox107.Value), "#,##0.00") > 0 Then
Label16.Caption = "borçluyuz"
Else
End If

End Sub

 

[Orion1]

sizin yazdığınız format kodunu kaldırın.
Benimkini yazın.
Textboxların içinde sayısal veri ve ondalık ayıracı haricinde yazı olmasın.

 

[kemal turan]

Merhaba Sn Orion
Teşekkür ederim
Textbox107 de format & TL vardı.
Sorun ondanmış.
Teşekkür ederim.
Selametle kalınız

 

[Orion1]

Merhaba Sn Orion
Teşekkür ederim
Textbox107 de format & TL vardı.
Sorun ondanmış.
Teşekkür ederim.
Selametle kalınız

Rica ederim.
İyi çalışmalar.