(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