Toplama İşleminde Virgülden Sonrası "00" Çıkıyor.

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile yapılan toplama işleminde virgülden sonra kuruş kısmını "00" olarak çıkartıyor. Rica etsem yardımcı olabilir misiniz.

Dim i As Double
For i = 23 To 36
say = say + Val(Me.Controls("TextBox" & i).Value)
Next i
TextBox37.Value = Format(say, "#,##0.00")

 

[Muzaffer Ali]

val yerine cdbl fonksiyonunu kullanabilirsiniz. Yada Val kullanmak isterseniz texboxlarda bulunan ondalık ayracını virgül yerine nokta kullanmalısınız. Çünkü val ondalık ayracı olarak virgülü tanımaz noktayı tanır.

 

[ahmed_ummu]

val yerine cdbl fonksiyonunu kullanabilirsiniz. Yada Val kullanmak isterseniz texboxlarda bulunan ondalık ayracını virgül yerine nokta kullanmalısınız. Çünkü val ondalık ayracı olarak virgülü tanımaz noktayı tanır.

Cdbl ile Type mismatch hatası verdi.

Dim i As Double
For i = 23 To 36
say = say + CDbl(Me.Controls("TextBox" & i).Value)
Next i
TextBox37.Value =say

 

[Muzaffer Ali]

Muhtemelen texboxlardan biri boş olduğu için hata veriyor.

say = say + CDbl(Me.Controls("TextBox" & i).Value)

satırını aşağıdaki ile değiştirin

if Me.Controls("TextBox" & i).Value <> "" then say = say + CDbl(Me.Controls("TextBox" & i).Value)

Yine olmazsa dosyanızı ekleyin kontrol edelim

 

[ahmed_ummu]

Muhtemelen texboxlardan biri boş olduğu için hata veriyor.

say = say + CDbl(Me.Controls("TextBox" & i).Value)

satırını aşağıdaki ile değiştirin

if Me.Controls("TextBox" & i).Value <> "" then say = say + CDbl(Me.Controls("TextBox" & i).Value)

Yine olmazsa dosyanızı ekleyin kontrol edelim

Teşekkürler Muzaffer Ali bey. Bilgisayara format attığım için cevabı geç yazdım. Daha önce foruma otomatik giriyordu. Şifreyi zor buldum.