Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/07/2017 16:19
Konu Sahibi
Gokcen Akan
Yorumlar
25
Okunma
2239
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Gokcen Akan

Gokcen Akan

Üye
90976
 Belirtilmemiş
 1
 11
 05/07/2017
0
 
 
 
 27/07/2017,15:26
Çözüldü 
Merhabalar,
2 gündür uğraştığım bir konu var, yardımcı olabilirseniz sevinirim [Resim: smile.gif]
Access'te bir formumuz var yeni müşerilerimzi kaydettiğimiz. Oraya Firma kodunun otomatik atanmasını istiyoruz.
Kodun işleyişi şu şekilde; Firma Ünvanının baş harfi, peşinede o harfe kaçıncı sayıda kaldıysak +1 ekleyip eklenmesini istiyoruz.
Örnek olarak;
Koton firmasını kaydetmek istediğimde Firma kodunu K00125 daha önce olduğundan K00126 olarak girsin.

Yardımcı olursanız çok sevinirim.




C*e*l*o*y*c*e

C*e*l*o*y*c*e

Uzman
7
Me.... B.....
 72
 3.217
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Dün,23:50
Merhaba

A1 = DMax("DOSYANO", "TBLKISILER")
If IsNull(A1) Then A1 = 0
Me.txtDOSYANO = "N" & Format(A1 + 1, "000000")
Bu şekilde yapabilrsiniz.



...........
Gokcen Akan

Gokcen Akan

Üye
90976
 Belirtilmemiş
 1
 11
 05/07/2017
0
 
 
 
 27/07/2017,15:26
(05/07/2017 16:36)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: Merhaba

A1 = DMax("DOSYANO", "TBLKISILER")
If IsNull(A1) Then A1 = 0
Me.txtDOSYANO = "N" & Format(A1 + 1, "000000")
Bu şekilde yapabilrsiniz.

LABELin üstüne tıklatıp özellıklerden olay yordamının içine yazıyorum Visual basıc ekranına doğru mudur?
Öyleyse çalışmadıda
Dosya no ya tablonun adının yazdım ondan mı yalnıslık oldu acaba ?



C*e*l*o*y*c*e

C*e*l*o*y*c*e

Uzman
7
Me.... B.....
 72
 3.217
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Dün,23:50
örneginizi ekleyin lütfen




...........
ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.136
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 Dün,21:24

Visual Basic Code
1
2
3
4
5
6
7
8
9
Dim FIRMAHARF As String 
Dim A1 As Integer

FIRMAHARF = Left(Me.FIRMAADIMETINKUTUSU, 1)

A1 = DMax("ALANADI", "TABLOADI")

If IsNull(A1) Then A1 = 0
Me.FIRMANOMETINKUTUSU = FIRMAHARF & Format(A1 + 1, "000000")


kendi projenize uyarlayınız işinizi görecektir. firma adı ne ile başlıyor ise ilk harfini alacak geri kalanı tablodan son kalan numarayı alıp 1 ekleyecek. örneğin; Yasin olan bir şirket  Y000063 vb..
firma adının iki veya daha fazla harfini alacaksanız. left  kodu sonundaki 1 rakamını 2,3 vb yapınız.


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.

Gokcen Akan

Gokcen Akan

Üye
90976
 Belirtilmemiş
 1
 11
 05/07/2017
0
 
 
 
 27/07/2017,15:26
(05/07/2017 22:04)ozguryasin Adlı Kullanıcıdan Alıntı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
Dim FIRMAHARF As String 
Dim A1 As Integer

FIRMAHARF = Left(Me.FIRMAADIMETINKUTUSU, 1)

A1 = DMax("ALANADI", "TABLOADI")

If IsNull(A1) Then A1 = 0
Me.FIRMANOMETINKUTUSU = FIRMAHARF & Format(A1 + 1, "000000")


kendi projenize uyarlayınız işinizi görecektir. firma adı ne ile başlıyor ise ilk harfini alacak geri kalanı tablodan son kalan numarayı alıp 1 ekleyecek. örneğin; Yasin olan bir şirket  Y000063 vb..
firma adının iki veya daha fazla harfini alacaksanız. left  kodu sonundaki 1 rakamını 2,3 vb yapıÖne

Öncelikle ilgilendiğiniz için çok teşekkür ederim.
Kodu çalıştırdığımda A1 = DMax("FIRMA_KODU", "KOD LISTESI") satırında hata veriyor. Alan adı dediğiniz otomatik atanacak kolon adı değil midir acaba ? Verilen hatada boş değer dönmüştür diyor çünkü



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü 4 Basamaklı artan sayı veya rastgele birbirinden farksız 4 basamaklı sayı oluşturma metbal 9 2.814 22/06/2019, 14:25
Son Yorum: leecooper2
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 128 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 171 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 370 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Excel Kodu Access Koda Çevirmek C*e*l*o*y*c*e 3 216 18/05/2019, 01:34
Son Yorum: C*e*l*o*y*c*e

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.