[VBA] Otomatik Numara Verdirme
#1
Merhaba,
Yaptığım işte standart adlandırma işleminin bir sistematiği var.


Bir standart, iş standardı ise "G-[BölümAdı]" diye, video standardı ise "V-" diye, İşletme talimatı ise "KE-" diye başlıyor. (Örnek ben kalıp ekipman bölümünde olduğumdan yeni iş standardı yazarsam baş tarafı "G-Kalıp" oluyor.)

Standart hangi işle ilgili ise o işe tanımlı numara devamına ekleniyor (Mesela kalıp hazırlama işi diyelim tanımlı numarası da 2 olsun "G-Kalıp-2" oluyor.

Devamında 4 basamaklı bir numara daha geliyor. Bu da yapılan standardın türünü belirtiyor. İş güvenliği ise 1, kalite ise 2, Problemlere Müdahale ise 3, operasyon ise 4 ile başlıyor (7'ye kadar gidiyor). Örneğin operasyon standardı olsun.
"G-Kalıp-2-4001" oluyor. Kalıp hazırlama ile ilgili yeni bir operasyon standardı yazılırsa bu sondaki 4 basamaklı sayı 1 arttırılıyor. Örn: "G-Kalıp-2-4002" oluyor.

Şimdi sorum şu;

Formda bu kriterleri seçebileceğim açılan kutular var. Açılan kutulardan seçtiklerime göre standart numarasını sistemin otomatik vermesini sağlayabilir miyim? Aynı kaydın girilebilmesini engellemiştim. Burada kafama takılan nokta, sistem en son girilmiş kaydı bulup 1 eklemeli. Bunu nasıl yapabiliriz ya da yapabilir miyiz?

Diyelim ki yeni bir iş standardı yazdım ve kayıt formunda aşağıdaki kriterleri seçtim.
Standart Türü: İş Standardı
Standart Klasörü: Kalıp Temizleme (tanımlı numarası 6)
Standart Sınıfı: Problemlere Müdahale

Daha önce G-Kalıp-6-3016 nolu kaydın olduğunu var sayarsak, aşağıdaki standart numarasının otomatik gelmesini sağlayabilir miyim?
Standart No: G-Kalıp-6-3017


Eklenti Dosyaları
.rar   Standart Takip Sistemi Deneme.rar (Boyut: 47,22 KB / İndirilme: 73)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Müşteri Kategorisine Göre Sipariş No Verdirme husem 8 622 25-08-2025, 11:42
Son Mesaj: husem
  Sipariş Numarasına Göre Koli Numarası Verdirme husem 9 848 29-01-2022, 00:41
Son Mesaj: husem
  [VBA] Rasgele Numara Üretme Enigmatic 21 12.845 11-05-2021, 14:33
Son Mesaj: dsezgin
  [FORM] Eksik Numara Ve Mükerrer Kayıt golf2000 0 550 24-01-2021, 19:06
Son Mesaj: golf2000
  Klasör Içindeki Evraklara Numara Verme, Büro Içi Kullanım Yrdm. comand0 3 754 15-05-2020, 03:57
Son Mesaj: userx53
access-sql-19 Sorguda Tekrarlanan Kayıtlara aynı numara ile Kars36 4 1.263 04-10-2017, 23:55
Son Mesaj: dsezgin
  [TABLO] access kimlik numara tutma rk10 2 1.555 23-03-2016, 19:46
Son Mesaj: rk10
  [FORM] Yeni numara verdiremiyorum mengene 4 1.925 15-03-2016, 21:29
Son Mesaj: mengene

Foruma Git:


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