Yukarı taşıma kodunuzu

Dim LngIndex As Long, i, j, x As Integer

LngIndex = Me.Liste9.ListIndex

If LngIndex = 0 Then Exit Sub



i = Me.Liste9.Column(0)

j = Me.Liste9.Column(3, LngIndex + 1)

x = Me.Liste9.Column(3, LngIndex)



'seçilenden önceki

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & i - 1 & " where KIMLIK=" & j & ""

'Me.Liste9.Requery

'Listede seçilen

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & i & " where KIMLIK=" & x & ""

Me.Liste9.Requery

olarak değiştirip deneyin lütfen. Yapmak istediğiniz işlem bu ise aşağı taşıma kodunuzu buna göre revize edin.