شماره خودکار براساس سال

[reza2371]

سلام خدمت اساتید و دوستان
یه فرم درست کردم وقتی باز میشه بزرگترین شماره ای که در جدول ذخیره کرده را + 1 میکنه و به من نشان میدهد.لازم به ذکر است که این شماره را بر اساس سال شناسایی میکند.
حالا من میخوام وقتی سال سیستم تغییر کرد و و بر اساس سال سیستم مقداری در جدولم ذخیره نشده باشه عدد 1 را به من نشان بدهد

نمونه: 136853

[amirzazadeh]

سلام
چرا سال مالي رو موقع ورود به برنامه انتخاب نمي كنيد؟اينجوري تمامي داده ها مربوط به همان سال خواهد بود. ولي اگه اصرار به اين نوع ورود داده دارين بايد از كدي شبيه به اين كمك بگيريد:

If Left(Me.tarikh, 4) > Left(DLast("tarikh", "table1"), 4) Then
daftar = 1
Else
daftar = DMax("shomareh", "table1") + 1
End If

[reza2371]

سلام
ممنون از توجهتون. با کد که شما دادید مشکلم حل شد. تشکر