+- 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
![[Resim: smile.gif]](http://www.excel.web.tr/images/smilies/smile.gif)
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
A1 = DMax("DOSYANO", "TBLKISILER")
If IsNull(A1) Then A1 = 0
Me.txtDOSYANO = "N" & Format(A1 + 1, "000000")
Bu şekilde yapabilrsiniz.
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
Dim FIRMAHARF As String
Dim A1 As Integer
FIRMAHARF = Left(Me.FIRMAADIMETINKUTUSU, 1)
A1 = DMax("ALANADI", "TABLOADI")
If IsNull(A1) Then A1 = 0
Me.FIRMANOMETINKUTUSU = FIRMAHARF & Format(A1 + 1, "000000")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.Dim FIRMAHARF As String
Dim A1 As Integer
FIRMAHARF = Left(Me.FIRMAADIMETINKUTUSU, 1)
A1 = DMax("ALANADI", "TABLOADI")
If IsNull(A1) Then A1 = 0
Me.FIRMANOMETINKUTUSU = FIRMAHARF & Format(A1 + 1, "000000")
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ıÖne
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ü