اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Ahmed_J
إذهب إلى أفضل إجابة Solved by husamwahab,

الردود الموصى بها

السلام عليكم

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

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

وشكرا لكم

ReAutoNumber.rar

رابط هذا التعليق
شارك

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

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

وشكرا لك

1.jpg

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

Untitled.jpg

test.accdb

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

test2.rar

  • Thanks 1
رابط هذا التعليق
شارك

السلام عليك

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

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

وشكرا لك

Untitled1.jpg

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

استاذ @husamwahab

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

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

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

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

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

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

 

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

1 minute ago, Ahmed_J said:

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

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

2 minutes ago, Ahmed_J said:

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

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

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

test2.rar

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information