Me.Metin0 = Format(Date, "yymm") & Format(Nz(DMax("mid(SIPNO,5)", "SIPARIS_KAYIT", "left(SIPNO,4)='" & Format(Date, "yymm") & "'"), 0) + 1, "0000")
sağolsun @ozguryasin hocam uyarınca fark ettim, aşağıdaki kod daha doğru gibi