Merhaba
A1 = DMax("DOSYANO", "TBLKISILER")
If IsNull(A1) Then A1 = 0
Me.txtDOSYANO = "N" & Format(A1 + 1, "000000")
Bu şekilde yapabilrsiniz.
Cari baş harfine göre firma kodu oluşturma hakkında
Konuyu Okuyanlar: 3 Ziyaretçi