[ تمت الإجابة ]كيف اقدر انفذ برمجية لكل السجلات مرة واحدة؟

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

مشكلتي هي التالي

أنا عملت قاعدة بيانات لجمع درجات الطلاب وايجاد المحموع وحساب المستوى

طبعا كل طالب له عدة فروع : الأعمال الكتابية والشفوية والامتحانات القصيرة والمشروع والامتحان النهائي

وطبعا كل طالب يمثل سجل خاص به الأفرع السابقة المختلفة

وبعد ما سويت النموج سويت زر وسويت في الكود اللي يجمع الدرجات كلها ويطلع الناتج ويحسب المستوى

وهذا هو الكود

Private Sub sh1_Click()

Dim x, y, z, e, f, g, h, i As Integer

mw1.SetFocus

x = Val(mw1.Text)

ww1.SetFocus

y = Val(ww1.Text)

rs1.SetFocus

z = Val(rs1.Text)

st1.SetFocus

e = Val(st1.Text)

f = x + y + z + e

sum1.SetFocus

sum1.Text = f

ft1.SetFocus

g = Val(ft1.Text)

h = f + g

fsum1.SetFocus

fsum1.Text = h

fsum1.SetFocus

i = Val(fsum1.Text)

l1.SetFocus

If i > 89 Then

l1.Text = "Ã"

ElseIf i > 79 Then

l1.Text = "È"

ElseIf i > 64 Then

l1.Text = "Ì"

ElseIf i > 49 Then

l1.Text = "Ï"

Else

l1.Text = "åÜ"

End If

End Sub

المشكلة اللي أواجهها ان لما اضغط على الزر يحسب العملية تماااام وآخر حلاة .. بس يسويها للطالب الظاهر في النموذج .. ولازم اضطر اضغط على الزر لكل طالب عشان يحسب درجاته

السؤال : كيف اقدر اخلي الكود السابق أو العملية السابقة تتم لكافة السجلات الموجودة في النموذج بنقرة واحدة؟

أرجو المساعدة ولكم جزيل الشكر