الترقيم التلقائي

[الشرقي]

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

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

اخوكم الفقير الى الله الشرقي

[saher1975]

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

اخي الكريم

اذا كنت تريد العمل مع خلال نموذج فيمكنك استبدال نوع الحقل من عدد تلقائي autonumber الى عدد number

وداخل النموذج المتعلق بهذا الجدول اكتب الكود التالي في الحدث event المسمى before update اي قبل التحديث .

الكود

me.feild name=nz(DMax("[feild name]", "table name"), 0)+1

حيث ان me.feild name اسم الحقل في النموذج (الذي تريد اجراء عملية الزيادة عليه )

feild name اسم الحقل في الجدول

table name اسم الجدول

[الشرقي]

جزاك الله الف خير اخي ساهر على هتمامك بالرد وجعل عملك في ميزان حسناتك ، اخي العزيز ممكن تبعث لي بمثال يجزيك الله خير عشان اطبق الكود الموجود .

وشكراً لك اخي مره ثانية

[عمر بن الخطاب]

للرفع............

[saher1975]

تفضل مثال بالمرفقات

db16.zip

[helmy_foad]

أخ saher1975

المثال الذى قمت بإرفاقة يقوم بعمل ترقيم تلقائى فعلاً بإستخدام الكود

و لكنة لا يقوم بتصحيح الترقيم التلقائى إذا تم حذف احد السجلات

فإذا كانت السجلات ترتيبها

1

2

3

4

5

و قمت بحذف السجل رقم 4

يصبح الترتيب

1

2

3

5

و هذا ليس هو المطلوب

بل المفترض ان السجل الخامس يأخذ الترقيم 4 تلقائياً و يصبح الترتيب هكذا

1

2

3

4

و هذا يمكن تحقيقة كما فى المثال التالى

و هو من تنفيذ الاخ همام ابو عرقوب

AutoNumber.rar

[saher1975]

الاخ حلمي فؤاد

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

اما الطريقة التي قمت بادراجها فهي مستخدمة في حالات معينة . وتقوم بعمل مسح لكل السجلات من البداية وعمل ازاحة للأعلى وقد استخدمتها قبل اليوم .

وبارك الله فيك .

[helmy_foad]

تمام يا أخ ساهر

لكن هذا كان هو المطلوب من الاخ الذى سأل السؤال

بارك الله فيك

[الشرقي]

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

اخواني الاعزاء ساهر وحلمي جزاكم الله الف خير على الرد والامثله المرفقة وجعل عملكم يارب في ميزان حسناتكم ويارب ما يحرمني منكم اخي ساهر المرفق الخاص بخوي حلمي هو المطلوب لان اذا قمت بحذف سجل بين رقمين يتم الرقم المحذوف ملغي تماماً وهذا المشكلة الي كنت ابحث عنها شلون يتم اعادة الرقم التسلسلي المحذوف ، وانا متأكد انك قده وقدود ياخي ساهر ، بس يمكن اني انا الغلطان بعدم توضيح الصوره لكم ، بس تعرفون ما احلى الاخوان اذا يتناقشون في موضوع يفيد الجميع والله ليفرقكم يارب ونور بكم هذا المنتدى الرائع بمعنى الكلمة .

مره ثانية اقول لكم جزاكم الله الف خير وتحياتي لكم جميعا .

اخوكم الفقير الى الله الشرقي

[الشرقي]

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

اخواني الاعزاء ساهر وحلمي جزاكم الله الف خير على الرد والامثله المرفقة وجعل عملكم يارب في ميزان حسناتكم ويارب ما يحرمني منكم اخي ساهر المرفق الخاص بخوي حلمي هو المطلوب لان اذا قمت بحذف سجل بين رقمين يتم الرقم المحذوف ملغي تماماً وهذا المشكلة الي كنت ابحث عنها شلون يتم اعادة الرقم التسلسلي المحذوف ، وانا متأكد انك قده وقدود ياخي ساهر ، بس يمكن اني انا الغلطان بعدم توضيح الصوره لكم ، بس تعرفون ما احلى الاخوان اذا يتناقشون في موضوع يفيد الجميع والله ليفرقكم يارب ونور بكم هذا المنتدى الرائع بمعنى الكلمة .

مره ثانية اقول لكم جزاكم الله الف خير وتحياتي لكم جميعا .

اخوكم الفقير الى الله الشرقي

[الشرقي]

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

اخواني الاعزاء ساهر وحلمي جزاكم الله الف خير على الرد والامثله المرفقة وجعل عملكم يارب في ميزان حسناتكم ويارب ما يحرمني منكم اخي ساهر المرفق الخاص بخوي حلمي هو المطلوب لان اذا قمت بحذف سجل بين رقمين يتم الرقم المحذوف ملغي تماماً وهذا المشكلة الي كنت ابحث عنها شلون يتم اعادة الرقم التسلسلي المحذوف ، وانا متأكد انك قده وقدود ياخي ساهر ، بس يمكن اني انا الغلطان بعدم توضيح الصوره لكم ، بس تعرفون ما احلى الاخوان اذا يتناقشون في موضوع يفيد الجميع والله ليفرقكم يارب ونور بكم هذا المنتدى الرائع بمعنى الكلمة .

مره ثانية اقول لكم جزاكم الله الف خير وتحياتي لكم جميعا .

اخوكم الفقير الى الله الشرقي