مشكلة في استعلام تحديث..

[حامل المسك]

السلام عليكم ورحمة الله وبركاته ..

وأسعد الله أوقاتكم بالخيرات والمسرات ..

وفقكم الله ورعاكم ..

أساتذتي الفضلاء لدي جدولين أحدهما به المواد وهو A1والثاني به الطلاب A2

ما أريده أن يضع أمام كل مادة في الجدول عدد الطلاب..

فعملت ذلك عن طريق استعلام التحديث لكن لم يعمل بشكل جيد في كل مرة يعطني خطأ..

فهل من مسعف أسعدكم الله ..

تحديث البيانات.rar

[Shivan Rekany]

Private Sub Command0_Click()
    Dim Db As Database
    Dim Rs As Recordset
    Dim Rc As Long
        Set Db = CurrentDb
        Set Rs = Db.OpenRecordset("a1", dbOpenTable)
        Do While Not Rs.EOF
            Rs.Edit
            Rs![العدد] = DCount("[الرقم الجامعي]", "A2", "[az2]='" & Rs![المعرف] & "'")
            Rs.Update
            Rs.MoveNext
        Loop
        MsgBox "تم تحديث"
        Rs.Close
        Set Rs = Nothing
End Sub

 

تحديث البيانات.rar

تم تعديل نوفمبر 21, 2018 بواسطه Shivan Rekany

[حامل المسك]

ممتاز ورائع ..

شكر الله وبارك لك فيما رزقك وغفر لك ورحم من رباك  ..