عمل ترقيم لأصناف مكررة

[KhalerAnwer88]

السلام عليكم
عندي مجموعة من الأصناف بجدول مكررة, وكنت محتاج أعمل لكل مجموعة ترقيم من 1 إلى ..... حسب عدد كل صنف فى كل مجموعة.

[kanory]

منذ ساعه, KhalerAnwer88 said:

السلام عليكم
عندي مجموعة من الأصناف بجدول مكررة, وكنت محتاج أعمل لكل مجموعة ترقيم من 1 إلى ..... حسب عدد كل صنف فى كل مجموعة.

جرب هذا ..... مع تعديل ما يلزم <><><><><<><><<>><><|>

 

    Dim x As Integer, mov_st As String
    Dim db As Database, rst As Recordset
    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT doc.doc_ID, doc.mov_no, doc.mov, doc.mov2 FROM doc ORDER BY  doc.doc_ID;")
    rst.MoveFirst
    x = 1
    mov_st = rst!doc_ID
    Do While Not rst.EOF
        If mov_st <> rst!doc_ID Then
            x = 1
            mov_st = rst!doc_ID
        End If
        rst.Edit
        rst!mov2 = x
        x = x + 1
        rst.Update
        rst.MoveNext
    Loop
    MsgBox "تم توزيع الارقام ", vbInformation + vbMsgBoxRight + vbOKOnly, "برنامج"
    rst.Close
    Me.Refresh

 

[kkhalifa1960]

مشاركة مع أخي kanory تفضل أخي .

DD124.mdb

[KhalerAnwer88]

ربنا يبارك فيك وزيدك من العلم kanory

شكراً لك على المثال kkhalifa1960

[KhalerAnwer88]

هو ينفع بالقيمة اللي الجديدة أحدث حقل فى الجدول بيها kanory kkhalifa1960

خلاص الحمد لله ظبطت وشكراً لكم

 

تم تعديل مارس 13, 2023 بواسطه KhalerAnwer88