Cari baş harfine göre firma kodu oluşturma hakkında - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Cari baş harfine göre firma kodu oluşturma hakkında (/konu-cari-bas-harfine-gore-firma-kodu-olusturma-hakkinda.html) |
Cari baş harfine göre firma kodu oluşturma hakkında - Gokcen Akan - 05/07/2017 Merhabalar, 2 gündür uğraştığım bir konu var, yardımcı olabilirseniz sevinirim Access'te bir formumuz var yeni müşerilerimzi kaydettiğimiz. Oraya Firma kodunun otomatik atanmasını istiyoruz. Kodun işleyişi şu şekilde; Firma Ünvanının baş harfi, peşinede o harfe kaçıncı sayıda kaldıysak +1 ekleyip eklenmesini istiyoruz. Örnek olarak; Koton firmasını kaydetmek istediğimde Firma kodunu K00125 daha önce olduğundan K00126 olarak girsin. Yardımcı olursanız çok sevinirim. Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - C*e*l*o*y*c*e - 05/07/2017 Merhaba A1 = DMax("DOSYANO", "TBLKISILER") If IsNull(A1) Then A1 = 0 Me.txtDOSYANO = "N" & Format(A1 + 1, "000000") Bu şekilde yapabilrsiniz. Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - Gokcen Akan - 05/07/2017 (05/07/2017, 16:36)C*e*l*o*y*c*e yazdı: Merhaba LABELin üstüne tıklatıp özellıklerden olay yordamının içine yazıyorum Visual basıc ekranına doğru mudur? Öyleyse çalışmadıda Dosya no ya tablonun adının yazdım ondan mı yalnıslık oldu acaba ? Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - C*e*l*o*y*c*e - 05/07/2017 örneginizi ekleyin lütfen Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - ozguryasin - 05/07/2017
kendi projenize uyarlayınız işinizi görecektir. firma adı ne ile başlıyor ise ilk harfini alacak geri kalanı tablodan son kalan numarayı alıp 1 ekleyecek. örneğin; Yasin olan bir şirket Y000063 vb.. firma adının iki veya daha fazla harfini alacaksanız. left kodu sonundaki 1 rakamını 2,3 vb yapınız. Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - Gokcen Akan - 06/07/2017 (05/07/2017, 22:04)ozguryasin yazdı:Öncelikle ilgilendiğiniz için çok teşekkür ederim. Kodu çalıştırdığımda A1 = DMax("FIRMA_KODU", "KOD LISTESI") satırında hata veriyor. Alan adı dediğiniz otomatik atanacak kolon adı değil midir acaba ? Verilen hatada boş değer dönmüştür diyor çünkü |