• 0
arafa2003

كيف يمكن اعادة ترتيب حقل الترقيم التلقائى اوتوماتيكيا

سؤال

عندى قاعدة بيانات تحتوى على جدول واحد وبه حقل id نوعه ترقيم تلقائى وهو مفتاح رئيسى

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

اى ان السجلات من ا الى 10 عند حذف السجل رقم 6 و 7 مثلا

اجد ان الترقيم 1-2-3-4-5-8-9-10  وانا اريده 1-2-3-4-5-6-7-8

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

شكرا جزيلا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

15 إجابة على هذا السؤال .

  • 0

تفضل اخي الكريم : محمد عرفه 

 

ملفك بعد التعديل فيما يخص الترقيم التلقائي فقط

 

 

post-15367-0-20403900-1381433084_thumb.g

 

post-15367-0-74152700-1381433114.gif

 

ملاحظة هامة : قبل البدء بإعادة الترقيم يجب اغلاق جميع النماذج والأستعلامات والجداول المفتوحه

 

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

 

 

 

بالنسبة للسؤال الآخر في هذه المشاركة فيفضل ان تطرحه في سؤال منفرد حتى لا تتلخبط الأسئلة في سؤال واحد

 

وايضا عندما تطرح السؤال الجديد اتمنى ان توضح المقصود بزر مسح البيانات وايضا زر نسخ البيانات

 

لأن سؤالك غير مفهوم او لم اعرف ما هو المطلوب هل هو حذف السجلات التي ستختارها او فقط تمسح البيانات من الحقول فقط

 

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

 

كل هذه الإجابات والشروحات تضعها في المشاركة الجديده

 

 

za-School-UP.rar

 

بالتوفيق

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 اخي الكريم

ارفق مثالك حتي تجد المساعده من الاعضاء وياريت لو بتنسيق 2003

بالتوفيق

اخوك ---------- محمود المصري

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل : محمد عرفه

 

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

 

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

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيكى اخت زهره

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

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

شكرا لكى اخت زهره ومنتظر ردك الشافى والوافى كما تعودت منكى ان شاء الله

ولى طلب بعد اذنك اخر وهو خاص بنفس المثال ولكن موضوع مختلف اذا اردتى فتح موضوع خاص فلا يوجد مشكله

الطلب الاخر هو وضع زر مسح الطلاب المحددين في النموذج الفرعى ولكن هذا الزر يكون في النموذج الرئيسى

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

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

School.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للأسف لم تعمل معى اخت زهره

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

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

لا اعرف ما هو السبب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي انا جربت المثال اعلاه يعمل بشكل ممتاز اذا الغيت كون الحقل     ID=  indexed

 وان شاء الله الاخت زهرة تفبدنا بالموضوع بشكل اوسع 

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل أخي العزيز لقد تم حل المشكلة

za-School-UP.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لا بد من الإشارة إخواني الأعزاء، أن عملية إعادة الترقيم ليس أمرا صحيا خصوصا في ما يتعلق بأرقام الفواتير.

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لإزالة القيمة المفهرسة أضف على الكود الموجود في المرفق

CurrentDB.Execute " DROP INDEX ID ON Table1"

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لإزالة القيمة المفهرسة أضف على الكود الموجود في المرفق

CurrentDB.Execute " DROP INDEX ID ON Table1"

أو Docmd.RunSQL "DROP INDEX ID ON Table1"

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لا بد من الإشارة إخواني الأعزاء، أن عملية إعادة الترقيم ليس أمرا صحيا خصوصا في ما يتعلق بأرقام الفواتير.

 

أحسنت.. لا فض فوك.. 

 

إن أعادة الفهرسة ليس أمرا جيدا بحال من الأحوال ولا يقدم منفعة أبدا، بل هو مضر بكل المقاييس.

 

لكن هل بالإمكان إعادة الأرقام المحذوفة من حقل الترقيم التلقائي؟!.. الجواب نعم..

 

حقل الترقيم التلقائي ليس جامدا لا يقبل التطوير أو البرمجة كما يظن البعض!

 

كل ما نحتاجه هو استعلام إلحاق!.. سواء عن طريق المشيد أو عن طريق الشفرة.

 

أحد الصيغ التي يمكن استخدامها  في التالي

Sub xAppend()DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _"SELECT [Plrase Insert ID Missing] AS idx; "End Sub
تم تعديل بواسطه القحم
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أشكرك أخي الكريم على تقييمك ولكن أتمنى من الأخ المعني أن يلتفت لهذا الأمر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لكل من ساهم في هذا الموضوع وتم حل المشكله بفضل مشاركاتكم الرائعه

جزاكم الله خيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

Sub xAppend()
DoCmd.RunSQL "INSERT INTO YOUR_TABLE ( ID )" & _
"SELECT [Plrase Insert ID Missing] AS idx; "
End Sub
 

 

بس سؤال بسيط هذا الكود اين يتم وضعه

 

وشكراً......

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 
هذه وحده فرعية توضع في النموذج مباشرة 
 
ويتم استدعاؤها من خلال الضغط على زر أمر بهذه الطريقة

 

 

post-15367-0-03990700-1383475958_thumb.g

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .