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

#19
(11/07/2017, 14:03)ozanakkaya yazdı:
(06/07/2017, 10:22)Gokcen Akan yazdı: yardımınız için teşekkür ederim ama firmanı gizlilik ilkesi gereği herhangi bi dosya paylaşılması yazak pc den, anca eve gidince kendi pcimden örnek oluşturup bi Excel dosyası formatında atabilirm .
İlginiz için tekrardan teşekkürler

Merhaba, firmanıza ait veritabanını paylaşmayın, içerisinde gerçek bilgi içermeyen tablonuzun ve formunuzun bulunduğu basit veritabanı hazırlayıp ekleyin. Sorunuzu örneğiniz üzerinden düzenlemeye çalışalım.

Aksi halde bu konu 30. sayfaya kadar gider.
Merhabalar
Yeni konu açtım. Oradaki linkte bulabilirsiniz. İlginiz için teşekkürler.
Cevapla
Çözüldü #20
Merhaba; Öncelkle ilişkili form ve tablo ile çalışmada aram pek iyi değildir, mantıklıda gelmiyor açıkçası..
o yüzden forma ait ilk iki satırı firma kodu ve firma adı bölümlerinin formdan ilişkilerini kaldırdım. Projelerinizde Türkçe karakter kullanmayınız. FirmaKodu yazarken FırmaKodu yazmışsınız ingilizcede küçük ı harfi malumunuz mevcut değil.

örneği inceleyip geri bildirimde bulununuz. Ayrıca kodları açık olarakta yayınladım.
Dim RS As New ADODB.Recordset
Dim sOrGu, FIRMAILK As String

sOrGu = "SELECT Left([FırmaKodu],1) AS FU, Min(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
.rar Gokcen_Akan.rar (Dosya Boyutu: 59,29 KB | İndirme Sayısı: 10)
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. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#21
İki adet aynı içerik ve konulu soru olduğu için konular birleştirilmiştir. Ayrıca soru konu başlığı düzenlenmiştir.
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. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#22
(11/07/2017, 21:32)ozguryasin yazdı: İki adet aynı içerik ve konulu soru olduğu için konular birleştirilmiştir. Ayrıca soru konu başlığı düzenlenmiştir.

Öncellikle çok teşekkür ederim yardımlarınız için.
Söylemeye utanıyorum ki bir sıkıntı daha var Img-cray
Kod ataması yaparken 00002 ye kadar atayabilyor
Listeyi oluştururken şu şekilde oldu;
A00001
A00002
A00002
A00002
...
...
B00001
B00002
B00002
...

Şeklinde gidiyor.
Onun dışında herşey tamam.
Son kez zahmet versem size, hataya bakabilir misiniz?
Cevapla
#23
İnceleyip olumlu/olumsuz bildirimde bulununuz.
.rar Gokcen_Akan_sld.rar (Dosya Boyutu: 28,37 KB | İndirme Sayısı: 11)
Cevapla
#24
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

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. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task