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
404

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

#4
atoykan
Uzman
atoykan
Bul
Uzman
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,22:05
Yorumları: 1.529
Konuları: 3
Kayıt Tarihi: 23/02/2020
Teşekkür Puanı: 222
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Aşağı Yukarı Ok İle Sıra Numarası Değiştirmek - Yazar: atoykan - 05/09/2022, 10:23
Task