+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox Daki Seçili Kayıdı Silmek (/konu-listbox-daki-secili-kayidi-silmek.html)
Listbox Daki Seçili Kayıdı Silmek - sidd - 22/05/2018
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.
Cvp: Listbox Daki Seçili Kayıdı Silmek - ozguryasin - 22/05/2018
Listbox ta seçtiğiniz bir değerin id numarasından silersiniz, oc başına geçince örneğinize bakacağım
Cvp: Listbox Daki Seçili Kayıdı Silmek - ozguryasin - 22/05/2018
nasıl bir örneğiniz var anlayamadım, form özellik sayfası açılmıyor. formun özelliklerini göremiyorum. listebo içindeki sorguyu göremiyorum
Cvp: Listbox Daki Seçili Kayıdı Silmek - ozguryasin - 22/05/2018
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 IfCvp: Listbox Daki Seçili Kayıdı Silmek - sidd - 23/05/2018
(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.