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
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.