A.S.C Filtre, Grafik ve Raporlama Eklentisi

yıla göre otomatik sıra numarası verme
#1
Herkese merhaba,


Yapmaya çalıştığım bir ugulamamda S_IlanNu alanına "Yıl-000000" formatında otomatik kayıt numarasını aşağıda yazdığım kod ile problemsiz veriyorum. Kod Kaydet düğmesinin altına yazılıyor. Ancak yapılan işlemin bir Satış işlemi olduğunu görebilmek için yukarıdaki formatın içine S harfinin de eklenerek formatı  "Yıl-S-000000" haline dönüştürmek istiyorum. Kendi bilgim dahilinde bir kaç defa denedim fakat bana "Ölçüt uyumsuzluğu" olduğuna dair mesaj verdi ve kayıt numarası vermedi. Bu konuda yardıma ihtiyacım var. Şimdiden teşekkür ederim.

Alan Adı:  S_IlanNu 

Mevcut Format:  Yıl-00000

İstediğim Format:  Yıl-S-000000

Tablo Adı:  Tbl_Satici_Emlak_Kayit

Kullandığım Kod:

Dim EnSon As Long
    
Me.S_IlanNu = vbNullString
EnSon = Nz(DMax("mid(S_IlanNu,6,len(S_IlanNu))", "Tbl_Satici_Emlak_Kayit", "Mid([S_IlanNu],1,4)=" & Year(Date)), 0)
Me.S_IlanNu = Year(Date) & "-" & Format(IIf(EnSon = 0, 1, EnSon + 1), "000000")



  Alıntı
Bu mesajı beğenenler:
#2
Selam çıkan sonucu string degiskene alıp denermisiniz



  Alıntı
Bu mesajı beğenenler:
#3
Dim istediginizformat as string

istediginizformat="yil-s" & enson

Bu tarzda denermisiniz



  Alıntı
Bu mesajı beğenenler:
#4
Sayın Aydın,
Hemen cevapladığınız için teşekkür ederim ancak gene aynı hatayı verdi.



  Alıntı
Bu mesajı beğenenler:
#5
alanın türü ne?



  Alıntı
Bu mesajı beğenenler:
#6
Sayın Halily alanın türü Metin Kutusu.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veri Tabanında Sıra Numarasının Baştan Sıralanmasını sefersanli 2 106 16-10-2019, 12:09
Son Mesaj: sefersanli
access-sql-18 [FORM] Girdiğimiz Yıl Sayısına Göre Tarihi Otomatik Vermesi prestij06 13 280 06-10-2019, 12:43
Son Mesaj: prestij06
  [FONKSiYON] Kayıt Sayısı Atama Yeniden Değer verme ve Sıralama Ahmet51 37 798 19-09-2019, 14:42
Son Mesaj: Ahmet51
  [VBA] Vba kodlarda satır verme hturkavci03 3 229 05-03-2019, 10:57
Son Mesaj: dsezgin
  [RAPOR] Raporda Otomatik Sıra Numarası Verirken Parametre Sorgusu Penceresi Gelmesi mmert06 6 362 23-01-2019, 02:37
Son Mesaj: mmert06
  [VBA] Combo box Çoklu Seçime Koşul Verme Hk armane 5 382 06-12-2018, 20:14
Son Mesaj: dsezgin
  [VBA] Butona basarak açılan kutudaki verileri sıra ile çağırmak fatihsipahi 6 645 27-09-2018, 12:35
Son Mesaj: onur_can
  [RAPOR] Uygulamada yıla göre aylık toplu ve yıla göre aylık listbox filtreli rapor shephard 4 482 18-09-2018, 16:02
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi