حذف عمود ID واعاده انشائه مره اخرى

[احمد حبيبه]

ترقيم.rar

[kanory]

تريد الحذف بهدف اعادة الترقيم ام أمر اخر

[احمد حبيبه]

المطلوب كود او ماكرو يحذف عمود id  .. حذف كامل وليس تصفير بيانات

ثم كود اخر لانشائة مره اخرى بنفس التنسيق (ترقيم تلقائى)

اخى الكريم kanory

نعم بغرض اعادة الترقيم ...لانى جربت عشرات الحلول لاعداة الترقيم ولم تنجح معى الا حذف العمود واعادة انشائة

[أبوبسمله]

السلام عليكم

مشاركه مع اخى واستاذى @kanory اتفضل مثال من مكتبتى وجزاهم الله خيرا اخواننا واساتذتنا 💐

ده الكود وغير فيه ومرفق المثال للاطلاع

Private Sub ReNum_Click()
    Me.RecordSource = ""
    DoCmd.SetWarnings False
    ' حذف الفهرسة من حقل الرقم
    DoCmd.RunSQL "DROP INDEX الرقم ON جدول1;"
    ' حذف حقل الرقم
    DoCmd.RunSQL "alter table جدول1 drop  الرقم;"
    ' إضافة حقل الرقم
    DoCmd.RunSQL "alter table جدول1 Add column الرقم autoincrement;"
    ' إضافة الفهرسة إلى حقل الرقم
    DoCmd.RunSQL "CREATE UNIQUE INDEX الرقم on جدول1(الرقم) ;"
    DoCmd.SetWarnings True
    Me.RecordSource = "جدول1"
End Sub

بالتوفيق

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