(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ü