Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Tablodaki Proses Numarasına Göre Başka Alanın Verisini Belirleme

[VBA] Tablodaki Proses Numarasına Göre Başka Alanın Verisini Belirleme
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#13
04-12-2019, 19:09
çok teşekkürler, sayenizde tamamlandı.
iyi çalışmalar dilerim,



  Bul
  Alıntı
Bu mesajı beğenenler:
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#14
11-12-2019, 00:42
merhaba arkadaşlar,

ELIAR_GRUP_SIRA'yı numaralandırırken yanlış numaralandırıyor.
aşağıdaki örnekte 1 nolu proses doğru, 3 nolu proses doğru,
15 nolu prosesi numaralandırken 2 den başlamış. 1 den başlaması gerekiyordu, aşağıdaki resimde mavi ile yadığım rakamların olması gerekiyor aslında. yardımcı olabilirmisiniz.

6 nolu prosesde 1 den başlamış o da doğru, 
fakat 9 nolu proses 2 den başlamış, aslında 1 den boşlaması gerekiyordu.



[Resim: attachment.php?aid=22974]

Visual Basic
  1. Private Sub tablo_duzenle_Click()
  2.  
  3. Dim Kayit As New ADODB.Recordset, SiraNo, ElGrp, ElSr, PrsSira, PrsID, GenSira, EGSNS As Long, GrpKd As String
  4. Kayit.Open "SELECT * FROM BOYAMA_RECETE_VERITABANI Order By ISLEM_SIRA, PROSES_ID, VER_GRUBU, MADDE ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  5. Kayit.MoveFirst
  6. Do Until Kayit.EOF
  7. SiraNo = SiraNo + 1: PrsSira = PrsSira + IIf(PrsID <> Kayit("PROSES_ID"), 1, 0): GenSira = GenSira + IIf((PrsID & GrpKd) <> (Kayit("PROSES_ID") & Kayit("VER_GRUBU")), 1, 0)
  8. EGSNS = IIf(PrsID <> Kayit("PROSES_ID"), 0, EGSNS) + IIf((PrsID & GrpKd) <> (Kayit("PROSES_ID") & Kayit("VER_GRUBU")), 1, 0)
  9. If PrsID <> Kayit("PROSES_ID") And GrpKd <> Kayit("VER_GRUBU") Then
  10.     ElGrp = 1: ElSr = 1
  11. ElseIf PrsID = Kayit("PROSES_ID") And GrpKd = Kayit("VER_GRUBU") Then
  12.     ElSr = ElSr + 1
  13. ElseIf PrsID = Kayit("PROSES_ID") And GrpKd <> Kayit("VER_GRUBU") Then
  14.     ElGrp = IIf(Mid(Kayit("MADDE"), 1, 3) = "BOY", ElGrp, ElGrp + 1): ElSr = 1
  15. Else
  16.     ElGrp = ElGrp + 1: ElSr = 1
  17. End If
  18. Kayit("ELIAR_PARTI_SIRA") = SiraNo
  19. Kayit("ELIAR_GRUP_SIRA_NO") = ElSr
  20. Kayit("ELIAR_GRUP_SIRA") = ElGrp
  21. Kayit("ELIAR_PROSES_SIRA") = PrsSira
  22. Kayit("ELIAR_MADDE") = Mid(Kayit("MADDE"), 1, 3) & PrsSira
  23. Kayit("ELIAR_GNL_SIRA") = GenSira
  24. Kayit("ELIAR_GRUP_SIRA_NO_SAYISI") = EGSNS
  25. PrsID = Kayit("PROSES_ID"): GrpKd = Kayit("VER_GRUBU")
  26. Kayit.Update
  27. Kayit.MoveNext
  28. Loop
  29. Kayit.Close: Set Kayit = Nothing
  30.  
  31. End Sub




Eklenti Dosyaları
.rar   ELİAR-sql.rar (Boyut: 27,23 KB / İndirilme: 60)
.png   ELAR1.PNG (Boyut: 67,66 KB / İndirilme: 106)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.091 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#15
11-12-2019, 07:31
Else
  ElGrp = 1: ElSr = 1
End If
Kayit("ELIAR_PARTI_SIRA") = SiraNo

Prosedurun renkli isaretli yerin ElGrp degiskeni 1 yapin. SQLA Siralama da ID olmali
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler: husem
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#16
11-12-2019, 09:41
sn dsezgin, çok teşekkür ederim,
iyiki varsınız,
Allah kolaylıklar versin.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 472 23-11-2025, 11:33
Son Mesaj: dsezgin
  Tablodaki Alanı Alt Tablodan Alınan Değerle Güncelleme Sorgusu Lidervet 7 638 02-12-2024, 11:20
Son Mesaj: halily
  [SORGU] Sütun Verisini Satıra çavirme gokselbilici 2 450 13-09-2024, 12:16
Son Mesaj: gokselbilici
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 558 14-03-2024, 11:07
Son Mesaj: yahyamacit
  Tablodaki Verileri Yan Yana Yazdırmak 10pele 11 697 09-03-2024, 02:52
Son Mesaj: dsezgin
  Acces Sql De Tablodakı Bos Kayıtları Sorgulayabılmek sevincili 2 409 02-02-2024, 01:59
Son Mesaj: dsezgin
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 721 08-01-2024, 11:58
Son Mesaj: bilservisci
  Tablodaki Verileri Yan Yana Yazdırmak atyaty 4 773 11-12-2023, 12:57
Son Mesaj: atyaty

Foruma Git:


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