(12/07/2017, 18:23)ozanakkaya yazdı: İnceleyip olumlu/olumsuz bildirimde bulununuz.

Çok teşşekür ederim. Herşey mükemmel çalışıyor.
Emeğinize sağlık.

(12/07/2017, 18:41)ozguryasin yazdı: Sorgu bölümünde Min(Mid  yerine   Max(Mid  yazarsanız sorun çözülür gözümden kaçmış. Veya kodları silin aşağıfaki kodları yapıştırın. 

Alıntı:

Kod:

Dim RS As New ADODB.Recordset
Dim sOrGu, FIRMAILK As String

sOrGu = "SELECT Left([FırmaKodu],1) AS FU, Max(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

Öncellikle gerçekten çok teşekkür ederim. Büyük bir dertten kurtardınız beni. Çok zahmet verdim size sıkıntı çözüldü program hatasız çalışıyor.
Emeğinize sağlık.