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

يمكنك القيام بذلك برمجياً بشرط أن يكون الحقل حقل رقمي عادي وليس حقل ترقيم تلقائي

بالنسبة لحقول الترقيم التلقائي هذه لا يمكن إعادة الترقيم فيها إلا بحذف الحقل وإنشائه من جديد حسب ما يقوم فريق الدعم الفني لشركة مايكروسوفت

هذه دالة كتبتها على عجل تقوم بإعادة الترقيم ولم أجربها آمل تجربتها وإفادتي

مع ملاحظة الشرط الذي ذكرته لك سابقاً وهو أن يكون الحقل حقلاً رقمياً وليس حقل ترقيم تلقائي

function numorder()

        Dim dbs As Database, rst As Recordset, I As Long

        Set dbs = CurrentDb

        Set rst = dbs.OpenRecordset("SELECT field1 from table1 order by field1")

      

        rst.MoveLast

        rst.MoveFirst

        For I = 1 To rst.RecordCount + 1

        If rst!field1 <> I Then

        rst.Edit

        rst!field1 = I

        rst.Update

        Next I

        rst.Close

        Set rst = Nothing

        Set dbs = Nothing

end function

قم فقط بضغط واصلاح قاعدة البيانات بعد كل عملية حذف فيعود الترقيم التلقائي طبيعيا...

تعديل :

عذرا .. لم انتبه للسؤال جيدا فهذه الطريقة تنفع عند حذف آخر سجل في القاعدة أو عند حذف جميع السجلات مرة واحدة