كيف استخدم حلقة تكرارية في اكسس

[النافذ]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،
كيف لي أن أغير مثلاً حقل درجة الطالب في جدول بإضافة درجة واحدة لكل طالب باستخدام الكود وليس الاستعلام، فأنا أعرف طريقة الاستعلام.
ما أريده هو كيف لي أن أستخدم حلقة تكرارية تمر على أول سجل في حقل ما إلى آخر سجل في الجدول ..
باستخدام For..Next أو For .. Each .. Next
لاني حاولت الوصول إلى Syntax الصحيح ولم أتمكن من ذلك .. فهل من إجابة ؟
وشكراً

[مهند عبادي]

يمكنك فعل ذلك .. بواسطة حلقة Do .. Loop

هذا مثال :

Dim D as Object
Set D = CurrentDb.OpenRecordset("Students")
     With D
            Do while not(.EOF)
                .Edit
                .StudentDegree = .StudentDegree+1
                .Update
                .MoveNext
            Loop
     End With
     Set D = Nothing

[النافذ]

شكراً لك أخي مهند ،، وشكر الله سعيك وجهودك المشكورة ..

فلقد فرجت علي كربتي .. وإلى الأمام ..............