نسخ سجلات بعدد معين في حقل

[ضياء الدين م]

عندي قاعدة البيانات المرفقة وفيها الجدول A
والموضح بالصورة
السؤال:
كيف يمكنني إنشاء جدول باسم B
تكون السجلات فيها مكررة من الجدول A بعدد (أعداد البطاقات)
حيث يكون السجل نفسه مكرر:
15 مرة لسعيد، 20 مرة لأحمد وهكذا...

a.rar

[يوسف أحمد]

السلام عليكم

 

اخي العزيز ضياء

 

اقدم لك احد الحلول .. اولاً تقوم بإنشاء الجدول B و تعيد اسماء الحقول بالانجليزي حتى يسهل التعامل معها بالكود ثم تضع الكود التالي على زر امر بنموذج

 

Dim db As DAO.Database
Dim rsA As DAO.Recordset
Dim rsB As DAO.Recordset
Dim a As Integer
Dim i As Integer

Set db = CurrentDb
Set rsA = db.OpenRecordset("A")
Set rsB = db.OpenRecordset("B")

If Not (rsA.EOF And rsA.BOF) Then
    rsA.MoveFirst

    Do Until rsA.EOF
        For i = 1 To rsA!numberOfIds
            rsB.AddNew
            rsB!teacherName = rsA!teacherName
            rsB!subject = rsA!subject
            rsB!cClass = rsA!cClass
            rsB.Update
        Next i
        rsA.MoveNext
    Loop
    MsgBox "تم تنفيذ العملية بنجاح"
End If
rsA.Close
    rsB.Close
    Set rsA = Nothing
    Set rsB = Nothing
    Set db = Nothing

 

تفضل المرفق بعد التعديل

 

ارجو ان يكون هو المطلوب

 

بالتوفيق

a.rar

[محمد سلامة]

42 دقائق مضت, يوسف أحمد said:

السلام عليكم

 

اخي العزيز ضياء

 

اقدم لك احد الحلول .. اولاً تقوم بإنشاء الجدول B و تعيد اسماء الحقول بالانجليزي حتى يسهل التعامل معها بالكود ثم تضع الكود التالي على زر امر بنموذج

 

Dim db As DAO.Database
Dim rsA As DAO.Recordset
Dim rsB As DAO.Recordset
Dim a As Integer
Dim i As Integer

Set db = CurrentDb
Set rsA = db.OpenRecordset("A")
Set rsB = db.OpenRecordset("B")

If Not (rsA.EOF And rsA.BOF) Then
    rsA.MoveFirst

    Do Until rsA.EOF
        For i = 1 To rsA!numberOfIds
            rsB.AddNew
            rsB!teacherName = rsA!teacherName
            rsB!subject = rsA!subject
            rsB!cClass = rsA!cClass
            rsB.Update
        Next i
        rsA.MoveNext
    Loop
    MsgBox "تم تنفيذ العملية بنجاح"
End If
rsA.Close
    rsB.Close
    Set rsA = Nothing
    Set rsB = Nothing
    Set db = Nothing

 

تفضل المرفق بعد التعديل

 

ارجو ان يكون هو المطلوب

 

بالتوفيق

a.rar

بارك الله فيك استاذ يوسف.. وحشتنا كتير والله

[يوسف أحمد]

و فيك بارك استاذنا الغالي محمد .. و انت اكثر .. انشغلنا كثير دعواتك لنا  .. و انا سادعو لكم بظهر الغيب ان يحفظكم المولى و يرعاكم و يوفقكم لما فيه الخير دائماً ..

 

 تعديل بسيط بالكود   

 

Dim db As DAO.Database
Dim rsA As DAO.Recordset
Dim rsB As DAO.Recordset
Dim i As Integer

Set db = CurrentDb
Set rsA = db.OpenRecordset("A")
Set rsB = db.OpenRecordset("B")

If Not (rsA.EOF And rsA.BOF) Then
    rsA.MoveFirst

    Do Until rsA.EOF
        For i = 1 To rsA!numberOfIds
            rsB.AddNew
            rsB!teacherName = rsA!teacherName
            rsB!subject = rsA!subject
            rsB!cClass = rsA!cClass
            rsB.Update
        Next i
        rsA.MoveNext
    Loop
    MsgBox "تم تنفيذ العملية بنجاح"
End If
    rsA.Close
    rsB.Close
    db.Close
    Set rsA = Nothing
    Set rsB = Nothing
    Set db = Nothing

 

 

a.rar

[ضياء الدين م]

شكرا جزيلا استاذ يوسف
جعلها ربي في ميزانات حسناتك 
بالضبط هذا ما أريد