A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Sıra No Değiştirme
#1
kolay gelsin arkadaşlar,

formdaki aşağı yukarı ok ile liste kutusundaki verilerin işlem sıra numaralarını değiştirmek istiyorum. 
yardımcı olabilir misiniz?

[Resim: attachment.php?aid=25269]


Eklenti Dosyaları
.jpg   işlemsırano.JPG (Boyut: 98,92 KB / İndirilme: 20)
.rar   islemsırano.rar (Boyut: 209,78 KB / İndirilme: 7)



  Alıntı
Bu mesajı beğenenler:
#2

.rar   islemsırano.rar (Boyut: 37,81 KB / İndirilme: 6) prosedürü değiştirdim.



  Alıntı
Bu mesajı beğenenler:
#3
sn dsezgin üstadım, kolay gelsin,

örnekteki gibi kullanabilmek daha iyi olacak aslında,  
[Resim: attachment.php?aid=25274]



sizin eklediğiniz örnekte her aşağı yukarı işlemine tıklama sonrasında liste kutusundaki kaydı seçmek gerekiyor,

[Resim: attachment.php?aid=25275]


Eklenti Dosyaları
.gif   kullanılış.gif (Boyut: 62,85 KB / İndirilme: 21)
.gif   kullanılış2.gif (Boyut: 95,83 KB / İndirilme: 19)



  Alıntı
Bu mesajı beğenenler:
#4
İlk mesajda sıra numarasının değişmesi dediğiniz için dsezgin hocam öyle yapmış olmalı. Bende ilk okuduğumda öyle anladım. Ama son mesajınızda aşağı ve yukarı değiştirici butonla aşağı yukarı hareket etmek istiyorsunuz sanırım. Aklıma şöyle bişey geldi.

Aşağı yukarı prosedürlerini aşağıdaki gibi değiştirini.

Visual Basic
  1. Private Sub asagi_Click()
  2. Liste100.SetFocus
  3. For i = 1 To Liste100.ListCount - 1
  4.    If Liste100.Selected(i) = True Then
  5.       KaynakId = Liste100.Column(2)
  6.       KaynakGeciciId = Liste100.Column(0)
  7.       i = i + 1
  8.       Liste100.Selected(i) = True
  9.       HedefId = Liste100.Column(2)
  10.       HedefGeciciId = Liste100.Column(0)
  11.      
  12.       DoCmd.SetWarnings False
  13.       CurrentDb.Execute "UPDATE YUKLEME_LISTESI INNER JOIN SIPARIS_KAYIT ON YUKLEME_LISTESI.SIPARIS_NO = SIPARIS_KAYIT.SIPARIS_NO SET YUKLEME_LISTESI.gecici_id =" & HedefGeciciId & " WHERE YUKLEME_LISTESI.ID=" & KaynakId & ""
  14.       CurrentDb.Execute "UPDATE YUKLEME_LISTESI INNER JOIN SIPARIS_KAYIT ON YUKLEME_LISTESI.SIPARIS_NO = SIPARIS_KAYIT.SIPARIS_NO SET YUKLEME_LISTESI.gecici_id =" & KaynakGeciciId & " WHERE YUKLEME_LISTESI.ID=" & HedefId & ""
  15.       DoCmd.SetWarnings True
  16.              
  17.       If i > Liste100.ListCount - 1 Then Exit Sub
  18.       Liste100.Requery
  19.       Liste100.Selected(i) = True
  20.       Exit Sub
  21.    End If
  22. Next i
  23. End Sub
  24.  
  25.  
  26. Private Sub yukari_Click()
  27. Liste100.SetFocus
  28. For i = 1 To Liste100.ListCount - 1
  29.    If Liste100.Selected(i) = True Then
  30.       KaynakId = Liste100.Column(2)
  31.       KaynakGeciciId = Liste100.Column(0)
  32.       i = i - 1
  33.       Liste100.Selected(i) = True
  34.       HedefId = Liste100.Column(2)
  35.       HedefGeciciId = Liste100.Column(0)
  36.      
  37.       DoCmd.SetWarnings False
  38.       CurrentDb.Execute "UPDATE YUKLEME_LISTESI INNER JOIN SIPARIS_KAYIT ON YUKLEME_LISTESI.SIPARIS_NO = SIPARIS_KAYIT.SIPARIS_NO SET YUKLEME_LISTESI.gecici_id =" & HedefGeciciId & " WHERE YUKLEME_LISTESI.ID=" & KaynakId & ""
  39.       CurrentDb.Execute "UPDATE YUKLEME_LISTESI INNER JOIN SIPARIS_KAYIT ON YUKLEME_LISTESI.SIPARIS_NO = SIPARIS_KAYIT.SIPARIS_NO SET YUKLEME_LISTESI.gecici_id =" & KaynakGeciciId & " WHERE YUKLEME_LISTESI.ID=" & HedefId & ""
  40.       DoCmd.SetWarnings True
  41. If i < 1 Then Exit Sub
  42.       Liste100.Requery
  43.       Liste100.Selected(i) = True
  44. Exit Sub
  45.    End If
  46. Next i
  47. End Sub




Eklenti Dosyaları
.rar   islemsırano.rar (Boyut: 32,92 KB / İndirilme: 0)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Tablodaki Değeri Başka Bir Değerle Değiştirme husem 2 48 28-06-2022, 15:51
Son Mesaj: husem
  [FORM] Günlük Sıra Numarası Vermek M_Kemal_Askeri 3 102 25-05-2022, 23:00
Son Mesaj: M_Kemal_Askeri
  Işlem Sıra Numarasını Butonlarla Değiştirme husem 5 180 27-02-2022, 11:54
Son Mesaj: husem
  Rapor Içindeki Metin Kutusunun Yerini Koordinata Göre Değiştirme Hk. adnnfrm 1 72 30-01-2022, 00:34
Son Mesaj: dsezgin
  [FORM] Etiket Adını Kalıcı Olarak Butonla İle Değiştirme sertac75 15 1.813 15-12-2021, 23:57
Son Mesaj: kamil_55
  Sorguda Baş Sütüna Nasıl Sıra No Koyarım? karacaayt 3 259 23-09-2021, 14:45
Son Mesaj: hegu
access-sql-18 [SORGU] SQL geçerli kaydın sıra nosunu verebilir mi? Mehmet Eser 8 5.548 21-08-2021, 01:19
Son Mesaj: dsezgin
  Tray Iconunu Değiştirme adnnfrm 1 150 31-07-2021, 12:59
Son Mesaj: dsezgin

Foruma Git:


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