الترقيم التلقائى autornumber

[فضل حسين]

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

يزيدنا شرف ان اكون معكم فى منتتدى الاكسس وانا لسة مبتدئ فى الاكسس ولى سؤال هل يمكن اعمل ترقيم تلقائى ولكن لايبدأ برقم 1  يبدأ مثلا برقم 5000

هل يمكن عمل  ذلك ولسيادتكم جزيل الشكر 

 

تم تعديل أكتوبر 11, 2019 بواسطه فضل حسين

[kha9009lid]

نعم يمكن وبعدة طرق

الطريقة الاولى في خصائص الحقل الخاص بالترقيم في خانة تنسيق ضع الرقم الذي ترغب

الطريقة الثانية ترقيم عن طريق الكود

id = Nz(DMax("[id]", "tbl1"), 0 & Format(5000)) + 1

في المرفق نموذج للطريقتين

Database451.accdb

[kha9009lid]

من اجل حبايبنا  @ابا جودى و @حلبي

نستكمل بقية الطرق للاجابة على الاستفسار

الطريقة الثالثة مشابهه للثانية والاختلاف طفيف

Dim i As Long
i = Nz(DLast("[ترقيم2]", "tbl1"), 0 & Format(5000))
Me.ترقيم2 = i + 1

الطريقة الرابعة عن طريق استعلام يتم عملة عن طريق sql ويتم تنفيذة بعد انشاء الجدول ثم حذف الاستعلام بعد تشغيلة

INSERT INTO tbl2 ( ID )
SELECT 5001 AS Expr1;

 

تم تعديل أكتوبر 11, 2019 بواسطه kha9009lid

[ابو جودي]

جزاكم الله خيرا

[الحلبي]

استاذنا وخبيرنا / @kha9009lid

والله انك انسان محترم جدا ودائما تسعي لمساعدة الاخرين

جزاك الله خير ورحم الله والديك وزادك الله علما نافعا

كل الاحترام والتقدير

[kha9009lid]

جزاك الله خير ورحمة الله والديك واصلح لك ذريتك

والله وبالله وتالله ما وصفتني به اقل من قطرة في بحر خلقكم وادبكم