değiştir kodunda hata

[by_IsTaNBuL]

arkadaşlar ekteki listview de şöyle bir sorunum var.

textlere yazdığım veriyi listviewe ekleme yapıyorum sonra üstüne çift tıklayınca tekrar textlere alıyorum değiştirmek için.
değiştirdiğim textte değişiklik yapıp butona bastığım zaman değiştiriyor.
buraya kadar sorun yok.
fakat textin içindeki veriyi sildiğim zaman değiştir diyorum tık yok
değiştirmiyor. hata kodu nu beceremiyorum. yada bişiler yanlış. yardım ederseniz çok sevinicem.
şimdden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

"On Error Resume Next" satırının azizliğine uğramışsınız. Bu kod satırı ne kadar problem yaratmayor gibi görünsede böyle istenmeyen durumlara sebep olmaktadır. Bu komut yerine hata kontrollerini kullanmanızı tavsiye ederim. Bu şekilde verilerinizi daha da kontrol altına alabilirsiniz.

Aşağıdaki kodu kullanabilirsiniz. EKLE isimli butonunuzdaki koduda aşağıdaki şekilde düzeltmeniz gerekiyor.

Private Sub CommandButton85_Click()
    'Değiştirme yapıyoruz
    sn = Me.ListView1.SelectedItem.Index + 1
    
    'Genel bilgiler
    Set sht = Sheets("DATA3")
    If TextBox2 <> "" Then
        sht.Cells(sn, 2).Value = Val(Me.TextBox2.Value)
    Else
        sht.Cells(sn, 2).Value = ""
    End If
    
    sht.Cells(sn, 3).Value = Me.TextBox3.Text
    
    If TextBox4 <> "" Then
        sht.Cells(sn, 4).Value = CDbl(Me.TextBox4.Value)
    Else
        sht.Cells(sn, 4).Value = ""
    End If
    
    If TextBox5 <> "" Then
        sht.Cells(sn, 5).Value = CDbl(Me.TextBox5.Value)
    Else
        sht.Cells(sn, 5).Value = ""
    End If
    
    If TextBox6 <> "" Then
        sht.Cells(sn, 6).Value = CDbl(Me.TextBox6.Value)
    Else
        sht.Cells(sn, 6).Value = ""
    End If
    
    If TextBox7 <> "" Then
        sht.Cells(sn, 7).Value = CDbl(Me.TextBox7.Value)
    Else
        sht.Cells(sn, 7).Value = ""
    End If
    
    If TextBox8 <> "" Then
        sht.Cells(sn, 8).Value = CDbl(Me.TextBox8.Value)
    Else
        sht.Cells(sn, 8).Value = ""
    End If
    
    If TextBox9 <> "" Then
        sht.Cells(sn, 9).Value = CDbl(Me.TextBox9.Value)
    Else
        sht.Cells(sn, 9).Value = ""
    End If
    
    If TextBox10 <> "" Then
        sht.Cells(sn, 10).Value = CDbl(Me.TextBox10.Value)
    Else
        sht.Cells(sn, 10).Value = ""
    End If
    
    sht.Cells(sn, 11).Value = Me.TextBox11.Text
    
    Set sht = Nothing
    Call UserForm_Initialize
End Sub