Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek

alikagan
alikagan
Access Cevaplanmış Soruları
5
393

Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek

Çözüldü #1
alikagan
Aktif Üye
alikagan
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 19/04/2024,14:51
Yorumları: 140
Konuları: 49
Kayıt Tarihi: 11/10/2021
Teşekkür Puanı: 0
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]
.rar isletme akışı sırala.rar (Dosya Boyutu: 24,64 KB | İndirme Sayısı: 11)
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 11/04/2025,18:25
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba, 🔍Tablodaki Verilerin Sırasını Değiştir. konusunu inceleyiniz.
Cevapla
#3
alikagan
Aktif Üye
alikagan
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 19/04/2024,14:51
Yorumları: 140
Konuları: 49
Kayıt Tarihi: 11/10/2021
Teşekkür Puanı: 0
merhaba sn ozanakkaya,
inceledim, ama örnek bana çok karışık geldi. o yüzden yapamadım.
Cevapla
#4
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 26/03/2025,21:40
Yorumları: 1.526
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 217
Mesleğiniz: CIO, Yazılım
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.
Cevapla
#5
alikagan
Aktif Üye
alikagan
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum:
Ofis Versiyonu:
Son Oturumu: 19/04/2024,14:51
Yorumları: 140
Konuları: 49
Kayıt Tarihi: 11/10/2021
Teşekkür Puanı: 0
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
Cevapla
#6
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 26/03/2025,21:40
Yorumları: 1.526
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 217
Mesleğiniz: CIO, Yazılım
Rica ederim, iyi çalışmalar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da