textbox'a eksi değer

[igultekin2000]

iyi günler;
Combobox1' i seçtiğimde Textbox11' e kumaş stok miktarı
Combobox2' i seçildiğinde Textbox6'a 1 adet mamül için gereken kumaş miktarı değer olarak geliyor. Textbox12 = Textbox11 / Textbox6 stok kumaştan kaç adet mamül üretilebileceğini görüyorum, buraya kadar sorun yok. Bundan sonra o an kaç adet mamul üretilmişse Textbox3' e yazarak ilgili sayfaya aktarıyorum. Textbox3'e rakam yazarken Textbox12' den fazla yazılmasını nasıl önleyebilirim. Teşekkürler. yani kumaş stoku eksiye düşmemeli teşekkürler

 

[Haluk]

Böyle bir kod yardımcı olabilir.

Private Sub TextBox3_Change()
If Val(TextBox3) > Val(TextBox12) Then
    MsgBox "Hata !"
    TextBox3 = ""
End If
End Sub

.

 

[igultekin2000]

acaba ilave olur mu?

Böyle bir kod yardımcı olabilir.

Private Sub TextBox3_Change()
If Val(TextBox3) > Val(TextBox12) Then
    MsgBox "Hata !"
    TextBox3 = ""
End If
End Sub

.

kod sorunsuz çalışıyor, yanlışlıkla fazla rakam girince hata mesajı verip diğer textboxa geçiyor. hata verince başka yere geçmeden aynı textbox'ta kalması da sağlanabilir mi, yani ilgili yere rakam yazmadan başka başka textbox'a geçmesin şeklinde. teşekkürler.

 

[Korhan Ayhan]

Bu durumda kodu nesnenin Exit olayına yazmalısınız. Ayrıca TextBox3 = "" ifadesinden sonra aşağıdaki satırı eklemelisiniz.

Cancel = True

 

[igultekin2000]

sorun çözülmüyor

Bu durumda kodu nesnenin Exit olayına yazmalısınız. Ayrıca TextBox3 = "" ifadesinden sonra aşağıdaki satırı eklemelisiniz.

Cancel = True

referans alınan değer 999' a kadar sorunsuz çalışıyor ancak referans alınan değer 1.250,05 gibi olduktan sonra sadece 1' i alıyor, 1100 yazınca kabul etmiyor.

 

[Korhan Ayhan]

TextBox nesnelerindeki klasik sayısal sorunları yaşıyorsunuz.

Biraz uğraşırsanız nokta-virgül olaylarını çözebilirsiniz.

Ya da dosyanızı ekleyin. Üzerinden çözüm üretelim.

 

[Orion1]

Arkadaşlar.Sorun aşağıdaki linkte giderildi.
http://www.excel.web.tr/showthread.php?goto=newpost&t=165732