combobox'un change olayından sonra hata mesajı

[enes2000eren]

slm.arkadaşlar comboboxta bir veri seçtikten sonra yeni kayıt dendiği zaman hata veriyor.form hata mesajı veriyor.

 

[peleryn]

Merhabalar;

Hata veren satırın bir üstüne şu satırı ekleyin.İstediğiniz oluyor mu?

If TextBox9 = "" Then TextBox9 = 0

 

[enes2000eren]

sayın peleryn denedim olmadı

 

[peleryn]

merhabalar baktım ama işin içinden çıkamadım üzgünüm kolay gelsin

 

[halit3]

firma listesinde satır sayı indexsi var yeni kayıt dediğin zaman burası boş olduğı için hata veriyor birde textbox ların içi boş olduğından bu hatayı olıyorsunuz. çünkü bu nesneler bölme ve çarpma işlemleri yapıyor bu durumda yeni kayıt makronuz şöyle olmalı sıfır değerli olmalı.

Private Sub YENİKAYIT_Click()
TextBox1 = 0
TextBox2 = 0
TextBox3 = 0
TextBox4 = 0
TextBox5 = 0
TextBox6 = 0
TextBox7 = 0
TextBox8 = 0
TextBox9 = 0
TextBox10 = 0
TextBox11 = 0
TextBox12 = 0
TextBox13 = 0
TextBox14 = 0
TextBox15 = 0
TextBox16 = 0
TextBox17 = 0
TextBox18 = 0
TextBox19 = 0
TextBox20 = 0
TextBox21.Text = [AZ1]
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
İPTAL.Visible = True
KAYIT.Visible = True
YENİKAYIT.Visible = False
End Sub

 

[halit3]

yada örnek olarak

Private Sub TextBox10_Change()
On Error Resume Next

hata kodu olan

On Error Resume Next

bunu change olayının hemen altına koymalısın

 

[halit3]

dosyanı ekliyorum

 

[enes2000eren]

Teşekkürler halit 3.istediğim oldu