السلام عليكم
أصل هذا الموضوع هنا
أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله
و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف
فى حال حذف أحد السجلات
و هذا هو الكود المستخدم
Option Compare Database
Private Sub Form_Current()
If Me.NewRecord Then
Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
MySQL = "Select [DashNum] From tblTest Order By DashNum;"
Set MyDB = CurrentDb()
Set rst1 =
