Aşağı Yukarı Sıralamak

aşağı ve yukarı taşıma kodu için aşağıdakileri dener misiniz?
Aşağı Taşıma:

Private Sub asagi_Click()

Dim LngIndex As Long

LngIndex = Me.Liste39.ListIndex + 2

If LngIndex = Me.Liste39.ListCount Then Exit Sub



'seçilenden sonraki

CurrentDb.Execute " update Veri_Tanimi set listesira=" & Me.Liste39.Column(1) & " where id=" & Me.Liste39.Column(0, LngIndex)

'Listede seçilen

CurrentDb.Execute " update Veri_Tanimi set listesira=" & Me.Liste39.Column(1) + 1 & " where id=" & Me.Liste39.Column(0)



Me.Liste39.Requery

'''''''Me.Form.Recalc

End Sub

Yukarı Taşıma:

Private Sub yukari_Click()

Dim LngIndex As Long

LngIndex = Me.Liste39.ListIndex

If LngIndex = 0 Then Exit Sub



'seçilenden önceki

CurrentDb.Execute " update Veri_Tanimi set listesira=" & Me.Liste39.Column(1) & " where id=" & Me.Liste39.Column(0, LngIndex)

'Listede seçilen

CurrentDb.Execute " update Veri_Tanimi set listesira=" & Me.Liste39.Column(1) - 1 & " where id=" & Me.Liste39.Column(0)



Me.Liste39.Requery

'''''''''Me.Form.Recalc

End Sub

[attachment=30717]

sn hocam merhaba,
hayırlı cumalar,
sizin yazdığınız kod, hem daha sade hem daha anlaşılır.
teşekkür ederim.