AccessTr.neT
Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - 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ı Ok İle Sıra Numarası Değiştirmek (/konu-asagi-yukari-ok-ile-sira-numarasi-degistirmek.html)

Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - alikagan - 04/09/2022

merhaba arkadaşlar
eklediğim örnek dosyada, liste kusutundan seçmiş olduğum kaydı AŞAĞI - YUKARI ok larla SIRA NUMARASINI değiştirmek istiyorum.
yapmaya çalıştım ama olmadı,

[Resim: do.php?img=13193]

RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - ozanakkaya - 04/09/2022

Merhaba, Tablodaki Verilerin Sırasını Değiştir. konusunu inceleyiniz.

RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - alikagan - 04/09/2022

merhaba sn ozanakkaya,
inceledim, ama örnek bana çok karışık geldi. o yüzden yapamadım.

RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - atoykan - 05/09/2022

Yukarı taşıma kodunuzu 
Dim LngIndex As Long, i, j, x As Integer

LngIndex = Me.Liste9.ListIndex

If LngIndex = 0 Then Exit Sub



i = Me.Liste9.Column(0)

j = Me.Liste9.Column(3, LngIndex + 1)

x = Me.Liste9.Column(3, LngIndex)



'seçilenden önceki

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & i - 1 & " where KIMLIK=" & j & ""

'Me.Liste9.Requery

'Listede seçilen

DoCmd.RunSQL "update ISLETME_AKISI_LISTESI set SIRA_NO=" & i & " where KIMLIK=" & x & ""

Me.Liste9.Requery
olarak değiştirip deneyin lütfen. Yapmak istediğiniz işlem bu ise aşağı taşıma kodunuzu buna göre revize edin.

RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - alikagan - 05/09/2022

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


RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - atoykan - 05/09/2022

Rica ederim, iyi çalışmalar.