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