Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 15/09/2022, 17:29, Düzenleyen: husem.
Cevapla
#2
dosya???
Cevapla
#3
(17/09/2022, 18:14)berduş yazdı: dosya???


[Resim: do.php?img=13438]

Çoklu seçim:uzatılmış olduğunda bu şekilde kullanilabilir mi?
.rar islemsırano.rar (Dosya Boyutu: 209,78 KB | İndirme Sayısı: 8)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 17/09/2022, 22:30, Düzenleyen: husem.
Cevapla
#4
ç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
Cevapla
#5
(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.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 18/09/2022, 23:51, Düzenleyen: husem.
Cevapla
#6
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?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da