Liste Kutusu Verisini Aşağı Yukarı Sıralama

1 2
15/09/2022, 17:27

husem

merhaba arkadaşlar,
liste kutusundaki verilerin işlem sıra numarasını aşağı yukarı ok ile değiştiriyorum.
liste kutusunun diğer ayarlar kısmından "çoklu seçim" kısmını "uzatılmış" yaptığımda aşağı yukarı sıralama yaparken
LngIndex değeri sıfırlanıyor, her defasında liste kutusuna tıklamak gerekiyor. liste kutusunda hangi aktif seçili satırın kaçıncı satır olduğunu bulamıyor,
liste kutusu çoklu seçim=uzatılmış olduğu zaman nasıl bir kod ile düzeltebilirim acaba?


yukarı kodu,

Dim LngIndex As Long
LngIndex = Me.Liste100.ListIndex
If Me.Liste100.ListIndex = -1 Then Exit Sub
If Me.Liste100.ListIndex = 0 Then: MsgBox "İlk kayıttasınız", vbInformation: Exit Sub

'seçilenden sonraki
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(22) & " where ID=" & Me.Liste100.Column(20, LngIndex)
'Listede seçilen
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(22) - 1 & " where ID=" & Me.Liste100.Column(20)

Me.Liste100.Requery
Me.Liste100.Selected(LngIndex) = True
17/09/2022, 18:14

berduş

dosya???
17/09/2022, 22:26

husem

(17/09/2022, 18:14)berduş yazdı: dosya???




Çoklu seçim:uzatılmış olduğunda bu şekilde kullanilabilir mi?
18/09/2022, 13:02

berduş

çoklu seçimde diyelim ki 3 tane seçtiniz (diyelim ki ISLEM_SIRA_NOları 10, 15 ve 18 olan kayıtları seçtiniz) ve 1 defa yukarı tuşuna bastınız (diyelim ki 10 nolu kaydın bir üstünde de 8 var) yeni durumda sıralama nasıl olmalı?
Not: sıra no neye göre veriliyor farklı yükleme Noları kendi içinde mi sıralanıyor
mesela yükleme No=22-74 kendi içinde yükleme No=22-75 kendi içinde mi sıralanıyor
18/09/2022, 23:48

husem

(18/09/2022, 13:02)berduş yazdı: çoklu seçimde diyelim ki 3 tane seçtiniz (diyelim ki ISLEM_SIRA_NOları 10, 15 ve 18 olan kayıtları seçtiniz) ve 1 defa yukarı tuşuna bastınız (diyelim ki 10 nolu kaydın bir üstünde de 8 var) yeni durumda sıralama nasıl olmalı?
Not: sıra no neye göre veriliyor farklı yükleme Noları kendi içinde mi sıralanıyor
mesela yükleme No=22-74 kendi içinde yükleme No=22-75 kendi içinde mi sıralanıyor

Sıralama yaparken sadece 1 kayıt seçip yukarı yada aşağı sıralanır
Biden çok kayıt 10-15-18 gibi çoklu seçerek yapmayız.
Her sıralama yükleme no içinde oluyor.

Listedeki çoklu seçim =yok iken zaten çalışıyor.
Çoklu seçim=uzatılmış olduğunda siralamiyor.
19/09/2022, 00:47

berduş

If Me.Liste100.ListIndex = -1 Then Exit Sub
yerine aşağıdaki gibi dener misiniz?
If Me.Liste100.ItemsSelected.Count = 0 Then Exit Sub
Not: eğer tek tek taşınacaksa neden çoklu seçim var o zaman?
birden çok seçilip düğmelere basılırsa (bilerek yada kazar) ne yapılacak?
1 2