07/04/2021, 17:13
U.ALTUN
aşağıdaki kod ile siparişlerime sipariş no verilmektedir. kod oluşumu yıl ay ve sıra no ile oluşuyor şimdi 2 sıra önceki kodu oluşturup hata verip işlem yaptırmıyor sarı numaralarında sayı kayması da yok tüm çabalarıma rağmen hatayı bulamadım başka nerelerde arama gerek yardımlarınız bekliyorum. formun resmini yükledim
1) sıra numarası oluşturma kodu
If NewRecord Then Sirano = DMax("Sirano", "Tbl_Siparisler") + 1
2)sipariş numarası oluşturma kodu
Dim yil, ay As Integer
Dim Sirano As String
yil = Mid(Format(Date, "yyyy"), 1, 4)
ay = Format(Date, "mm")
Sirano = Format(KacKayitVar("Tbl_Siparisler") + 1, "#####")
txtSipno = yil & ay & Sirano
1) sıra numarası oluşturma kodu
If NewRecord Then Sirano = DMax("Sirano", "Tbl_Siparisler") + 1
2)sipariş numarası oluşturma kodu
Dim yil, ay As Integer
Dim Sirano As String
yil = Mid(Format(Date, "yyyy"), 1, 4)
ay = Format(Date, "mm")
Sirano = Format(KacKayitVar("Tbl_Siparisler") + 1, "#####")
txtSipno = yil & ay & Sirano