Textbox'ta Çarpım ve Biçimlendirme

[Orion1]

Merhabalar Aşaığda yolladığım dosyada textbox'ı biçimlendirildiğinde tek rakamlı değer girildiğinde yanlış sonuç üretiyor.
Biçimlendirilmediğinde ise doğru sonuç üretiyor.Fakat bu seferde Ondalık ayıracı virgül olması gerekirken nokta oluyor.Yardımlarınız için teşekkür ederim.

 

[Merhum İdris SERDAR]

Dosyanız ekte. Olmuş mu?

 

[Orion1]

Merhabalar.
Maalesef.
Biçimlendirilmiş textbox'larda 8,5 'u 3 ile çarpınca sonucu 255,00 veriyor.
Yoksa benim windows'umda veya offistemi bir problem var.

 

[Levent Menteşoğlu]

Textbox1 deki kodu aşağıdaki ile değiştirin.

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) Then
TextBox3.Value = Replace(Format(TextBox1.Value * TextBox2.Value, "#,##0.00"), ".", ",")
TextBox4.Value = Replace(TextBox1.Value * TextBox2.Value, ".", ",")
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) Then
    TextBox3.Value = Format((TextBox1.Value * TextBox2.Value), "#,##0.00")
    TextBox4.Value = TextBox1.Value * TextBox2.Value
End If
End Sub

 

[Orion1]

Sayın leventm Hocam.
Teşekkür ederim.
Sorun çözüldü iyi geceler.

 

[Orion1]

Merhabalar
Sayın:COST_CONTROL
Sizin yanıtınızıda şimdi gördüm.
Sizin yanıtınızda çözüm oluyor.
Teşekkür ederim.
İyi geceler.