TextBoxlardan veri aktarmak

[yavuz829]

Merhaba arkadaşlar ekli dosyamda. Sadece tarih girilen ComboBox2 dışındaki ComboBox ve TextBox'lar boş olsalar dahi aktarma yapsın. Tek ComboBox2 boş olduğu zaman aktarma yapmasın. Bazen sadece tarih ve ödemeyi giriyoruz. Aktar dediğimiz zaman Cells(son, "f") = Val(TextBox3) * CDbl(TextBox4) hatası veriyor.

 

[Mustafa MUTLU]

If ComboBox2.Text = "" Then
Exit Sub
End If

Kodların en başına koy bu kodu
ComboBox2 boş ise kod çalışmaz.

 

[yavuz829]

Hocam ComboBox2 zaten çalışmıyor sizin yazdığınız kod var benim sorunun ComboBox2 dışındaki ComboBox3 ve diğer TextBox'lar boş olsada veri aktarsın. Hata vermesin.

 

[vardar07]

Hocam ComboBox2 zaten çalışmıyor sizin yazdığınız kod var benim sorunun ComboBox2 dışındaki ComboBox3 ve diğer TextBox'lar boş olsada veri aktarsın. Hata vermesin.

Merhaba, Hata veren satırın üstüne ekleyip denermisin.

If TextBox3.Value = "" Then: TextBox3.Value = 0
If TextBox4.Value = "" Then: TextBox4.Value = 0

 

[yavuz829]

Çok teşekkürler hocalarım ellerinize sağlık.