+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma (/konu-her-yil-otomatik-degisen-siparis-kodu-olusturma.html)
Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - alikagan - 01/06/2022
kolay gelsin arkadaşlar,
siparis_kodu_tablosu'ndaki siparis_kodu alanına
SP=SİPARİŞ
21=2021
SP-21-9' dan sonra 2022 yılına geçtiğim için
sıradaki numaralar otomatik verdirilebilir mi?
SP-22-1
SP-22-2
SP-22-3 GİBİ
2023 E GEÇİNCE DE
SP-23-1
SP-23-2 GİBİ
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - mozuer - 01/06/2022
Umarım işinizi görür...
Private Sub btn_sip_kodu_olustur_Click()
Dim lstVal As Variant
Dim sipVal As Integer
Dim lstKod As String, sipKod As String
lstKod = DLast("[siparis_kodu]", "siparis_kodu_tablosu")
lstVal = Right(lstKod, 1)
If lstVal = 9 Then sipVal = 1 Else sipVal = lstVal + 1
sipKod = "SP-" & Format(Date, "yy") & "-" & sipVal
Me.sip_kodu = sipKod
End Sub
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - alikagan - 01/06/2022
(01/06/2022, 16:58)mozuer yazdı: Umarım işinizi görür...
Private Sub btn_sip_kodu_olustur_Click()
Dim lstVal As Variant
Dim sipVal As Integer
Dim lstKod As String, sipKod As String
lstKod = DLast("[siparis_kodu]", "siparis_kodu_tablosu")
lstVal = Right(lstKod, 1)
If lstVal = 9 Then sipVal = 1 Else sipVal = lstVal + 1
sipKod = "SP-" & Format(Date, "yy") & "-" & sipVal
Me.sip_kodu = sipKod
End Sub
sn mouzer, ilgilendiğiniz için teşekkür ederim,
sp-21-9'dan sonra yani 9 dan sonra 1 e dönmemesi lazım, aslında ardışık olarak devam etmesi gerekiyor. benim eklediklerim örnekti.
aşağıdaki şekilde düzenleme yaptım,
kodu kısaltmanın bir imkanı varmıdır acaba?
Private Sub btn_sip_kodu_olustur_Click()
lstKod = DLast("[siparis_kodu]", "siparis_kodu_tablosu")
lstVal = Mid(lstKod, 7)
If Format(Date, "yy") <> Mid(lstKod, 4, 2) Then
tarih = Format(Date, "yy")
lstVal = 1
sipKod = "SP-" & tarih & "-" & lstVal
Me.sip_kodu = sipKod
Else
sipKod = "SP-" & Format(Date, "yy") & "-" & lstVal + 1
Me.sip_kodu = sipKod
End If
End Sub
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - mozuer - 02/06/2022
Ben de düzenleseydim benzeri olurdu
Uzmanlarımız yorumlarsa ben de kendimi geliştirmiş olurum...
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - atoykan - 02/06/2022
En fazla tanımladığınız değişkenler yerine doğrudan sorguları kullanabilirsiniz ancak gereksiz. Hız açısından kayda değer fark yaratacak bir yaklaşım değil. Kodlarınız ile bir başkasının çalışması gerekecek olursa da değişkenler üzerinden çalışmak daha anlaşılır olmasını sağlar.