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
402

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

#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

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: alikagan - 05/09/2022, 13:48
Task