Private Sub Liste6_DblClick(Cancel As Integer)

 Dim Sql As String, PID

    For Each PID In Me.Liste6.ItemsSelected

        Sql = "UPDATE Tbl_Personel SET Secili = -1 WHERE p_id = " & Me.Liste6.ItemData(PID)

        DoCmd.RunSQL SQL

        Sql = "UPDATE Tbl_Personel SET Saat = Time() WHERE p_id = " & Me.Liste6.ItemData(PID)

        DoCmd.RunSQL SQL

        Me.Liste6.Selected(PID) = False

    Next PID

    

       Me.Liste6.Requery

       Me.Liste19.Requery

End Sub

hocam bu kodda sanırım. ben değiştirmedim hiç bişey ama benimde başıma geliyor bazen bi veri silerken 1 kayıt silmeküzeresini eminmisiniz evet hayır diye uyarı çıkıyor bazende çıkmıyor. sebebini bilmiyorum. sizde çıkmamış bende çıkıyor sanırım accessle alakalı.... bu verdiğiniz kodları yukardaki koda nasıl uyarlayabilirim ekleyebilirim. balına sonona demişsiniz ama kodu bozarım diye size sormak istedim... tşkler tkrardan