Private Sub Liste6_DblClick(Cancel As Integer)

 Dim Sql As String, PID

 

 DoCmd.SetWarnings False



    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

        

         DoCmd.SetWarnings True

    Next PID

    

       Me.Liste6.Requery

       Me.Liste19.Requery

End Sub

Bu şekilde işinizi görür