AccessTr.neT

Tam Versiyon: Listbox Daki Seçili Kayıdı Silmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
Listbox ta seçtiğiniz bir değerin id numarasından silersiniz, oc başına geçince örneğinize bakacağım
nasıl bir örneğiniz var anlayamadım, form özellik sayfası açılmıyor. formun özelliklerini göremiyorum. listebo içindeki sorguyu göremiyorum
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
(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.