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
  [VBA] Vba kodlarda satır verme hturkavci03 3 161 05-03-2019, 10:57
Son Mesaj: dsezgin
  [RAPOR] Raporda Otomatik Sıra Numarası Verirken Parametre Sorgusu Penceresi Gelmesi mmert06 6 274 23-01-2019, 02:37
Son Mesaj: mmert06
  [VBA] Combo box Çoklu Seçime Koşul Verme Hk armane 5 301 06-12-2018, 20:14
Son Mesaj: dsezgin
  [VBA] Butona basarak açılan kutudaki verileri sıra ile çağırmak fatihsipahi 6 552 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 413 18-09-2018, 16:02
Son Mesaj: dsezgin
  [FORM] yıla göre otomatik sıra numarası verme M_Kemal_Askeri 4 463 14-08-2018, 13:55
Son Mesaj: dsezgin
  İsme Göre Otomatik Sıra No Verme golf2000 7 607 08-08-2018, 18:01
Son Mesaj: golf2000
  [VBA] 3 lü sıra no hedefkaya 4 402 22-05-2018, 13:25
Son Mesaj: hedefkaya

Foruma Git:


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