Skip to main content

AccessTr.neT


Cari baş harfine göre firma kodu oluşturma hakkında

Cari baş harfine göre firma kodu oluşturma hakkında

#25
(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.
Cevapla
#26
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task