14/07/2017, 08:30
(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.
14/07/2017, 08:30
14/07/2017, 08:32
(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.