+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Cari baş harfine göre firma kodu oluşturma hakkında (/konu-cari-bas-harfine-gore-firma-kodu-olusturma-hakkinda.html)
Cvp: Cari baş harfine göre firma kodu oluşturma hakkında - Gokcen Akan - 14/07/2017
(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.
Cvp: Cari baş harfine göre firma kodu oluşturma hakkında - Gokcen Akan - 14/07/2017
(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.