تعويض الرقم التلقائي المحذوف

[osamaabdultawab@gmail.com]

اخوتي الاعزاء السلام عليكم

لقد قمت بحذف سجل اثناء اختبار البرنامج وهذا السجل يحتوي على ترقيم تلقائي. 

وعند تسليم البرنامج قام المستخدم بادخال البيانات وعند الوصول الى ذلك الرقم في التسلسل والمحذوف مسبقا.. تم نقله الى الرقم الذي يليه. 

هل استطيع اعادة ادراج ذلك الرقم في التسلسل التلقائي مرة اخرى

ولكم جزيل الشكر والتقدير 

[محمد أبوعبدالله]

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

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

اما اذا كان السجل المحذوف في وسط الجدول فلن تتمكن من استعادة الرقم

توجد طريقة لحذف عمود الحقل التلقائي وانشاءه من جديد ولكن هذه الطريقة ليست مفيدة للجميع

تحياتي

[ابوخليل]

11 ساعات مضت, osamaabdultawab@gmail.com said:

هل استطيع اعادة ادراج ذلك الرقم في التسلسل التلقائي مرة اخرى

نعم تستطيع

ولكن حاول في عملك القادم ان تجعل الترقيم التلقائي هو مفتاح الجدول 

بمعنى انه يكون ملك لأكسس لا يظهر للمستخدم .

وتدرج في الجدول ترقيما تلقائيا مصنوعا 

[osamaabdultawab@gmail.com]

اشكر الجميع على تفاعلكم السريع والمفبد.

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

[ابوخليل]

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

وانت تريد اعادة رقم محذوف 

يوجد طريقة لتحقيق ذلك .. أمهلني ابحث لك عنها ...

[osamaabdultawab@gmail.com]

انت محق لم استفيد منه شى

وقمت بعملية ضغط واصلاح قاعدة البيانات ولكنها لم تحل المشكلة ايضا

ملاحظة السجل المحذوف هو اخر سجل في الجدول

[osamaabdultawab@gmail.com]

[osamaabdultawab@gmail.com]

ملاحظة اخرى.: هذا الحقل ليس حقل مفتاح اساسي. وانما حقل عادي رقم تلقائي

[ابوخليل]

في ١٦‏/١٢‏/٢٠٢٠ at 23:50, osamaabdultawab@gmail.com said:

ملاحظة اخرى.: هذا الحقل ليس حقل مفتاح اساسي. وانما حقل عادي رقم تلقائي

المهم من خصائص الحقل يكون لا يقبل التكرار

Set rs = CurrentDb.OpenRecordset("tbl1")
i = text1
rs.AddNew
rs!id = i
rs.Update

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

اعادة رقم محذوف في الترقيم التلقائي .mdb

[osamaabdultawab@gmail.com]

3 hours ago, ابوخليل said:

المهم من خصائص الحقل يكون لا يقبل التكرار

Set rs = CurrentDb.OpenRecordset("tbl1")
i = text1
rs.AddNew
rs!id = i
rs.Update

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

اعادة رقم محذوف في الترقيم التلقائي .mdb 152 kB · 5 downloads

هل هذا الكود هو لادراج الرقم المحذوف فقط ام لتحديث الجدول كاملا

Just now, osamaabdultawab@gmail.com said:

فقط

هل هذا الكود لادراج الحقل المحذوف ام لتحديث الجدول باكطله

[ابوخليل]

نعم هو فقط لإدراج الرقم التلقائي المحذوف .

........

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

ارقام التسلسل المفقودة.rar