كود لاعادة ترقيم تسلسلي بشرط معين

[سلمان الشهراني]

السلام عليكم

اسعد الله اوقاتك الجميع

السؤال

هل ممكن كود يقوم بتحديث حقل Id2 من رقم واحد تصاعدياً شرط يكون التحديث للحقول التي حقل m_RegMin1 تحتوي على بيانات اما الحقول التي لاتحتوي على بيانات فيكون حقل id2 الخاص بها (0)

 

والف شكر للجميع

sa.rar

[jjafferr]

وعليكم السلام اخي سلمان

 

تفضل

Private Sub cmd_ReSeq_Click()

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From TB_1 Where isNull(m_RegMin1)=False Order By No_Common")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    'set all id2 to zero
    DoCmd.SetWarnings False
        DoCmd.RunSQL ("UPDATE TB_1 SET Id2 = 0")
    DoCmd.SetWarnings True
    
    
    For i = 1 To RC
        
            rst.Edit
                rst!id2 = i
            rst.Update
    
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
    MsgBox "Done"
End Sub

 

جعفر

695.sa.accdb.zip

[سلمان الشهراني]

18 دقائق مضت, jjafferr said:

وعليكم السلام اخي سلمان

 

تفضل

Private Sub cmd_ReSeq_Click()

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From TB_1 Where isNull(m_RegMin1)=False Order By No_Common")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    'set all id2 to zero
    DoCmd.SetWarnings False
        DoCmd.RunSQL ("UPDATE TB_1 SET Id2 = 0")
    DoCmd.SetWarnings True
    
    
    For i = 1 To RC
        
            rst.Edit
                rst!id2 = i
            rst.Update
    
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
    MsgBox "Done"
End Sub

 

جعفر

695.sa.accdb.zip

 

الله يعطيك الف الف الف عافيه

هذا هو المطلوب
بيض الله وجهك
وتسلم

[jjafferr]