Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Müşteri Kategorisine Göre Sipariş No Verdirme

Müşteri Kategorisine Göre Sipariş No Verdirme
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 755 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#7
24-08-2025, 22:38
(22-08-2025, 09:17)dsezgin demiş ki: DMax("CLng(Nz(Mid([MUSTERI_SIP_NO],7),0))", "SIPARIS_KAYIT", "Mid(MUSTERI_SIP_NO, 1, 3)='" & Sec & "'") + 1

numaratör olmalı.

Sayın Dsezgin yardımınız için çok teşekkür ederim.

Evet sıralı veriyor.
fakat şu sorunla karşılaştım.

örnek olarak: 
BER24-56
(24=2024 YILINI TEMSİL EDİYOR.)

2025 yılı için ilk kaydı verirken BER25-1  vermeli
yani her yeni yıla geçtiğinde 1 den başlatmalı,

şuanki haliyle yaptığımda örneğin BER24-56 ise 

bir sonraki yılda
BER25-57 olarak devam ediyor.

İHR24-99 İSE
bir sonraki yılın ilk kaydında İHR25-1 olması gerekirken
İHR25-100 yapıyor.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.034 yorum yaptı.
Toplam 1.068 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 56 / 235
#8
25-08-2025, 10:49
Visual Basic
  1. Private Sub MUSTERI_AfterUpdate()
  2. Sec = IIf(Me.MUSTERI.Column(1) = -1, "IHR", "BER")
  3. Dim Numarator As Long, SENE As Long
  4. SENE = Format(Date, "yy")
  5. Numarator = IIf(DCount("*", "SIPARIS_KAYIT", "CLng(Nz(Mid(MUSTERI_SIP_NO, 4, 2),0))=" & SENE & " And Mid(MUSTERI_SIP_NO, 1, 3)='" & Sec & "'") = 0, 0, DMax("CLng(Nz(Mid([MUSTERI_SIP_NO],7),0))", "SIPARIS_KAYIT", "CLng(Nz(Mid(MUSTERI_SIP_NO, 4, 2),0))=" & SENE & " And Mid(MUSTERI_SIP_NO, 1, 3)='" & Sec & "'")) + 1
  6. Me.MUSTERI_SIP_NO = Sec & SENE & "-" & Numarator
  7. Me.KATEGORI = Me.MUSTERI.Column(0)
  8. End Sub



Sene kontrolü yapılabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 755 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
#9
25-08-2025, 11:42
sn dsezgin, yardımınız için çok teşekkür ederim,
sayenizde açmış olduğum konu tamamlandı, tamda istediğim (düşündüğüm) gibi oldu. halloldu.
tekrar çok teşekkür ederim,
hayırlı işler diliyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Sipariş Kodu Oluşturma alikagan 4 408 02-06-2022, 21:59
Son Mesaj: alikagan
  Sipariş Numarasına Göre Koli Numarası Verdirme husem 9 642 29-01-2022, 00:41
Son Mesaj: husem
  Im Değerine Göre - Tag Değerine Göre Işlem Yapma alikagan 5 590 09-12-2021, 09:06
Son Mesaj: halily
  [FORM] Müşteri Için çoklu Müşteri Adresi Ekleme Kullanma anno 4 558 10-10-2021, 20:24
Son Mesaj: dsezgin
  [FORM] Sipariş Formundaki Kayıtda Kritere Göre Toplam anno 8 1.192 25-09-2019, 07:10
Son Mesaj: dsezgin
  [FORM] MÜŞTERİ HİZMET AJANDA GÜN TAKİBİ Lenadro 4 1.323 06-03-2019, 09:18
Son Mesaj: Lenadro
  [VBA] müşteri ekranına rakam gönderme hedefkaya 1 761 19-12-2018, 15:43
Son Mesaj: hedefkaya
  [FORM] Sipariş Formunda Ürün Bulma İşleminde Hata cimayilci 10 1.847 23-10-2018, 08:23
Son Mesaj: cimayilci

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):