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

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

dosya???

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

Çoklu seçim:uzatılmış olduğunda bu şekilde kullanilabilir mi?

ç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, 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.

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?