ListView'e kayıt eklerken 2ci sütuna veri yazmıyor

[programer]

Herkese iyi akşamlar. ListView'e TextBox1 ve Textbox2 de yazan verileri bir buton yardımı ile kaydediyorum. İlk kaydı düzgün yapıyor ikinciye eklediğim zaman ListView'in 2ci kolonuna veri yazmıyor eklediğim örnek dosya içerisindede gerekli açıklamalar var

 

[Orion1]

1nci soruya ben cevap vereyim.

With ListView1
ListView1.ListItems.Add , , UserForm1.BN1.Value
X = ListView1.ListItems.Count
ListView1.ListItems(X).ListSubItems.Add , , UserForm1.BN2.Value
End With

 

[programer]

Sayın Evren Gizlen yardımınız için teşekkür ederim. Geriye kaldı 2 soru

 

[programer]

İkinci soruyuda ben kendim cevaplayayım. Geriye kaldı 3 soru yardımlarınızı bekliyorum

Private Sub Cmd_Ekle_Click()
With ListView1
If .ListItems.Count = Null Then
Else
    For i = 1 To .ListItems.Count
            If UserForm1.BN1.Value = CDbl(.ListItems(i)) And UserForm1.BN2.Value = CDbl(.ListItems(i).SubItems(1)) Then
            MsgBox (UserForm1.BN1 & " " & UserForm1.BN2 & " Nolu Belge Daha Önce Eklenmiş"), , "D İ K K A T"
            Exit Sub
            End If
    Next i
ListView1.ListItems.Add , , UserForm1.BN1.Value
X = ListView1.ListItems.Count
ListView1.ListItems(X).ListSubItems.Add , , UserForm1.BN2.Value
End If
End With

UserForm1.BN1 = ""
UserForm1.BN2 = ""
End Sub

 

[halit3]

bunu denermisiniz.

Private Sub Cmd_Cikar_Click()
If ListView1.ListItems.Count > 0 Then
x = ListView1.SelectedItem.Index
ListView1.ListItems.Remove x
End If
End Sub

 

[programer]

Sayın Evren Gizlen ve Halit3 yardımlarınız için çok teşekkürler

 

[halit3]

Sayın Evren Gizlen ve Halit3 yardımlarınız için çok teşekkürler

iyi çalışmalar