Skip to main content

AccessTr.neT


bir liste kutusundan diğerine veri aktarmak

bir liste kutusundan diğerine veri aktarmak

Çözüldü #13
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
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #14
tşkler hocam dediğiniz gibi düzeldi
Cevapla
Çözüldü #15
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da