bir liste kutusundan diğerine veri aktarmak

geçmiş olsun hocam... yapmak istediğim şu ana listede bulunan personellerden çoklu seçim ile seçtiğimde rapor yazdır dediğim zaman bana rapordaki kart numarasını yazdırıyor. fakat seçim malum kart sırasına göre bendeki kağıtlar ise karışık bi numara yok. şunu yapmaya çalışıyorum atıyorum elimdeki 1. kağıt 300 numaralı bunu listeden seçip diğer listeye aktarıcam sonraki kağıt 420 numaralı bunuda seçicem diğer listeye aktarıcak diğer kağıt 223 numaralı bunu da seçicem diğer listeye atıcak yani diğer listede sıra şu şekil olucak 300 420 223 yani benim aktarışıma göre sıraya giricek ve ben kağıtları bu şekilde yazıcıya koyduğumda bu sırada yazıcakki yalnız numarayı yalnış kağıda yazmasın....
ilginiz için çok teşekkürler ayrıca tekrardan çok geçmiş olsun.

Sayın Kesoka teşekkür ediyorum inşallah enkısa zamanda iyileşicem.

Aşağıdaki örnek seçiminize göre sıralama yapıyor.

İnşallah doğru anlamışımdır kolay gelsin.

hocam çok teşekkürler elinize sağlık.... rapor yazdırma olayınıda kendim hallettim... tek şu veriyi diğer tabloya aktarırken eminmisiniz diye 2 defa uyarı çıkması sinir bozucu : inşallah en kısa sürede iyileşirsiniz....

Sizin adınıza sevindim.
Bahsettiğiniz uyarı olayı nerde çıkıyor anlayamdım Bende herhangi bir uyarı vermiyor.

Si ayrı bir kod kullandınızsa eğer



Kodunuzun başına

DoCmd.SetWarnings False

ve sonuna da

 DoCmd.SetWarnings True

yazarak

Bu kodlardan yararlana bilirsiniz

İyi niyet dileklerinizi için tekrar teşekkür ederim.

Onun da çözümü var :

DoCmd.SetWarnings False

'

' Kodlarınız bu araya

'

DoCmd.SetWarnings True

Çift tıklama sonucu yapılan işlemlerde bu komutları kullanırsanız hiç bir uyarı almayacaksınız.

NOT : Puletin hocam yazmış bile

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