Skip to main content

AccessTr.neT


Listbox Daki Seçili Kayıdı Silmek

Listbox Daki Seçili Kayıdı Silmek

Çözüldü #1
Merhabalar;

Ekte dosyasını da göreceğiniz, sorunum ile ilgili, 
Listboxdaki herhangi bir seçtiğimiz kaydı nasıl sileriz., 
dosya üzerine yazıp göndermenizi rica ederim.
.rar DENEME-2x.rar (Dosya Boyutu: 51,19 KB | İndirme Sayısı: 5)
Cevapla
#2
Listbox ta seçtiğiniz bir değerin id numarasından silersiniz, oc başına geçince örneğinize bakacağım
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
nasıl bir örneğiniz var anlayamadım, form özellik sayfası açılmıyor. formun özelliklerini göremiyorum. listebo içindeki sorguyu göremiyorum
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#4
ekteki örnek istediğiniz gibi olduğu için konu direkt cevaplananlar bölümüne taşınmıştır.

ekteki örneğe Referanslar bölümüne gereken referans eklendikten sonra ekteki kodlar yazılmıştır.

If IsNull(Me.LST1.Column(0)) Then
MsgBox "kayıt seçmedin, kaydı silmek için bir kayıt seçin", vbCritical, "bİLGİ"
Else
Dim rs As New ADODB.Recordset
rs.Open "tblKayitlar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[KayitId]=" & Me.LST1.Column(0)
rs.Delete
rs.Close
Set rs = Nothing
Me.LST1.Requery
MsgBox "seçtiğiniz kayıt silindi"
End If
.rar DENEME-2x_ozguryasin.rar (Dosya Boyutu: 54,79 KB | İndirme Sayısı: 3)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
(22/05/2018, 23:45)ozguryasin yazdı: ekteki örnek istediğiniz gibi olduğu için konu direkt cevaplananlar bölümüne taşınmıştır.

ekteki örneğe Referanslar bölümüne gereken referans eklendikten sonra ekteki kodlar yazılmıştır.

If IsNull(Me.LST1.Column(0)) Then
MsgBox "kayıt seçmedin, kaydı silmek için bir kayıt seçin", vbCritical, "bİLGİ"
Else
Dim rs As New ADODB.Recordset
rs.Open "tblKayitlar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[KayitId]=" & Me.LST1.Column(0)
rs.Delete
rs.Close
Set rs = Nothing
Me.LST1.Requery
MsgBox "seçtiğiniz kayıt silindi"
End If

Teşekkür ederim Özgür Bey, halloldu.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task