الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بخصوص الترقيم التلقائي

مغلق
بدأه روح الرضا في 29 نوفمبر 2004 · 13 رد · 1,654 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الأخوة الأعزاء

أريد معرفة كيف أقوم بإعادة ترقيم بعض السجلات

فالمشكلة هي أنني قمت بحذف سجل

ولكن الترقيم التقائي للسجلات استمر بعد رقم السجل السابق

وأنا أريد أن أعيد نفس السجل بنفس الرقم فكيف أعمل ذلك

علماً بأن الترقيم التالي قد تعدى رقم السجل المحذوف ويرفض العودة لنفس الرقم

تحياتي

#2

قم بعمل التالي

aass.jpg

ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات

ابو حسن

#3

الأخ العزيز المبرمج

لم أعثر على الإجابة عندما ذهبت لضغط وإصلاح قاعدة البيانات

فعندما ذهبت للمطلوب يرجعنا فوراً لقاعدة البيانات نفسها

وعندما أذهب للمطلوب من دون فتح قاعدة بيانات يطلب مني حفظ قاعدة

البيانات بمسمى آخر

أتمنى أن توضح لي الحل أكثر

تحياتي

#4

اشرح الطريقة

في الملف المرفق قم باضافة السجل الاول وليكن

محمد طبعا الترقيم سيكون = 1

اضف سجل ثاني وليكن سعد والترقيم التلقائي طبعا سيكون = 2

الآن قم بحذف محمد ثم قم بحذف سعد

ثم قم بإضافت سجل جديد وليكن خالد في هذه الحالة سيكون الترقيم = 3

لكي تتخلص من هذه المشكلة وتريد ان يعيد الترقيم من جديد يعني يبداء ب 1

قم يالتالي بعد حذف محمد وسعد اغلق النموذج وقم بالتالي

aass.jpg

ثم افتح النموذج وجرب ان تضيف سجل جديد سترى انه سيعود من الرقم 1

aa.rar

ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات

ابو حسن

#5

لقد فهمت الطريقة الآن واشكرك على سعة صدرك تجاهي

لكن المشكلة أنني قد أدخلت بيانات تقارب 2000

وتم حذف بيانات الترقيم التلقائي 985 و 986

لهذا أريد أن أسترجعهم ...

وطريقتك تجبرني على حذف جميع البيانات حتى يعود كما سبق ..

هكذا فهمت الطريقة

تحياتي

#6

انشيء جدول جديد وقم بنسخ ولصق السجلات من 1 إلى 984 ثم قم باضافت السجلين 985 و 986 ثم قم بنسخ ولصق باقي السجلات في الجدول الجديد

واحذف الجدول السابق وضع هذا مكانه

طبعا حل مؤقت إلى ان يجد الاخوان هنا الحل

ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات

ابو حسن

#7

فيما يخص معرفة الرقم أو الأرقام المفقودة فاْنني أرفق لك هذا المثال عله يفيدك, أم فيما يخص سؤالكف تأمل جيدا في مشاركة أخينا محمد و مثال أخينا أبو عقيل فسوف تجد الاجابة على سؤالك.

مثال للبحث عن الأرقام المفقودة.rar

#8

لقد عدلت على المثال الرائع لأستاذنا MUSLIM-ES و أضفت زر بحث عن الرقم المفقود, بعد الضغط عليه سوف يظهر لك أن الرقم المفقود هو 3 و هو الرقم الذي يمكنك اِضافته و تحرير بياناته.

المثال مصمم بسرعة شوية و ينقصني الخبرة في كتابة الكود و مع ذلك فهو أدى المطلوب أرجو أن تستفيد منه.

تجربة للبحث عن الرقم المفقود.rar

#9

الشكر لكم جيمعا

سوف أقوم بتجربة البرنامج وان شاء الله أجد له الحل المناسب

تحياتي

#10

أخي الكريم ،،، بالنسبة لإعادة الترقيم التلقائي للسجلات ،،، لا يمكن إعادة الترقيم للحقل إذا كانت خاصيته ( ترقيم تلقائي ) ،،، أما في حالة أن خاصية الحقل ( رقم ) بالامكان

إعادة الترقيم ،،، إليك المثال المرفق عملت لك مثال على السريع يتضمن حقلين :

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

مرفق لك المثال ،،، تصفحه ،،، عسى أن يفي بالغرض .

تحياتي : أبو عقيل

إعادة الترقيم التلقائي.rar

المسلم من سلم الناس من لسانه ويده

#11

مشكورين جميعا على هذه الخدمة

مع خالص التحيات للجميع

#12

حياك الله أخي الكريم ،،، بالتوفيق إن شاء الله ...

تحياتي : أبو عقيل

المسلم من سلم الناس من لسانه ويده

#13

أشكرك ..

..

جزا الله خير كل من ساعد

#14

اشكركم لتعاونكم الصادق معنا في اقتراحتكم الجيدة التي تفيدنا دائما من المخلص nhfiboco

هذا الموضوع مغلق.

مواضيع مشابهة