Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
05/07/2017 16:19
Konu Sahibi
Gokcen Akan
Yorumlar
25
Okunma
1069
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
27/07/2017,15:26
(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
27/07/2017,15:26
(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ü Dlookup Kodu Hatası accessdelisi 3 138 14/10/2017, 07:52 accessdelisi
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 302 05/10/2017, 14:38 anno
Çözüldü Formdaki Değerlere Göre Raporu Listeleme husem 7 244 01/10/2017, 21:44 ozanakkaya
Çözüldü Sql İle İlişkili Combobox Oluşturma tsots 8 342 09/09/2017, 04:13 ozanakkaya
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 153 30/08/2017, 15:51 husem

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