Skip to main content

AccessTr.neT


Listboxdan Veri Silme

Listboxdan Veri Silme

Çözüldü #1
İ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
Son Düzenleme: 19/12/2023, 22:46, Düzenleyen: fenerli6774.
Cevapla
#2
Me.lstGkAidat.RemoveItem i

Merhaba.Yukardaki mantık olacak hata yapmadıysam.
Cevapla
#3
(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"
Cevapla
#4
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.
Cevapla
#5
Döngü başına yada öncesine alttaki kodu ekleyin.

Kod:
If Me.lstGkAidat.ListCount = 0 Then Exit Sub
Cevapla
#6
Sayın fenerli madem konunuza mesaj yazmayacaksınız neden boşuna yoruyorsunuz insanları.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task