Skip to main content

AccessTr.neT


Cari baş harfine göre firma kodu oluşturma hakkında

Cari baş harfine göre firma kodu oluşturma hakkında

#7
Sayının bir fazlasının alınacağı tablo adı ve alanun adını yazacaksınız. Kodda problem yok çalılıyor
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#8
örneği inceleyiniz
.7z ozguryasin.7z (Dosya Boyutu: 19,37 KB | İndirme Sayısı: 12)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#9
(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
Cevapla
#10
Gönderdiğim örneğe göre uyarlayın olur. Örnekte çalışıyor sizdede çalışır
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#11
(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
Cevapla
#12
En alt satıra me. Firma no yaz
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da