عندى قاعدة بيانات تحتوى على جدول واحد وبه حقل id نوعه ترقيم تلقائى وهو مفتاح رئيسى
المشكله عند حذف احد السجلات اريد ان يتم اعادة ترتيب الارقام اوتوماتيكيا
اى ان السجلات من ا الى 10 عند حذف السجل رقم 6 و 7 مثلا
اجد ان الترقيم 1-2-3-4-5-8-9-10 وانا اريده 1-2-3-4-5-6-7-8
اريد اعادة الترقيم عند حذف السجلات
شكرا جزيلا
اخي الكريم
ارفق مثالك حتي تجد المساعده من الاعضاء وياريت لو بتنسيق 2003
بالتوفيق
اخوك ---------- محمود المصري
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
اخي الفاضل : محمد عرفه
السلام عليكم ورحمة الله وبركاته
اذا كان بالإمكان ابلاغنا فقط عن اسم الجدول واسم الحقل الذي به الترقيم التلقائي حتى نستطيع وضع الحل لك
بالتوفيق
بارك الله فيكى اخت زهره
وقد ارفقت مثالا توضيحيا وكما ترين من المثال انها بيانات لدرجات الطلاب في المدرسه
واحيانا يتم حذف بيانات طلاب بسبب النقل او الاستبعاد وهكذا ولذلك اريد الترقيم التلقائى ان يكون متسلسلا عند الحذف وذلك لكى يوضح قوة وعدد المدرسه الحقيقى
شكرا لكى اخت زهره ومنتظر ردك الشافى والوافى كما تعودت منكى ان شاء الله
ولى طلب بعد اذنك اخر وهو خاص بنفس المثال ولكن موضوع مختلف اذا اردتى فتح موضوع خاص فلا يوجد مشكله
الطلب الاخر هو وضع زر مسح الطلاب المحددين في النموذج الفرعى ولكن هذا الزر يكون في النموذج الرئيسى
اى زر مسح في النوذج الرئيسى يمسح بيانات الطلاب التى احددها في النموذج الفرعى وان امكن زر نسخ ايضا للبيانات المحدده اى زر مسح وزر نسخ
كامل الشكر لكى اختى الفاضله وانا سعيد اننى اتشرف بلقائك ويجمعنى بكى موضوع اخر بعد طول غياب
تفضل اخي الكريم : محمد عرفه
ملفك بعد التعديل فيما يخص الترقيم التلقائي فقط
ملاحظة هامة : قبل البدء بإعادة الترقيم يجب اغلاق جميع النماذج والأستعلامات والجداول المفتوحه
عدى هذا النموذج الخاص بالترقيم حتى تحصل على نتائج صحيحة .
بالنسبة للسؤال الآخر في هذه المشاركة فيفضل ان تطرحه في سؤال منفرد حتى لا تتلخبط الأسئلة في سؤال واحد
وايضا عندما تطرح السؤال الجديد اتمنى ان توضح المقصود بزر مسح البيانات وايضا زر نسخ البيانات
لأن سؤالك غير مفهوم او لم اعرف ما هو المطلوب هل هو حذف السجلات التي ستختارها او فقط تمسح البيانات من الحقول فقط
وتبقى الحقول حقول السجلات كما هي وايضا زر النسخ لم افهم ما الذي تريد نسخه والى اين يتم اللصق بعد النسخ
كل هذه الإجابات والشروحات تضعها في المشاركة الجديده
بالتوفيق
للأسف لم تعمل معى اخت زهره
فقد جعلت خاصية record selector للنوذج الفرعى yes وذلك لكى استطيع الوقوف عليه واختيار اى عدد من السجلات والضغط على delete لكى امسح سجل الطالب بجميع بياناته
وعند الضغط على اعادة الترقيم تبقى كما لا يتم اعادة ضبط الترقيم التلقائى مع ان رسالة تم اعادة الترقيم بنجاح تظهر ويفتح النموذج مره اخرى
لا اعرف ما هو السبب
اخي انا جربت المثال اعلاه يعمل بشكل ممتاز اذا الغيت كون الحقل ID= indexed
وان شاء الله الاخت زهرة تفبدنا بالموضوع بشكل اوسع
تفضل أخي العزيز لقد تم حل المشكلة
لا بد من الإشارة إخواني الأعزاء، أن عملية إعادة الترقيم ليس أمرا صحيا خصوصا في ما يتعلق بأرقام الفواتير.
لإزالة القيمة المفهرسة أضف على الكود الموجود في المرفق
CurrentDB.Execute " DROP INDEX ID ON Table1"
Khodor1985 كتب:لإزالة القيمة المفهرسة أضف على الكود الموجود في المرفق
CurrentDB.Execute " DROP INDEX ID ON Table1"
أو Docmd.RunSQL "DROP INDEX ID ON Table1"
Khodor1985 كتب:لا بد من الإشارة إخواني الأعزاء، أن عملية إعادة الترقيم ليس أمرا صحيا خصوصا في ما يتعلق بأرقام الفواتير.
أحسنت.. لا فض فوك..
إن أعادة الفهرسة ليس أمرا جيدا بحال من الأحوال ولا يقدم منفعة أبدا، بل هو مضر بكل المقاييس.
لكن هل بالإمكان إعادة الأرقام المحذوفة من حقل الترقيم التلقائي؟!.. الجواب نعم..
حقل الترقيم التلقائي ليس جامدا لا يقبل التطوير أو البرمجة كما يظن البعض!
كل ما نحتاجه هو استعلام إلحاق!.. سواء عن طريق المشيد أو عن طريق الشفرة.
أحد الصيغ التي يمكن استخدامها في التالي
Sub xAppend() DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _ "SELECT [Plrase Insert ID Missing] AS idx; " End Sub
تم تعديل هذه المشاركة بواسطة القحم في 11 أكتوبر 2013 في 19:06
أشكرك أخي الكريم على تقييمك ولكن أتمنى من الأخ المعني أن يلتفت لهذا الأمر
شكرا لكل من ساهم في هذا الموضوع وتم حل المشكله بفضل مشاركاتكم الرائعه
جزاكم الله خيرا
Sub xAppend()
DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _
"SELECT [Plrase Insert ID Missing] AS idx; "
End Sub
بس سؤال بسيط هذا الكود اين يتم وضعه
وشكراً......
اخي الفاضل
بالتوفيق
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
