كيف يمكنني عمل ترقيم تلقائي بحيث لا يكون نوع الحقل ترقيم تلقائي ولكن يكون رقم بحيث إذا أضفت سجل جديد يعطيني الرقم التالي وإذا حذفت لا يحذف رقماً وإنما يعطي ترتيب الرقم الذي يليه؟؟؟؟؟؟؟؟؟
بعكس الترقيم التلقائي الذي إذا حذفنا منه أي سجل يحذف الرقم نهائياً
هل يمكنني عمل زر أوامر جديد بحيث عند إضافة السجل يعطيني قيمة الحقل +1
ولكن كيف يتم إذا حذف سجل
لاستعادة الترقيم عند حف أي ملف
يمكن إضافة هذه التعليمات في زر الحذف وهي:
Dim RS As DAO.Recordset
Dim Counter As Integer
Set RS = Me.Recordset
If RS.RecordCount = 0 Then
Exit Sub
End If
RS.MoveFirst
Counter = 0
While Not RS.EOF
Counter = Counter + 1
RS.edit
RS!Cu_ID = Counter
RS.Update
RS.MoveNext
Wend
Me.Recalc