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

tşkler hocam dediğiniz gibi düzeldi

sayın hocam buradaki örnekte liste kutusundan bir başka liste kutusuna aktarma yapabiliyoruz. peki liste kutusundaki bilgileri metin kutusuna aktarma yapabilirmisiniz. teşekkür ederim.