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

Derecelendirme: 0/5 - 0 oy

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

Uzman
7
Me.... B.....
 72
 3.212
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,08:02
Merhaba

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



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

Uzman
7
Me.... B.....
 72
 3.212
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,08:02
örneginizi ekleyin lütfen



ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 19/05/2019,09:46

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

Ü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ü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 137 23 dakika önce
Son Yorum: magmar
Çözüldü Excel Kodu Access Koda Çevirmek C*e*l*o*y*c*e 3 107 18/05/2019, 01:34
Son Yorum: C*e*l*o*y*c*e
Çözüldü Stok Bakiye Depoya Göre Seçilerek Arama ahmetbal 1 156 06/05/2019, 21:26
Son Yorum: C*e*l*o*y*c*e
Çözüldü Otomatik sayı yıllara göre vermesi Fatih34 16 722 06/04/2019, 22:34
Son Yorum: haliliyas
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 246 26/03/2019, 15:21
Son Yorum: programmer67

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