ارغب الحصول على كود يقوم بالترتيب الابجدي والترقيم التلقائي بضغطه زر

ضع المثال اخى الفاضل

أخي العزيز بارك الله فيك

لاحظ الاسماء ستجد ان الفتاتين اثير يأخذن الارقام 15 و16 وعندما قمت بترتيبهم ابجديا احتفظوا بإرقامهم

واتا اريد ان يحملن الارقام 1و2 أي ان الاسماء تكون مرتبة ابجديا ومتسلسلة في نفس الوقت

بحيث (عند الاضافة والحذف يتم الترتيب الابجدي والمتسلسل في نفس الوقت )

امل ان يكون طلبي واضح

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

هنا

اعجز عن شكرك

تفضل اخى

انت تريد اعادة الترتيب أبجديا

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

اليك الكود ضعه فى كود الزر

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.RecordSource = ""
    DoCmd.SetWarnings False
    ' حذف الفهرسة من حقل الرقم
    DoCmd.RunSQL "DROP INDEX idd ON students;"
    ' حذف حقل الرقم
    DoCmd.RunSQL "alter table students drop idd;"
    'اعادة الترتيب حسب الاسم
    CurrentDb.Execute "SELECT students.* INTO 11 FROM students ORDER BY students.names;"
    ' إضافة حقل الرقم
    DoCmd.RunSQL "alter table 11 Add column idd autoincrement;"
    ' إضافة الفهرسة إلى حقل الرقم
    DoCmd.RunSQL "CREATE UNIQUE INDEX idd on 11(idd);"
    DoCmd.DeleteObject acTable, "students"
    DoCmd.Rename "students", acTable, "11"
    DoCmd.SetWarnings True
    Me.RecordSource = "students"

DoCmd.SetWarnings True

أخ العزيز mrnooo2000

ركبت الكود وظهر لي رسالة خطا انا ارفقت لك الملف في مشاركتي هل من الممكن ان تضع الكود في الملف وترفقه لي فضلا لا امراً

اليك المرفق

ف.ع.rar

مثال جميل أستاذ أبو يوسف بارك الله فيك وزادك علما..

جميل جدا ابو يوسف انسان مبدع

عندي سوال ثاني

لو أضفت اسم ورغبت في حفظه مع الترتيب الابجدي فما العمل

طبق نفس الكود

و لكن احذف الجزء الخاص بحذف السجل

اى احذف هذين السطرين

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

حلو جداَ حلو ممتاز جدا شغال 100 %

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

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