+- 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ığı: İşlem Sıra Numarasını Değiştirmek (/konu-islem-sira-numarasini-degistirmek.html)
İşlem Sıra Numarasını Değiştirmek - husem - 22/02/2022
merhaba arkadaşlar
formdaki aşağı-yukarı tuşlarıyla ISLEM_SIRA_NO sayısını değiştirmek istiyorum
yardımcı olabilirmisiniz?
[img]
RE: İşlem Sıra Numarasını Değiştirmek - berduş - 22/02/2022
Liste100_KeyUp olayını aşağıdaki gibi düzenleyip dener misiniz?
Private Sub Liste100_KeyUp(KeyCode As Integer, Shift As Integer)
'Debug.Print KeyCode, Chr(KeyCode)
Dim Aktf, Onceki, Indx, t
Indx = Me.Liste100.ListIndex
Aktf = Me.Liste100.Column(1)
If KeyCode = 40 Then
Onceki = Me.Liste100.Column(1, Indx)
CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] +1 where [ID]=" & Onceki
CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] -1 where [ID]=" & Aktf
t = 1
ElseIf KeyCode = 38 Then
Onceki = Me.Liste100.Column(1, Indx + 2)
'Debug.Print Indx, Aktf, Onceki
CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] -1 where [ID]=" & Onceki
CurrentDb.Execute "update YUKLEME_LISTESI set [ISLEM_SIRA_NO]=[ISLEM_SIRA_NO] +1 where [ID]=" & Aktf
t = -1
' Debug.Print
End If
Liste100.Requery
Me.Liste100.ListIndex = Indx - t
' 40 Aşağı
' 38 yukarı
End Sub
RE: İşlem Sıra Numarasını Değiştirmek - husem - 22/02/2022
halil üstadım,
kodu ekledim,
ISLEM SIRA NO yu aşağı yukarı tuşlarıyla nasıl değiştirebilirim acaba?
RE: İşlem Sıra Numarasını Değiştirmek - husem - 23/02/2022
klavye aşağı yukarı ok tuşlarıyla değişiyor, ama kullanışlı değil gibi,
ayrıca eksiye gidiyor,
RE: İşlem Sıra Numarasını Değiştirmek - userx - 23/02/2022
Sayın husem
Eki kontrol eder misiniz?
RE: İşlem Sıra Numarasını Değiştirmek - husem - 23/02/2022
sn userx üstadım, ilgilendiğin için teşekkür ederim,
örneği inceledim, aşağı yukarı ok tuşlarıyla çalışıyor,
formda aşağı - yukarı buton vardı,
kodları butona aktardığımda, listindex özelliğinde hata verdi,
aşağı yukarı butonlarıyla bu işlemi nasıl yapabilirim?