textbox kutucuğuna (-)eksi değer yazılmasın

[yesilcan]

Değerli hocalarım sevgili arkadaşlar saat 18:00'dan bu yana kadar daha önce gönderilmiş konulara bakıyorum
fakat bir türlü bulamadım.

amacım textbox kutucuğuna - değer girilmemesi istiyorum..
yani - 0 ,-1 ,-2 ....gibi

yardımlarınızı rica ediyorum.
Saygılarımla.

 

[dEdE]

Merhaba,
Aşağıdaki kod umarım işinize yarar.

Private Sub TextBox1_Change() 'sadece rakam girişi
    If TextBox1.Value <= 0 Then SendKeys "{BS}"
End Sub

 

[yesilcan]

sayın hocam öncelikle ilgine çok teşekkür ederim
fakat 3 adet textbox kutucuğu var
aşağıdaki kodda da anlaşılacağı gibi TextBox24'deki adedi,25'den çıkartıyorum
kodunuzu uyguladığımda - yazdıktan sonra textbox 26 adedi değişiyor.yardımcı olurmusunuz?_

Private Sub TextBox25_Change()
On Error Resume Next
TextBox26 = Val(Me.TextBox24) - (Me.TextBox25)
If TextBox25.Value <= 0 Then SendKeys "{BS}"
End Sub

 

[Erdem Akdemir]

sayın hocam öncelikle ilgine çok teşekkür ederim
fakat 3 adet textbox kutucuğu var
aşağıdaki kodda da anlaşılacağı gibi TextBox24'deki adedi,25'den çıkartıyorum
kodunuzu uyguladığımda - yazdıktan sonra textbox 26 adedi değişiyor.yardımcı olurmusunuz?_

Private Sub TextBox25_Change()
On Error Resume Next
TextBox26 = Val(Me.TextBox24) - (Me.TextBox25)
If TextBox25.Value <= 0 Then SendKeys "{BS}"
End Sub

örnek bir dosya eklermisiniz?

 

[dEdE]

Merhaba,
Sayın kuvari haklı. İlk sorunuzun yanıtı tamam ama şimdi soru değişti. Örnek dosya ekleyerek gereksiz yazışmaları engelleyebiliriz. Böylece forumumuz daha düzenli olur.
Yine de şunu deneyin.

Private Sub TextBox25_Change()
On Error Resume Next

If TextBox25.Value <= 0 Then
    TextBox25.Value = ""
    TextBox26 = ""
End If
TextBox26 = Val(Me.TextBox24) - Me.TextBox25

End Sub

Saygılar.

 

[yesilcan]

sayın dede son cevabın doğrudur.
işimi gördüm
teşekkür ederim.
saygılar.

 

[dEdE]

Rica ederim.
Güle güle kullanın.