o yüzden forma ait ilk iki satırı firma kodu ve firma adı bölümlerinin formdan ilişkilerini kaldırdım. Projelerinizde Türkçe karakter kullanmayınız. FirmaKodu yazarken FırmaKodu yazmışsınız ingilizcede küçük ı harfi malumunuz mevcut değil.
örneği inceleyip geri bildirimde bulununuz. Ayrıca kodları açık olarakta yayınladım.
Dim RS As New ADODB.Recordset
Dim sOrGu, FIRMAILK As String
sOrGu = "SELECT Left([FırmaKodu],1) AS FU, Min(Mid([FırmaKodu],2.6)) AS FN FROM KODLISTESI GROUP BY Left([FırmaKodu],1);"
RS.Open sOrGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
FIRMAILK = Left(Me.FırmaUnvanı, 1)
Do Until RS.EOF
If RS!FU <> FIRMAILK Then GoTo 1212
Me.FırmaKodu = FIRMAILK & Format(RS!FN + 1, "000000")
GoTo 1213
1212
RS.MoveNext
Loop
Me.FırmaKodu = FIRMAILK & "000001"
1213
RS.Close: Set RS = Nothing