+- 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)
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - ozguryasin - 06/07/2017
Sayının bir fazlasının alınacağı tablo adı ve alanun adını yazacaksınız. Kodda problem yok çalılıyor
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - ozguryasin - 06/07/2017
örneği inceleyiniz
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - Gokcen Akan - 06/07/2017
(06/07/2017, 10:02)ozguryasin yazdı: örneği inceleyiniz
yardımınız için teşekkür ederim ama firmanı gizlilik ilkesi gereği herhangi bi dosya paylaşılması yazak pc den, anca eve gidince kendi pcimden örnek oluşturup bi Excel dosyası formatında atabilirm .
İlginiz için tekrardan teşekkürler
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - ozguryasin - 06/07/2017
Gönderdiğim örneğe göre uyarlayın olur. Örnekte çalışıyor sizdede çalışır
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - Gokcen Akan - 07/07/2017
(05/07/2017, 22:04)ozguryasin yazdı: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.
Merhabalar yazdığınız kodu çalıştırabildim ancak değeri FIRMA UNVANINA yazıyor. Onun FIRMA KODUNA yazılmasına nasıl sağlayabilirim?
Değiştirdiğim Değişkenler;
Me.FIRMAMETİNKUTUSU --> FIRMA_UNVANI
ALANADI ---> FIRMA_KODU
TABLOADI --> KOD_LISTESI
Cvp: Firma Kodu Oluşturma Hakkında ( Yardımcı Olursanız Çok Sevinirim ) - ozguryasin - 07/07/2017
En alt satıra me. Firma no yaz