bir liste kutusundan diğerine veri aktarmak

1 2 3
06/04/2011, 10:36

kesoka

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.
06/04/2011, 11:47

Puletin

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.
06/04/2011, 12:34

kesoka

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....
06/04/2011, 12:42

Puletin

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.
06/04/2011, 12:42

alpeki99

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
06/04/2011, 12:46

kesoka

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
1 2 3