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
