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
Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma
| Bu Konudaki Yorumlar |
|
Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - Yazar: alikagan - 01/06/2022, 14:47
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - Yazar: mozuer - 01/06/2022, 16:58
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - Yazar: alikagan - 01/06/2022, 20:46
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - Yazar: mozuer - 02/06/2022, 13:25
RE: Her Yıl Otomatik Değişen Sipariş Kodu Oluşturma - Yazar: atoykan - 02/06/2022, 20:33
|
Konuyu Okuyanlar: 1 Ziyaretçi
