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