Skip to main content

AccessTr.neT


Aşağı Yukarı Sıralamak

Aşağı Yukarı Sıralamak

#7
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
.rar veriyi aşağı yukarı Taşı_hy.rar (Dosya Boyutu: 21,96 KB | İndirme Sayısı: 5)
Cevapla
#8
sn hocam merhaba,
hayırlı cumalar,
sizin yazdığınız kod, hem daha sade hem daha anlaşılır.
teşekkür ederim.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task