A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Tablodaki Proses Numarasına Göre Başka Alanın Verisini Belirleme
#1
Merhaba arkadaşlar, 
aşağıdaki tablonun düzenlenmesine bana yardımcı olabilirmisiniz.

tablodaki PROSES_ID kaynına göre ELIAR ile başlayan alanlarda düzenleme yapılacak.

1-ELIAR_PARTI_SIRA= bu alana tablodaki kayıt sayısı kadar 1 den başlayarak kaç kayıt varsa sıralı numara verecek, 1-2-3....



2-PROSES_ID' deki (sarı alan) ekteki örnektir. proses numarıs mesela 1, ELIAR_PROSES_SIRA sı 1 olacak.

                                ikinci kayıt 4 nolu proses,  ELIAR_PROSES_SIRA sı 2 olacak. (çünkü 2. sıradaki proses bu)

                                üçüncü kayıt 16 nolu proses, ELIAR_PROSES_SIRA sı 3 olacak. aşağıya doğru prosesin 

                                kaçıncı sırada olduğu numaralanabilirmi? 
3-MADDE alanında kimyasal ve boya kodları var (KIM-001,KIM-002,BOY-001, BOY-002 gibi). bunları da PROSES_ID nin her değişiminde ELIAR_MADDE alanındaki gibi ELIAR_PROSES_SIRA sı kaçsa ELIAR_MADDE de (proses sıra 1 ise ELIAR_MADDE= KIM1, proses sıra 2 ise ELIAR_MADDE_ KIM2 olacak. gibi bu seçilde yapılabilirmi.  MADDE alanının ilk üç harfi olacak. bazen prosesin içinde sadece KIM-001..... değilde boya yani BOY-001   vs oluyor.

tablonun düzenlenmiş halinin olması gerekeni ekte var.

[Resim: attachment.php?aid=22939]

bu konuda yardımcı olabilirmisiniz arkadaşlar.
iyi çalışmalar


Eklenti Dosyaları
.png   Ekran Alıntısı.PNG (Boyut: 63,95 KB / İndirilme: 17)
.rar   ELİAR.rar (Boyut: 21,4 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:
#2
Proses_id = 16'yi ucuncu sira guruplama olmasi icin 6 ve 9'un onunde okutmaliyiz, bunun icin ne yapmaliyiz?

16'inci Proses_id 5 numarali grup olmasi olayi etkiler mi?

Visual Basic
  1. Private Sub tablo_duzenle_Click()
  2. Dim Kayit As New ADODB.Recordset, SiraNo, PrsSira, PrsID As Long
  3. Kayit.Open "SELECT * FROM BOYAMA_RECETE_VERITABANI Order By ISLEM_SIRA, VER_GRUBU, MADDE ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  4. Kayit.MoveFirst
  5. Do Until Kayit.EOF
  6. SiraNo = SiraNo + 1: PrsSira = PrsSira + IIf(PrsID <> Kayit("PROSES_ID"), 1, 0)
  7. Kayit("ELIAR_PARTI_SIRA") = SiraNo
  8. Kayit("ELIAR_PROSES_SIRA") = PrsSira
  9. Kayit("ELIAR_MADDE") = Mid(Kayit("MADDE"), 1, 3) & PrsSira
  10. PrsID = Kayit("PROSES_ID")
  11. Kayit.Update
  12. Kayit.MoveNext
  13. Loop
  14. Kayit.Close: Set Kayit = Nothing
  15. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
Sn dsezgin hocam kolay gelsin,

tabloya ISLEM_SIRA adında alan ekledim,
normalde bu alan vardı, ben örnek tablo olduğu için eklememiştim,
bu alandaki numaralar artan olarak gidiyor, her prosesde bu numara artıyor,
bazen arada çıkmaması gereken proses olduğunda sayı atlayabilir, ama bu alan (ISLEM_SIRA) nın artan  olduğu kesin ( 2,3,5,8,10 gibi olur)
aşağıdaki ISLEM_SIRA eklenmiş hali,
kodu aşağıdaki gibi düzeltince tablo aşağıdaki gibi oldu,

Private Sub tablo_duzenle_Click()

Dim Kayit As New ADODB.Recordset, SiraNo, PrsSira, PrsID As Long
Kayit.Open "SELECT * FROM BOYAMA_RECETE_VERITABANI Order By ISLEM_SIRA, VER_GRUBU, MADDE ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Kayit.MoveFirst
Do Until Kayit.EOF
SiraNo = SiraNo + 1: PrsSira = PrsSira + IIf(PrsID < Kayit("PROSES_ID"), 1, 0)
Kayit("ELIAR_PARTI_SIRA") = SiraNo
Kayit("ELIAR_PROSES_SIRA") = PrsSira
Kayit("ELIAR_MADDE") = Mid(Kayit("MADDE"), 1, 3) & PrsSira
PrsID = Kayit("PROSES_ID")
Kayit.Update
Kayit.MoveNext
Loop
Kayit.Close: Set Kayit = Nothing
End Sub


SEÇİLİ alan KIM4 olması gerekiyordu, ELIAR PROSES SIRA da 4 olması gerekiyordu, sonrakilerinde 5 tabi.
ISLEM_SIRA ve ÜSTTEKİ kodun eklenmiş olduğu dosya ektedir.

[Resim: attachment.php?aid=22941]


Eklenti Dosyaları
.png   4OLMASI.PNG (Boyut: 42,28 KB / İndirilme: 16)
.rar   ELİAR.rar (Boyut: 25,25 KB / İndirilme: 1)



  Alıntı
Bu mesajı beğenenler:
#4
SiraNo = SiraNo + 1: PrsSira = PrsSira + IIf(PrsID <> Kayit("PROSES_ID"), 1, 0)
Satirini renkli alan gibi degistirebilirsiniz.



  Alıntı
Bu mesajı beğenenler: husem
#5
teşekkürler hocam,
işlem tamamdır.



  Alıntı
Bu mesajı beğenenler:
#6
sn sezgin hocam,
yeni bir konu açarak mı devam etseydim, bilemedim ama,
aynı konuyla ilgili olduğu için buradaya yazdım,

sn hocam, burada yapılmaya çalışılan: BOYA KAZANLARI otomasyon sistemine veri gönderilecek. otomasyon sistemi sırasıyla kimyasalı otomasyondan otomatik alabilmesi için bahsettiğim şekilde bir sıralama gerekiyor. 


Yapılmak istenenin hepsini ilk mesajda anlatsam karışık olacak. o yüzden parçalayarak, adım adım anlatmayı düşündüm.

aynı tabloda şimdi yapmaya çalıştığım, ve sizden yardım talebim şudur.
yine ISLEM_SIRA dan gitmek mantıklı olacak sanırım.
Her bir ISLEM_SIRA numaralarında A,B,C,D gibi madde veriliş sırası var.  örneğin 3 tane alt alta A varsa bu A grubundaki maddeler boya kazanına aynı anda veriliyor. Yapılmak istenen de şu:
aşağıdaki örnekten gitmek gerekirse:  2 ISLEM_SIRA kodunda VER_GRUBU alanında alt alta 3 tane A var.  ELIAR_SIRA_GRUP' da A 'ya 1 diyecek. 3 tane A olduğundan A'lara kendi içinde ELIAR_GRUP_SIRA_NO alanında sıra no vercek, 1-2-3 diye.
yine 2 ISLEM_SIRA kodunda VER_GRUBU alanında bir tane B var.  ELIAR_SIRA_GRUP' da B 'ye 2 diyecek. 1 tane B olduğundan ELIAR_GRUP_SIRA_NO alanında sıra no vercek, 1. başka madde olmadığından sadece 1 olacak.

TEK FARK ŞU: BURADA 5 ISLEM_SIRA nolu alanda BOY3 var. (boya maddesi) kimyasal madde olmadığından bunlara numara verirken VER_GRUBU B olmuş dahi olsa ELIAR_GRUP_SIRA 1 olacak, ELIAR_GRUP_SIRA_NO da kendi içinde 1-2-3 olacak.
BOY gördüğü her yerde ELIAR_GRUP_SIRA'yı 1 diyebilir. sabit olabilir. herhangi bir sorun da çıkarmaz. 

sn sezgin hocam, değerli vaktinizi ayırıp yardım yapıyorsunuz, çok teşekkür ederim. bu tabloyu oluştururken ben bile düşünüyorum. nasıl yapsam nasıl anlatsam diye. siz de anlatılanı kafanızda oluşturup, bize yardımcı oluyorsunuz.
Yardımlarınız için Allah Razı olsun,
iyi çalışmalar hocam.

[Resim: attachment.php?aid=22944]


Eklenti Dosyaları
.png   GRUPSIRA.PNG (Boyut: 58,43 KB / İndirilme: 13)
.rar   ELİAR.rar (Boyut: 26,36 KB / İndirilme: 1)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Tablodaki Aynı Satırdaki Verileri Liste Kutusunda Alt Alta Gösterme husem 4 82 17-11-2019, 13:26
Son Mesaj: husem
  [SORGU] Tablodaki ölçüte Uyan Kaydı Bulma husem 3 213 13-11-2019, 14:50
Son Mesaj: dsezgin
  [RAPOR] Tablodaki Yazıyı Raporda Sayıya çevirmek, Ve Toplatmak sefersanli 25 454 28-10-2019, 01:20
Son Mesaj: dsezgin
  Tablodaki Verilere Göre Sorgu Hazırlama husem 4 100 26-10-2019, 23:31
Son Mesaj: husem
  Bir Tablodaki Verileri Başka Bir Tabloya Kayıt M_Kemal_Askeri 3 101 16-10-2019, 15:21
Son Mesaj: halily
access-sql-9 [VBA] Tablodaki Verilerin Yedeklenmesi denizediz 2 102 03-10-2019, 14:29
Son Mesaj: denizediz
access-sql-9 [TABLO] TABLODAKI BIR ALANA VERI GIRISI toygar.01 4 97 02-09-2019, 12:15
Son Mesaj: toygar.01
  2003 Acces.le Yaptığım Program Başka Bilgisayarda Açılmıyor İsmail Küçükşengün 10 260 22-08-2019, 17:56
Son Mesaj: dsezgin

Foruma Git:


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