textbox da çarpma hatası

[Yesilyurtlu]

Private Sub CommandButton12_Click()
TextBox55 = Format(CDbl(TextBox24) * CDbl(TextBox54), "#,##0.00")

uzmanlarım yukarıdaki çarpmada run time error hatası alıyorum.
Yardımcı olabilir msiniz

 

[Ömer]

Merhaba,

Girdiğiniz veriler sayı mı? Küçük bir örnek ekleyerek açıklarsanız daha doğru olur. Kodlarda bir hata görünmüyor.

.

 

[Yesilyurtlu]

Ömer abi;

Private Sub CommandButton12_Click()
TextBox46 = Format(CDbl(TextBox7) * CDbl(TextBox45), "#,##0.00")
TextBox47 = Format(CDbl(TextBox8) * CDbl(TextBox48), "#,##0.00")
TextBox51 = Format(CDbl(TextBox12) * CDbl(TextBox50), "#,##0.00")
TextBox49 = Format(CDbl(TextBox16) * CDbl(TextBox52), "#,##0.00")
TextBox55 = Format(CDbl(TextBox24) * CDbl(TextBox54), "#,##0.00")
TextBox56 = Format(CDbl(TextBox25) * CDbl(TextBox57), "#,##0.00")
TextBox59 = Format(CDbl(TextBox29) * CDbl(TextBox58), "#,##0.00")
TextBox53 = Format(CDbl(TextBox20) * CDbl(TextBox60), "#,##0.00")
TextBox63 = Format(CDbl(TextBox37) * CDbl(TextBox62), "#,##0.00")
TextBox61 = Format(CDbl(TextBox36) * CDbl(TextBox64), "#,##0.00")
End Sub



Ömer Abi ;
Girdiğim değerler sayı
dosyayı yükleme sorunu veriyor site yükleyemedim.
10 tane text var. çarpma yaptırmak istiyorum ama beceremedim.
Yardımına ihtiyacım var abi

 

[Excelmy]

:dusun:

Çarpılan değerler için TextBox'ları boş bırakıyorsanız veya harf giriyorsanız hata alırsınız.

 

[Yesilyurtlu]

boş bıraktığım oluyordu. Hepsini doldurunca hata vermiyor.
Ama Sayın Kuman hepsini doldurmak zorunda mı kalacağım
Bunun bir alternatifi yokmu dur?
Gerçi Evren Hocamın
If TextBox7 <> "" Then TextBox9.Text = Format(TextBox7 * TextBox8, "#,##0.00")
örneğini uyarladım hatam giderildi gibi

 

[Excelmy]

Alternatif,

TextBox46.Value = Format((TextBox7.Value) * (TextBox45.Value), "#,##0.00")

 

[Orion1]

boş bıraktığım oluyordu. Hepsini doldurunca hata vermiyor.
Ama Sayın Kuman hepsini doldurmak zorunda mı kalacağım
Bunun bir alternatifi yokmu dur?
Gerçi Evren Hocamın
If TextBox7 <> "" Then TextBox9.Text = Format(TextBox7 * TextBox8, "#,##0.00")
örneğini uyarladım hatam giderildi gibi

Bu kontrol kodlarını hepsi için yapmalısınız.En başa koymalısınız ki hata oluşmasın

if not isnumeric(textbox7.text) then
  msgbox "Textbox7'ye sayı girmelisiniz"
  textbox7.setfocus
  exit sub
end if

 

[Korhan Ayhan]

Selamlar,

Diğer arkadaşlarımın verdiği çözümlere ek olarak aşağıdaki yöntemide kullanabilirsiniz. Siz aşağıdaki kod yapısını kendinize uyarlayınız.

Private Sub CommandButton1_Click()
    If TextBox1 = "" Then TextBox1 = 0
    If TextBox2 = "" Then TextBox2 = 0
    TextBox3 = Format(CDbl(TextBox1) * CDbl(TextBox2), "#,##0.00")
End Sub

 

[Orion1]

Selamlar,

Diğer arkadaşlarımın verdiği çözümlere ek olarak aşağıdaki yöntemide kullanabilirsiniz. Siz aşağıdaki kod yapısını kendinize uyarlayınız.

Private Sub CommandButton1_Click()
    If TextBox1 = "" Then TextBox1 = 0
    If TextBox2 = "" Then TextBox2 = 0
    TextBox3 = Format(CDbl(TextBox1) * CDbl(TextBox2), "#,##0.00")
End Sub

Korhan bey bunun bir sakıncası var.
Eğer textboxa metin girilirse program göçer.
Ben onun için sayımı değilmi diye kontrol ediyorum.
Olur ya kullanıcı ya yanlışlıkla yapar yada kurnazlık yapar,metin girer,programı göçürür.

 

[Yesilyurtlu]

Değerli Üstadım Evren GİZLEN ve Korhan AYHAN'a
yardımlarından dolayı sonsuz teşekkür ederim
Allah Razı Olsun

 

[Yesilyurtlu]

For i = 150 To 168
topla = Val(Controls("textbox" & i)) + topla
TextBox169 = topla
Next

Yukarıda ki kod da ki hatam nerede yardımcı olabilir misiniz?
150 ..... 168 arasında ki textboxları toplatmak istiyorum.
Kod Korhan Hocama ait

 

[Korhan Ayhan]

Selamlar,

Evet Evren bey haklısınız. TextBox kullanılıyorsa full kontrol sağlamak her zaman daha iyidir. Dediğiniz gibi küçük bir unutkanlık hazırlanan çalışmanın göçmesine sebep olabilir.

Sn. Yesilyurtlu son mesajınızdaki kodda nasıl bir hata alıyorsunuz?