sn atoykan, ilgilendiğiniz için teşekkür ederim,
mevcut kodunuzun sonuna 
Me.Liste9.Selected(LngIndex) = True
ekledim,

(aslında formda mevcut olan kodun sonuna da 
Me.Liste9.Selected(LngIndex) = True
kodunu ekleyinci çözüldü, 

sizin çözümünüz benim için aydınlatıcı oldu,
teşekkür ederim.

Mevcut kodun tamamı:

Private Sub YUKARI_Click()

Dim LngIndex As Long

LngIndex = Me.Liste9.ListIndex

If LngIndex = 0 Then Exit Sub



'seçilenden önceki

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & Me.Liste9.Column(0) & " where KIMLIK=" & Me.Liste9.Column(3, LngIndex)

'Me.Liste9.Requery

'Listede seçilen

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & Me.Liste9.Column(0) - 1 & " where KIMLIK=" & Me.Liste9.Column(3)

Me.Liste9.Requery

Me.Liste9.Selected(LngIndex) = True

End Sub





Private Sub ASAGI_Click()

Dim LngIndex As Long

LngIndex = Me.Liste9.ListIndex + 2

'If LngIndex = Me.Liste9.ListCount - 1 Then Exit Sub

If LngIndex > Me.Liste9.ListCount - 1 Then Exit Sub



'seçilenden önceki

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & Me.Liste9.Column(0) & " where KIMLIK=" & Me.Liste9.Column(3, LngIndex)

'Me.Liste9.Requery

'Listede seçilen

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & Me.Liste9.Column(0) + 1 & " where KIMLIK=" & Me.Liste9.Column(3)



Me.Liste9.Requery

Me.Liste9.Selected(LngIndex) = True



End Sub