اريد تعديل في كود ترقيم تلقائي للسندات

[salah_2024]

السلام عليكم ورحمة الله وبركاته

تقبل الله طاعاتكم في هذا الشهر الكريم ... اخوتي الاعزاء ... عندي هذا الكود وجدته في النت ويظهر لي الترقيم التلقائي بهذه الصيغة اي يظهر لي رقم السند مع العام  ( RV.2400001 ) والذي اريده ان لا يظهر لي العام  ( RV.0000001 ) ارجو المساعدة جزاكم الله خير .

id = "RV." & Replace(Nz(DMax("id", "Table", "id like 'RV." & Right(Year(Date), 2) & "*'"), "RV." & Right(Year(Date), 2) & "00000"), "RV.", "") + 1

id : هو اسم المعرف في الجدول

Table: هو اسم الجدول

[kkhalifa1960]

اذا أردت الناتج في استعلام  (Expr1: "RV." & "0000" & [ID]) واذا اردته في حقل محسوب (اسم الحقل المحسوب مثلاً KK) .. ضع هذا الكود بفورمات الحقل (KK)........ ("RV." & "0000" & [ID])

 

[ابوخليل]

مشاركة مع اخي خليفة

اسهل طريقة لترقيم حقل نصي هي الاستفادة من  حقل الترقيم التلقائي الخاص بالجدول ... 

ويصبح الكود هكذا 

id = "RV." & Me.autoNmber

على اعتبار Me.autoNmber هو حقل الترقيم التلقائي

وهنا لست بحاجة الى اضافة اصفار .. لأن الترقيم التلقائي سيمتد الى مئات الآلاف