تعديل كود اعادة الترقيم التلقائي

[Ahmed_J]

السلام عليكم

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

المطلوب تعديل الكود ليعمل على  على اكسس 2010

وشكرا لكم

ReAutoNumber.rar

[Ahmed_J]

UP

[Shivan Rekany]

في ١٦‏/١٠‏/٢٠٢٠ at 13:48, Ahmed_J said:

المطلوب تعديل الكود ليعمل على  على اكسس 2010

انا استخدم اوفيس 2010 ويعمل عندي بالتمام 
ليس فيها اي مشكلة

تحياتي

[Ahmed_J]

السلام عليكم استاذ @Shivan Rekany

 انا اقصد عند تحويل الملف  من mdb الى accdb لايعمل  وفيه اخطاء بالكود

كما في المرفق

وشكرا لك 

 

ReAutoNumber3.accdb

[Ahmed_J]

up

[ناقل]

منذ ساعه, Ahmed_J said:

up

هل بالضرورة نفس الكود ؟؟؟؟

هناك اكواد اخرى تقوم باعادة الترقيم في المنتدى ابحث عنها !!

[Ahmed_J]

السلام عليكم

نعم ضروري جدا اولا لكي نتعلم وثانيا لان الكود يعمل على  mdb  واريده ان يعمل على  accdb 

لان هذا الكود يقوم بارجاع (Primary Key)  المفتاح الاساسي الى تسلسله الطبيعي بعد حذف اي سجل او مجموعة من السجلات من الجدول

مع الحفاظ عليه كمفتاح اساسي بالجدول

وشكرا للمتابعة

تم تعديل أكتوبر 18, 2020 بواسطه Ahmed_J

[ناقل]

2 دقائق مضت, Ahmed_J said:

لان هذا الكود يقوم بارجاع (Primary Key)  الى تسلسله الطبيعي بعد حذف سجل من الجدول

هل الرقم مرتبط بجداول اخرى ؟؟؟

[Ahmed_J]

استاذي العزيز

الحدول غير مرابط باي جدول اخر ولاتوجد اي علاقة له ويظهر الخطا  بالكود كما في الصورة

وشكرا لك

تم تعديل أكتوبر 18, 2020 بواسطه Ahmed_J

[Ahmed_J]

up

[husamwahab]

السلام عليكم

تفضل هذه المحاولة ارجو ان تكون موفقة

ملاحظة : كود اخر لكن يقوم بنفس العمل

 

ReAutoNumber-3.rar

[Ahmed_J]

السلام عليكم استاذ @husamwahab

كود روووووعة بارك الله فيك

لكن واجهتني مشكله عند تغيير اسم المفتاح الاساسي الى id تظهر رسالة كما في الصورة ويحذف المفتاح الاساسي لوحده من الجدول

ارجوا المساعدة لان الكود رائع جدا

مرفق الملف  الذي فيه الخطا

وشكرا لك استاذي العزيز

 

test.accdb

تم تعديل أكتوبر 19, 2020 بواسطه Ahmed_J

[husamwahab]

بالخدمة استاذ Ahmed_J

في خصائص حقل الترقيم التلقائي اجعل الفهرسة Yes(No Duplicates) وذلك قبل ان تجعلهمفتاح اساس

اي هذه الخاصية تكون ثابتة سواء كان مفتاح اساسي او لا

test2.rar

[Ahmed_J]

السلام عليك

عملت id مفهرس=   نعم (التكرار غير مقبول ) قبل وضع المفتاح الاساسي

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

وشكرا لك

تم تعديل أكتوبر 19, 2020 بواسطه Ahmed_J

[Ahmed_J]

استاذ @husamwahab

نعم اخيرا ضبط معي الكود تمام

بارك الله فيك  وجعله في ميزان حسناتك

لي طلبين اخيرين  ؟ ؟ لو سمحت

1- هل ممكن تعطيل الكود بالزر  لو كان الترقيم التلقائي اصلا مضبوط (1,2,3..... الخ) تظهر رسالة اخرى تخبرنا ان الترقيم  التلقائي مضبوط اصلا

2- هل هذه الطريقة لاعادة الترقيم التلقائي فيها  اي مخاطر على البيانات في الجدول حتى لو كانت مرتبطة بعلاقة مع جدول اخر

وشكراااااااا جزيلا

 

تم تعديل أكتوبر 19, 2020 بواسطه Ahmed_J

[husamwahab]

بالخدمة اخي العزيز

1 minute ago, Ahmed_J said:

1- هل ممكن انه لو كان الترقيم التلقائي مضبوط  تعطيل الكود بالزر  وتظهر رسالة اخرى تخبرنا ان الترقيم  التلقائي مضبوط اصلا

ساحاول لكن منطقيا غير ممكن

2 minutes ago, Ahmed_J said:

2- هل هذه الطريقة لاعادة الترقيم التلقائي فيها  اي مخاطر على البيانات في الجدول حتى لو كانت مرتبطة بعلاقة مع جدول اخر

اولا: الكود لا يعمل اذا كانت هناك علاقة مع جدول او اكثر 

ثانيا : حتى لو كان من الممكن جعل الكود يعمل مع وجود علاقة فبالتاكيد سوف يحدث خلل في البيانات خصوصا وانت قد جعلته مفتاح رئيسي

لانه بصورة مبسطة لو كانت عند ارقام 1و2و4 فان بقية الجداول المرتبطة به يجب ان تحتوي فقط على هذه الارقام ولاعادة تسلسل الترقيم سوف نفك العلاقات وهو امر عادي 

ثم نعيد الترقيم وسيكون 1و2و3 هنا تحدث المشكلة حيث انه لا يمكن اعادة العلاقات مرة اخرى لان بقية الجداول تحتوي الرقم 4

ملاحظة : هناك طريقة واجدها مناسبة ولا تسبب خلل وهي ان نجعل حقل اخر من نوع رقم نعمل له التسلسل وهذا الحقل هو الذي يظهر للمستخدم 

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

وعذرا للاطالة

 

[Ahmed_J]

تسلم يالغالي

ربي يحفظك من كل مكروه

تحياتي لك

[husamwahab]

بالخدمة استاذ Ahmed_J

[Shivan Rekany]

38 دقائق مضت, husamwahab said:

ساحاول لكن منطقيا غير ممكن

53 دقائق مضت, Ahmed_J said:

بلی ممكن ، تقدر تستخدم دالة DCount و  DMax

اذا عدد سجلات بيكون يساوي مع رقم الکبیر في الجدول هو يعني الترقيم ليس فيها نواقص واذا غير متساويين هناك بيعمل كود وسيتم ترقيم جديد

[Ahmed_J]

السلام عليكم استاذ @Shivan Rekany

هل ممكن تطبيق على نفس المثال السابق

تحياتي لكم

[Shivan Rekany]

10 ساعات مضت, Ahmed_J said:

1- هل ممكن تعطيل الكود بالزر  لو كان الترقيم التلقائي اصلا مضبوط (1,2,3..... الخ) تظهر رسالة اخرى تخبرنا ان الترقيم  التلقائي مضبوط اصلا

تم اضافة هذا السطر في بداية الكود

If DCount("*", "Table1") = DMax("[id]", "table1") Then MsgBox "الترقيم تلقائي في جدول1 مضبوطة وليس في اي نواقص": Exit Sub

اليك الملف بعد اضافة

 

test2.rar

[Ahmed_J]

السلام عليكم 

شكرا لك استاذ @Shivan Rekany

تمام الكود مضبوط

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