طلب تعديل كود استعراض السجلات في الجداول

تفضل اخي الكريم عيد2005

تم تعديل الكود ليظهر فقط الاختلاف بين مجموع الطلاب وعدد الطلاب المضافون للجان اما اذا كانت الاعداد متساويه فلا تظهرالرساله

Private Subأمر24_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "[aa ]", CurrentProject.Connection, _
adOpenDynamic, adCmdTable
Do Until rst.EOF
If rst![مجموع_الطلاب] < rst![عدد_الطلاب_المضافون_للجان] Then
MsgBox "الصف " & rst![الصف] & vbCrLf & " عدد الطلاب المضافون للجان الخيرية  " & rst![عدد_الطلاب_المضافون_للجان] & " وعدد طلاب الصف الفعلي ] " & rst![مجموع_الطلاب]
 End If
rst.MoveNext
Loop
rst.Close
 End Sub

هذا السطر تم اضافته

If rst![مجموع_الطلاب] < rst![عدد_الطلاب_المضافون_للجان] Then
MsgBox "الصف " & rst![الصف] & vbCrLf & " عدد الطلاب المضافون للجان الخيرية  " & rst![عدد_الطلاب_المضافون_للجان] & " وعدد طلاب الصف الفعلي ] " & rst![مجموع_الطلاب]
 End If

وهذا مثالك بعد التعديل

اختكم

زهره

aa.rar

ألف ألف شكر لك أختي زهرة هذا ما كنت أسأل عنه أكرر شكري

لا شكر على واجب ونحن في الخدمة دائما وابدا ونأسف لم ننتبه بالترحيب بك فأهلا وسهلا بك اولا واخيرا بين اخوانك في المنتدى