البحث في الموقع
Showing results for tags 'series'.
تم العثور علي 1 نتيجه
-
السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم 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 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar
