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