textbox hesaplama hatası

[ridvan2111]

Selam arkadaşlar

Private Sub TextBox7_Change()
'TextBox7.Value = Format(TextBox7, "#,##0")
kontrol
End Sub

Private Sub TextBox8_Change()
'TextBox8.Value = Format(TextBox8, "#,##0")
kontrol
End Sub

Private Sub TextBox13_Change()
'TextBox13.Value = Format(TextBox13, "#,##0")
kontrol
End Sub

Private Sub kontrol()
On Error Resume Next
If IsNumeric(TextBox7) = True And IsNumeric(TextBox8) And IsNumeric(TextBox13) = True Then
TextBox10 = CLng(TextBox8) / CLng(TextBox7) / CLng(TextBox13)
'TextBox10.Value = Format(TextBox10, "#,##0")
End If
End Sub

Yukarıdaki kodlar ile textbox larla hesaplama yaptırıyorum bu kodlara ilave olarakTextBox10 da elde edilen sonucu TextBox7 ile çarparak sonucu TextBox9 a alacak bunun için yardımınızı bekliyorum.

 

[ridvan2111]

örnek dosya ekledim

 

[ridvan2111]

değerli ustalar yardımınızı bekliyorum

 

[ridvan2111]

Arkadaşlar sanırım gözden kaçtı sorum 2. sayfaya düşmüş yardımınızı bekliyorum

 

[Orion1]

textbox9.text=cdbl(textbox10.text)*cdbl(textbox7.text)

 

[ridvan2111]

Sayın Evren Gizlen teşekkür ederim.
Textboxlar hesaplamayı yapıyor fakat sonuç küsüratlı olunca sonuç doğru olmuyor
textbox9 ve 10 formatları ne şekilde olmalı

 

[Orion1]

Sayın Evren Gizlen teşekkür ederim.
Textboxlar hesaplamayı yapıyor fakat sonuç küsüratlı olunca sonuç doğru olmuyor
textbox9 ve 10 formatları ne şekilde olmalı

çıkmaz tabi
clng yazdığınız yerleri cdbl yapın.clng uzun tamsayılar içindir.

 

[ridvan2111]

çıkmaz tabi
clng yazdığınız yerleri cdbl yapın.clng uzun tamsayılar içindir.

Sayın Evren Gizlen dediğiniz gibi yaptım ama yine olmadı.
Ben balık tutmayı öğrenemicem siz balığı tutup bana verseniz.

 

[Orion1]

Private Sub kontrol()
On Error Resume Next
If IsNumeric(TextBox7) = True And IsNumeric(TextBox8) And IsNumeric(TextBox13) = True Then
TextBox10 = format(Cdbl(TextBox8) / Cdbl(TextBox7) / Cdbl(TextBox13),"#,##0.00")
End If
End Sub

 

[ridvan2111]

Private Sub kontrol()
On Error Resume Next
If IsNumeric(TextBox7) = True And IsNumeric(TextBox8) And IsNumeric(TextBox13) = True Then
TextBox10 = format(Cdbl(TextBox8) / Cdbl(TextBox7) / Cdbl(TextBox13),"#,##0.00")
End If
End Sub

Sayın Evren Gizlen çok teşekkür ederim