AccessTr.neT

İyi akşamlar kolay gelsin. Aşağıdaki listbox döngüsü doğrumu dur? Doğru ise şartı sağlayan ilgili listbox satırını listboxtan nasıl silebilirim. Çeşitli silme kodlarını denedim. ama hep hata verdi. yardımcı olursanız memnun olurum. kolay gelsin. iyi çalışmalar... (
For i = 0 To Me.listbox1.ListCount - 1
If Me.listbox1.List(i, 0) = textbox1 Then
(ilgili listbox satırının silinmesini istiyorum)
End if
Next i

---

Sorun Yaşadığım Kodlarımın orjinali şu şekilde
For i = Me.lstGkAidat.ListCount - 1 To 0 Step -1
If Me.lstGkAidat.List(i, 0) = CDbl(Me.txtGkYıl) and Me.lstGkAidat.List(i, 1) = acs.Cells(1, a) and Me.lstGkAidat.List(i, 2) = siteh.Offset(0, 9) Then
If Me.lstGkAidat.List(i, 3) = CDbl(siteh.Offset(0, 10)) and CDbl(Me.lstGkAidat.List(i, 4)) = CDbl(siteh.Offset(0, 5)) Then
(Listboxda eşleşen satırı silme kodu)
End If
End If
Next i

Me.lstGkAidat.RemoveItem i

Merhaba.Yukardaki mantık olacak hata yapmadıysam.

(20/12/2023, 00:16)feraz yazdı: [ -> ]Me.lstGkAidat.RemoveItem i

Merhaba.Yukardaki mantık olacak hata yapmadıysam.

Teşekkür ederim ilginiz için.

İlk Yazdığım örnekteki döngüde döngü başladığında (i=0 iken) hata veriyor.
"Unspecified error"

Rica ederim,mantıken sondan başa sildirmeniniz gerek aynen sayfadada sildirirken olduğu gibi.

---

Ayrıca dim i as long gibi tanımlayın eğer byte tanımladıysanızda hata verebilir.

Döngü başına yada öncesine alttaki kodu ekleyin.

Sayın fenerli madem konunuza mesaj yazmayacaksınız neden boşuna yoruyorsunuz insanları.