İşlem Sıra Numarasını Değiştirmek

merhaba arkadaşlar
formdaki aşağı-yukarı tuşlarıyla ISLEM_SIRA_NO sayısını değiştirmek istiyorum
yardımcı olabilirmisiniz?

[img]
[/img]

Liste100_KeyUp olayını aşağıdaki gibi düzenleyip dener misiniz?

Private Sub Liste100_KeyUp(KeyCode As Integer, Shift As Integer)

'Debug.Print KeyCode, Chr(KeyCode)

Dim Aktf, Onceki, Indx, t

Indx = Me.Liste100.ListIndex



Aktf = Me.Liste100.Column(1)



If KeyCode = 40 Then

Onceki = Me.Liste100.Column(1, Indx)

    CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] +1 where [ID]=" & Onceki

    CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] -1 where [ID]=" & Aktf

    t = 1

ElseIf KeyCode = 38 Then

Onceki = Me.Liste100.Column(1, Indx + 2)

'Debug.Print Indx, Aktf, Onceki

    CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] -1 where [ID]=" & Onceki

    CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] +1 where [ID]=" & Aktf

    t = -1

'    Debug.Print

End If



Liste100.Requery

Me.Liste100.ListIndex = Indx - t

' 40           Aşağı

' 38           yukarı



End Sub

halil üstadım,
kodu ekledim,
ISLEM SIRA NO yu aşağı yukarı tuşlarıyla nasıl değiştirebilirim acaba?

klavye aşağı yukarı ok tuşlarıyla değişiyor, ama kullanışlı değil gibi,
ayrıca eksiye gidiyor,

Sayın husem
Eki kontrol eder misiniz?

sn userx üstadım, ilgilendiğin için teşekkür ederim,
örneği inceledim, aşağı yukarı ok tuşlarıyla çalışıyor,

formda aşağı - yukarı buton vardı,
kodları butona aktardığımda, listindex özelliğinde hata verdi,

aşağı yukarı butonlarıyla bu işlemi nasıl yapabilirim?