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.