Merhaba; Öncelkle ilişkili form ve tablo ile çalışmada aram pek iyi değildir, mantıklıda gelmiyor açıkçası..
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