الاخوة الكرام
س1 كيف استطيع اعادة الترقيم التلقائي الى القيمة 0
س2 عند حذف احد السجلات كيف اجعل الترقيم يعيد ترتيب نفسة اي لا يكون هناك رقم فارغ نتيجة لحذف السجل
شاكرا لكم تجاوبكم
تصفير الترقيم التلقائي
مغلق
السلام عليكم
فى الوضع الطبيعى أو الأيسر وفى حالة امكانية دخولك للجدول فى عرض التصميم يمكنك حذف هذا الحقل وإضافته مرة أخرى
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
شكرا لك اخي الفاروق
ولكن لم افهم تماما
وما رائك في السؤال الثاني
بالنسبة للسؤال الاول في حال كان الجدول فارغ يمكنك عمل ضغط واصلاح لقاعدة البيانات فسوف يعود الى الصفر
اما بالنسبة للسؤال الثاني فهذا لايمكن لان طبيعة الحقل المفتاح هي ان يكون الرقم وحيد اي تخيل معي قاعدة بيانات المواطنين في دولة ويمكلون ( هوية) ولها رقم في حال توفى الشخص وان تم شطبه من قاعدة البيانات ( مجرد توضيح ) فهل من المعقول ان ياخذ رقم هويته شخص اخر
أخي العزيز .. بشكل عام ...
الترقيم التلقائي في الأكسس متعب للغاية ، وخاصة إذا كان الترقيم التلقائي عبارة عن المفتاح الأساسي ... فالأفضل أن تصنع عداد للترقيم التلقائي بالطريقة التالية :
Dim mm DoCmd.GoToRecord , , acLast mm = أكتب هنا أسم حقل الرقم DoCmd.GoToRecord , , acNewRec أسم حقل الرقم = mm + 1
ضع هذا الكود في زر أمر إضافة سجل جديد .
الآن أكتب القيمة التي تريد أن يبدأ بها البرنامج مثلاً 1001 وأضغط على زر الإضافة .. ستجد أن الرقم تلقائياً يصبح 1002
تم تعديل هذه المشاركة بواسطة hassaan100 في 9 أبريل 2004 في 14:21
لو سمحت اخي
اين اضع بداية الترقيم
يعني رقم 1001 اين اضعه بالضبط حتى يبدا الترقيم الجديد من 1002
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
هذا الموضوع مغلق.