اريد كود يضيف ترقيم تلقائى ولكن عند الحفظ

[m.eltayseer]

اريد كود يضيف ترقيم تلقائى ولكن عند الحفظ

اى ان خاصية الترقيم التلقائىauto numper اذا لم تكمل السجل وضغط مفتاح esc فأنها لاتبدأ فى الحقل التالى بتسلسل ويسقط رقم

فلذلك اريد كود يقوم بالترقيم التلقائى ولكن بعد اضافة الريكورد

[اا الفاروق اا]

السلام عليكم

اهلا بك بيننا

تم تعديل عنوان موضوعك ليتناسب مع مضمونه

وهذا شرط من شروط كتابة الموضوعات بالمنتدى وايضا وسيلة لسرعة الرد عليه

وفقك الله

[osama ababneh]

اخي الكريم

ضع حقل جديد في نهاية الجدول (اخر حقل) واجعله ترقيم تلقائي والمفتاح الاساسي

وبالتالي فانك تستطيع حذف السجل بالضغط على ESC ما لم تصل الى هذا الحقل

[shatat]

أظن ان المطلوب هو اضافة رقم الى اخر رقم  تم الوصول اليه
انظر الى الكود التالي قد تستفيد منه ولكن هذا الكود فقط عند اضافة جديد ارجو احد من الاخوة تعديله ووضعه عند الحفظ فقط

Dim varx
Dim vont
DoCmd.GoToRecord , , acLast
varx = [NOR]
vont = "RV"
DoCmd.GoToRecord , , acNewRec
[NOR] = varx + 1
vont = "rv"