Işlem Sıra Numarasını Butonlarla Değiştirme
#1
eklediğim örnekte liste kutusundan seçili olan kaydı, aşağı yukarı ok ile ISLEM_SIRA_NO adımını değiştirebiliyorum,
bu işlem sıra no değiştirme işlemini liste kutusunun sağındaki aşağı yukarı ok ile değiştirmek istiyorum,
yardımcı olabilirmisiniz?

[Resim: attachment.php?aid=24959]


Eklenti Dosyaları
.zip   işlem sıra no (1).zip (Boyut: 34,21 KB / İndirilme: 26)
.jpg   Ekran Alıntısı.JPG (Boyut: 64,46 KB / İndirilme: 83)



  Alıntı
Bu mesajı beğenenler:
#2
merhaba arkadaşlar,
aşağı yukarı butanlarıyla işlem sıra numarasını değiştirebiliyorum,
fakat liste kutusundan seçmiş olduğum kayıt seçiliyken aşağı yada yukarı butonuna bastığımda 
liste kutusundaki ilk kayda gidiyor,
seçili olan kaydın aşağı ise aşağı 
yukarı ise yukarı gitmesini sağlayamadım,


Eklenti Dosyaları
.rar   işlem sıra no - Kopya.rar (Boyut: 34,47 KB / İndirilme: 18)



  Alıntı
Bu mesajı beğenenler:
#3
Sn husem;

Visual Basic
  1. Private Sub yukari_Click()
  2. If Me.Liste100.ItemsSelected.Count > 0 Then Call TASI(Me.Liste100.Column(3), 1, Me.Liste100.ListIndex, Me.ActiveControl.Name) Else MsgBox "Listeden Seçim Yapmadınız?", vbExclamation, "KAYIT"
  3. End Sub
  4. Private Sub asagi_Click()
  5. If Me.Liste100.ItemsSelected.Count > 0 Then Call TASI(Me.Liste100.Column(3), -1, Me.Liste100.ListIndex, Me.ActiveControl.Name) Else MsgBox "Listeden Seçim Yapmadınız?", vbExclamation, "KAYIT"
  6. End Sub
  7. Sub TASI(SN, Satir, LIndex As Long, Nesne As String)
  8. If CLng(DMin("ISLEM_SIRA_NO", "YUKLEME_LISTESI", "YUKLEME_NO = '" & Me.YUKLEME_NO & "'")) = SN And Satir = 1 Or CLng(DMax("ISLEM_SIRA_NO", "YUKLEME_LISTESI", "YUKLEME_NO = '" & Me.YUKLEME_NO & "'")) = SN And Satir = -1 Then MsgBox "Liste " & IIf(Satir = 1, "Başın", "Sonunda") & "dasınız.", vbExclamation, "KAYIT": Exit Sub
  9. CurrentDb.Execute "UPDATE YUKLEME_LISTESI SET ISLEM_SIRA_NO= iif( ISLEM_SIRA_NO=" & SN & ", " & SN - (Satir) & ", " & SN & ") WHERE YUKLEME_NO = '" & Me.YUKLEME_NO & "' AND ISLEM_SIRA_NO IN(" & SN & ", " & SN - (Satir) & ")"
  10. Me.Liste100.Requery
  11. Me.Liste100.SetFocus
  12. Me.Liste100.Selected(LIndex - (Satir) + 1) = True
  13. End Sub



Seklinde yapılabilir.



  Alıntı
Bu mesajı beğenenler:
#4
sn dsezgin, merhaba

eklediğiniz kodu uyguladığımda doğru çalışmadı. 

benim eklediğim örnekteki kod a (sizin eklediğiniz kod dan  "Me.Liste100.Selected(LngIndex) = True" kısmını aldım,

bu kod ile aşağı yukarı işlemi yapılılrken liste kutusundaki seçim hep aktif seçim olarak seçtirildi.
liste kutusundaki ilk kayda gitme sorunu çözüldü.
teşükkürler.
Visual Basic
  1. Private Sub asagi_Click()
  2. Dim LngIndex As Long
  3. LngIndex = Me.Liste100.ListIndex + 2
  4. If Me.Liste100.ListIndex = -1 Then Exit Sub
  5. If Me.Liste100.ListCount = LngIndex Then Exit Sub
  6. DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) & " where ID=" & Me.Liste100.Column(1, LngIndex)
  7. DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) + 1 & " where ID=" & Me.Liste100.Column(1)
  8. Me.Liste100.Requery
  9. Me.Liste100.Selected(LngIndex) = True
  10. End Sub
  11.  
  12.  
  13. Private Sub yukari_Click()
  14. Dim LngIndex As Long
  15. LngIndex = Me.Liste100.ListIndex
  16. If Me.Liste100.ListIndex = -1 Then Exit Sub
  17. If Me.Liste100.ListIndex = 0 Then Exit Sub
  18. DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) & " where ID=" & Me.Liste100.Column(1, LngIndex)
  19. DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) - 1 & " where ID=" & Me.Liste100.Column(1)
  20. Me.Liste100.Requery
  21. Me.Liste100.Selected(LngIndex) = True
  22. End Sub





  Alıntı
Bu mesajı beğenenler:
#5
(26-02-2022, 12:29)husem demiş ki: eklediğiniz kodu uyguladığımda doğru çalışmadı. 


.rar   işlem sıra no(Husem).rar (Boyut: 31,42 KB / İndirilme: 24) incelenebilir.



  Alıntı
Bu mesajı beğenenler:
#6
sn dsezgin üstadım,
eklediğiniz örneği inceledim,
örnek doğru çalıştı. yardımınız için teşekkür ederim.
miraç kandiliniz mübarek olsun,



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-11 [FORM] access ıcon değiştirme oosmaner 5 804 08-02-2024, 12:43
Son Mesaj: BeyTor
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 107 04-02-2024, 00:42
Son Mesaj: zimbit
  [RAPOR] Rapor Fontunu Değiştirme ates2014 6 148 25-01-2024, 15:15
Son Mesaj: ates2014
  [VBA] Pc. Tarih Formatını Değiştirme ates2014 8 204 09-01-2024, 09:18
Son Mesaj: ates2014
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 153 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Metin Kutusu Adı Değiştirme Hk. snapper 9 218 08-11-2023, 01:12
Son Mesaj: dsezgin
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 110 24-10-2023, 21:06
Son Mesaj: dsezgin
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 295 20-10-2023, 00:36
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi