[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: 220)
.rar   ELİAR.rar (Boyut: 21,4 KB / İndirilme: 78)



  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: 204)
.rar   ELİAR.rar (Boyut: 25,25 KB / İndirilme: 77)



  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: 239)
.rar   ELİAR.rar (Boyut: 26,36 KB / İndirilme: 71)



  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