Mismatch Hata uyarısı

[İsmail Küçükşengün]

Merhabalar;

Useform üzerindeki TextBox.lara girdiğim rakamları bir butona bağladığım

Private Sub CommandButton1_Click()
TextBox14 = Format(TextBox9 * 1 + TextBox10 * 1 + TextBox11 * 1 + TextBox13 * 1, "#,##0.00")
End Sub

kodları ile TextBox14. te toplamını alıyorum.

Fakat toplanmasını istediğim TextBoxlardan biri boş ise;

"Type mismatch" hatası vermektedir.

TextBoxlardan biri veya birkaçı boş olsa bile TextBox.14 'e hata uyarısı almadan toplamı aldırmak yukarıdaki koda ne gibi ilave gerekir.

Şimdiden Teşekkürlerimle.

 

[alpi]

Aşağıdaki şekilde deneyin

Private Sub CommandButton1_Click()
If TextBox9 = "" Then TextBox9 = 0
If TextBox10 = "" Then TextBox10 = 0
If TextBox11 = "" Then TextBox11 = 0
If TextBox13 = "" Then TextBox13 = 0
TextBox14 = Format(TextBox9 * 1 + TextBox10 * 1 + TextBox11 * 1 + TextBox13 * 1, "#,##0.00")
End Sub

 

[İsmail Küçükşengün]

Sayın aLPi Hocam;

Teşekkürlerimi sunuyorum.

Selamlarımla.