Konu Araçları | Seçenekler: | Gösterim Stili

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

Tarih
05/07/2017 16:19
Konu Sahibi
Gokcen Akan
Yorumlar
25
Okunma
581
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

Gokcen Akan


Üye
Kullanici Avatari
Üye
11
1
05/07/2017
0
Dün,16:51
(12/07/2017, 18:23)ozanakkaya Adlı Kullanıcıdan Alıntı: İnceleyip olumlu/olumsuz bildirimde bulununuz.


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

Gokcen Akan


Üye
Kullanici Avatari
Üye
11
1
05/07/2017
0
Dün,16:51
Sponsor Reklam
(12/07/2017, 18:41)ozguryasin Adlı Kullanıcıdan Alıntı: 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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formda İki Kritere Göre Filtre Uygulamak ertans 2 136 18/07/2017, 11:43 ertans
Çözüldü Kayıt Tarihini Farklı Gününe Göre Artı Tarih Getirme U.ALTUN 4 167 10/07/2017, 11:59 U.ALTUN
Çözüldü Aktifse Kodu Kullan... blue_wall 6 229 07/07/2017, 10:31 blue_wall
Çözüldü Combobox Açılan Kutu Yazdığım Metne Göre Otomatik Bulma keskin78 3 168 30/06/2017, 01:16 keskin78
Çözüldü İyelik Eki Vba Kodu sadooo 5 157 23/06/2017, 00:05 idrisy

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.