السلام عليكم ورحمة الله وبركاته
الأخوة الأعزاء
أريد معرفة كيف أقوم بإعادة ترقيم بعض السجلات
فالمشكلة هي أنني قمت بحذف سجل
ولكن الترقيم التقائي للسجلات استمر بعد رقم السجل السابق
وأنا أريد أن أعيد نفس السجل بنفس الرقم فكيف أعمل ذلك
علماً بأن الترقيم التالي قد تعدى رقم السجل المحذوف ويرفض العودة لنفس الرقم
تحياتي
الأخ العزيز المبرمج
لم أعثر على الإجابة عندما ذهبت لضغط وإصلاح قاعدة البيانات
فعندما ذهبت للمطلوب يرجعنا فوراً لقاعدة البيانات نفسها
وعندما أذهب للمطلوب من دون فتح قاعدة بيانات يطلب مني حفظ قاعدة
البيانات بمسمى آخر
أتمنى أن توضح لي الحل أكثر
تحياتي
اشرح الطريقة
في الملف المرفق قم باضافة السجل الاول وليكن
محمد طبعا الترقيم سيكون = 1
اضف سجل ثاني وليكن سعد والترقيم التلقائي طبعا سيكون = 2
الآن قم بحذف محمد ثم قم بحذف سعد
ثم قم بإضافت سجل جديد وليكن خالد في هذه الحالة سيكون الترقيم = 3
لكي تتخلص من هذه المشكلة وتريد ان يعيد الترقيم من جديد يعني يبداء ب 1
قم يالتالي بعد حذف محمد وسعد اغلق النموذج وقم بالتالي
ثم افتح النموذج وجرب ان تضيف سجل جديد سترى انه سيعود من الرقم 1
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
لقد فهمت الطريقة الآن واشكرك على سعة صدرك تجاهي
لكن المشكلة أنني قد أدخلت بيانات تقارب 2000
وتم حذف بيانات الترقيم التلقائي 985 و 986
لهذا أريد أن أسترجعهم ...
وطريقتك تجبرني على حذف جميع البيانات حتى يعود كما سبق ..
هكذا فهمت الطريقة
تحياتي
انشيء جدول جديد وقم بنسخ ولصق السجلات من 1 إلى 984 ثم قم باضافت السجلين 985 و 986 ثم قم بنسخ ولصق باقي السجلات في الجدول الجديد
واحذف الجدول السابق وضع هذا مكانه
طبعا حل مؤقت إلى ان يجد الاخوان هنا الحل
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
فيما يخص معرفة الرقم أو الأرقام المفقودة فاْنني أرفق لك هذا المثال عله يفيدك, أم فيما يخص سؤالكف تأمل جيدا في مشاركة أخينا محمد و مثال أخينا أبو عقيل فسوف تجد الاجابة على سؤالك.
لقد عدلت على المثال الرائع لأستاذنا MUSLIM-ES و أضفت زر بحث عن الرقم المفقود, بعد الضغط عليه سوف يظهر لك أن الرقم المفقود هو 3 و هو الرقم الذي يمكنك اِضافته و تحرير بياناته.
المثال مصمم بسرعة شوية و ينقصني الخبرة في كتابة الكود و مع ذلك فهو أدى المطلوب أرجو أن تستفيد منه.
الشكر لكم جيمعا
سوف أقوم بتجربة البرنامج وان شاء الله أجد له الحل المناسب
تحياتي
أخي الكريم ،،، بالنسبة لإعادة الترقيم التلقائي للسجلات ،،، لا يمكن إعادة الترقيم للحقل إذا كانت خاصيته ( ترقيم تلقائي ) ،،، أما في حالة أن خاصية الحقل ( رقم ) بالامكان
إعادة الترقيم ،،، إليك المثال المرفق عملت لك مثال على السريع يتضمن حقلين :
1 - حقل بإسم ( رقم ) وخاصية هذا الحقل ( رقم ) .
2 - حقل بإسم ( الاسم ) ,,, وخاصية هذا الحقل ( نصي ) .
بعد أن تضيف سجلات عديدة ،،، وحذف بعض السجلات الأولى ما عليك إلا الضغط على زر
( إعادة الترقيم لجيمع السجلات ) والذي ينفذ العملية :
c = DCount("[رقم]", "tb")
DoCmd.GoToRecord , , acFirst
Me.رقم= 0
For i = 1 To c
Me.رقم= i
DoCmd.GoToRecord , , acNext
Next i
Me.Refreshعملت لك كود بعد إضافة الاسم مباشرة يقوم بتسجيل الرقم مباشرة ،،، الرقم الذي يلي
آخر رقم تم تسجيله . والكود في حقل الاسم في حدث بعد التحديث وهو :
c = DMax("[رقم]", "tb")
Me.رقم= c + 1مرفق لك المثال ،،، تصفحه ،،، عسى أن يفي بالغرض .
تحياتي : أبو عقيل
المسلم من سلم الناس من لسانه ويده
مشكورين جميعا على هذه الخدمة
مع خالص التحيات للجميع
حياك الله أخي الكريم ،،، بالتوفيق إن شاء الله ...
تحياتي : أبو عقيل
المسلم من سلم الناس من لسانه ويده
أشكرك ..
..
جزا الله خير كل من ساعد
اشكركم لتعاونكم الصادق معنا في اقتراحتكم الجيدة التي تفيدنا دائما من المخلص nhfiboco
هذا الموضوع مغلق.