سؤال في الترقيم التلقائي

[Tarekfathallah]

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

اي بمعنى آخر في الدفتر وصلت الى الرقم 1000 كيف يمكنني المتابعة على برنامجي برقم تسلسي يبدأ برفم 1001 

-----------------  للرفع ---------------

[ابوخليل]

عليكم السلام

لو لصقت في الجدول 1000 سجل ثم حذفتهم (شرط ما تسوي ضغط واصلاح للقاعدة) فان اي سجل تكتبه ياخذ الرقم 1001

والحل الافضل  انك ما تتعرض  لحقل اكسس التلقائي  اللي في الجدول  وتعتبره غير موجود وتعمل على صنع  حقل تلقائي بالكود

هذا الاخير يمكنك التحكم فيه  والبدء باي رقم تريد

[Tarekfathallah]

شكرا لك استاذنا ابو خليل  ممكن لو سمحت تعطيني الطريقة بالكود واين اكتب الرقم المراد البدء فيه لو سمحت ، ولو فيها ثقلة لو سمحت ممكن مثال 

جعله الله في ميزان حسناتك 

----------------   للرفع --------------

[abo3aesha_2014]

14 دقائق مضت, tarek_f26180 said:

شكرا لك استاذنا ابو خليل  ممكن لو سمحت تعطيني الطريقة بالكود واين اكتب الرقم المراد البدء فيه لو سمحت ، ولو فيها ثقلة لو سمحت ممكن مثال 

جعله الله في ميزان حسناتك 

----------------   للرفع --------------

بعد إذن استاذنا أبو خليل

هذه المشاركة استفدت منها في موضوع الترقيم التلقائي

 

[Shivan Rekany]

8 دقائق مضت, tarek_f26180 said:

شكرا لك استاذنا ابو خليل  ممكن لو سمحت تعطيني الطريقة بالكود واين اكتب الرقم المراد البدء فيه لو سمحت ، ولو فيها ثقلة لو سمحت ممكن مثال 

جعله الله في ميزان حسناتك 

----------------   للرفع --------------

استأذن من استاذنا الحبيب @ابوخليل

اتفضل اذا تريد اعطي الكود في حقل ترقيم 

فرضنا اسم الحقل هو ID واسم الجدول هو Table1

افتح نموذج في وضع التصميم وحدد حقل التسلسلي ID 

روح الى خصائصة وفي قيمة افتراضية اي Default Value

اكتب هذا

=DMax("[ID]"; "Table1") + 1

أو 

تقدر تنطي لخف زر جديد هذا

Me.ID = DMax("[ID]", "Table1") + 1

لكن هناك يجب انت تكتب اول رقم اي اول رقم التسلسلي من اي رقم يبدأ

واذا تريد تقدر تضيف NZ معه 

اي سيكون الكود هكذا في قيمة افتراضية اذا تريد ان يبدأ من 1001 

=NZ(DMax("[ID]"; "Table1");1000) + 1

وهكذ في خلف الزر سجل جديد

Me.ID = NZ(DMax("[ID]", "Table1"),1000) + 1