Aşağı Yukarı Sıralamak - Baskı Önizleme

Aşağı Yukarı Sıralamak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aşağı Yukarı Sıralamak (/konu-asagi-yukari-siralamak.html)

Sayfalar: 1 2

Cvp: Aşağı Yukarı Sıralamak - berduş - 18/10/2019

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

veriyi aşağı yukarı Taşı_hy.rar (Dosya Boyutu: 21,96 KB | İndirme Sayısı: 5)

Cvp: Aşağı Yukarı Sıralamak - husem - 18/10/2019

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