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İ

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

(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

Kodu Seç

Kodu Kopyala

Ben de düzenleseydim benzeri olurdu
Uzmanlarımız yorumlarsa ben de kendimi geliştirmiş olurum...

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.