YTL de Toplama Problemi

[sender]

Arkadaşlar mrb.
Textbox3 = format(val(format(textbox1.0) + val(format(textbox2,0), "###,0"))

bu formülle buton kullanmadan textlere girdiğim(1 ve 2 ye) sayıların toplamlarını otomatikmen text3 te görüyordum. ama ytl formatıyla küsüratları göremiyorum. örneğin; 10,4 olmuyor 10 oluyor. yada 10,6 yerde 11 oluyor. galiba tam sayıya en yakın olduğu yere yuvarlıyor. Bu problemi nasıl halledebiliriz.
saygılarımla.
kolay gelsin

 

[ALPEN]

textbox3 = ccur(textbox1) + ccur(textbox2)

 

[sender]

Alpen hocam Bunu pek anlayamadım.
Nasıl çalıştırcaz.
Her texte bu formulu yazdım ama çalışmadı.
Ama hata veriyor.

 

[ALPEN]

inceleyin

 

[sender]

Allah razı olsun ALPEN hocam saolasın

 

[hyilmaz076]

Sevgili ALPEN,
buraya yazdığın kod olan
Private Sub TextBox1_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
TextBox3 = CCur(TextBox1) + CCur(TextBox2)
End If
End Sub

Private Sub TextBox2_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
TextBox3 = CCur(TextBox1) + CCur(TextBox2)
End If
End Sub
bu kısmı combobox larla kullanmak mümkün değilmi? yani textbox yerine combo yazdım ama çalışmadı, combo için farklı bir metod'mu var

 

[Levent Menteşoğlu]

Bu kodlar aynı şekilde comboboxlarda da çalışacaktır.

 

[hyilmaz076]

sayın leventm ilgine teşekkürler, şimdi sorun şurada toplamayı yaptırıp combo'ya text olarak yazdırdım ancak örneğin 121,89 + 10,11 toplama işleminde 12199,11 gibi bir sonuca ulaştı. bunu düzeltmek için ne yapmalıyım , combobox'a mask nasıl belirlerim bu durumda . ya basıldığında , çevirebilen ve sayısı 10,00 gibi görebilen bir mask nasıl atarım
İlginize teşekkür

 

[Levent Menteşoğlu]

Aşağıdaki gibi combobox değerlerini 1 (bir) ile çarparak deneyin.

=combobox1*1+combobox2*1