A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Ok Tuşlarıyla Veriyi Sıralama
#1
merhaba arkadaşlar.
"BOYAMA_RECETESI_BELIRLE"  formundayken Boyama reçetesini "Beyaz" seçiyorum. liste kutusuna veriler geliyor.
ben bu verinin herhangi birisine tıklayıp sağ taraftaki aşağı ve yukarı ok tuşlarıyla sıralamak istiyorum. 
örneğin en üstteki "Kasar" verisine tıkladıysam ve 'aşağı ok" tuşuna bastıysam kasar verisinin ikinci sıraya gelmesini istiyorum.
yapmaya çalıştım ama sıralıyor, ama tam yapamadım, içinden de çıkamadım, 
yardımcı olabilirmisiniz?

[Resim: attachment.php?aid=22662]


Eklenti Dosyaları
.rar   sırala.rar (Boyut: 22,25 KB / İndirilme: 10)



  Alıntı
Bu mesajı beğenenler:
#2
dilerim işinize yarar liste kutusunda "başlığı göster" özelliği farklı olduğundan kod da değişmeli
en azından benim tahminim o yönde
Visual Basic
  1. Private Sub yukariii_Click()
  2. Dim LngIndex As Long
  3. LngIndex = Me.Liste7.ListIndex
  4. If LngIndex = 0 Then Exit Sub
  5.  
  6. 'seçilenden önceki
  7. CurrentDb.Execute " update BOYAMA_RECETELERI set ISLEM_SIRA=" & Me.Liste7.Column(3) & " where ID=" & Me.Liste7.Column(4, LngIndex - 1)
  8. 'Listede seçilen
  9. CurrentDb.Execute " update BOYAMA_RECETELERI set ISLEM_SIRA=" & Me.Liste7.Column(3) - 1 & " where ID=" & Me.Liste7.Column(4)
  10. '
  11. Me.Liste7.Requery
  12. Me.Liste7.Selected(LngIndex - 1) = True
  13.  
  14. End Sub


Visual Basic
  1. Private Sub asagiii_Click()
  2. Dim LngIndex As Long
  3. LngIndex = Me.Liste7.ListIndex + 1
  4. If LngIndex = Me.Liste7.ListCount Then Exit Sub
  5. 'seçilenden önceki
  6. CurrentDb.Execute " update BOYAMA_RECETELERI set ISLEM_SIRA=" & Me.Liste7.Column(3) & " where ID=" & Me.Liste7.Column(4, LngIndex)
  7. 'Listede seçilen
  8. CurrentDb.Execute " update BOYAMA_RECETELERI set ISLEM_SIRA=" & Me.Liste7.Column(3) + 1 & " where ID=" & Me.Liste7.Column(4)
  9.  
  10. Me.Liste7.Requery
  11. Me.Liste7.Selected(LngIndex) = True
  12.  
  13. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
sn halily, teşekkür ederim,
sayenizde tamamdır.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-4 [SORGU] Hücre Içinde Virgül Ile Ayrılan Verileri Alt Alta Sıralama alperalper 4 145 17-06-2020, 16:04
Son Mesaj: programmer67
  [SORGU] Sorgu Içinde Tekrarlayan Veriyi Engellemek footprinting 5 97 12-06-2020, 21:12
Son Mesaj: halily
  [SORGU] Not Like Komutuyla Birden Fazla Veriyi Içermemesini Nasıl Sağlaya Biliriz footprinting 2 70 09-06-2020, 12:35
Son Mesaj: footprinting
  [FORM] Liste Kutusundaki Veriyi Mail Ile Göndermek husem 4 132 26-05-2020, 02:08
Son Mesaj: dsezgin
  [MAKRO] Accesste Kurala Göre Sıralama selimglr 9 208 21-05-2020, 20:11
Son Mesaj: selimglr
  [FORM] Parantez Içindeki Veriyi Alma abahceci 2 86 19-05-2020, 00:03
Son Mesaj: abahceci
  Ifade Oluşturucu Alanları Alt Alta Sıralama neco_can 1 102 12-03-2020, 23:53
Son Mesaj: neco_can
  [VBA] Açılan Kutuda Olmayan Veriyi Otomatik Kaydetmek karaayhan 1 99 04-03-2020, 17:37
Son Mesaj: jon206

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi