اخي الكريم خالد في الدالة التالية
Public Function RECORDHSA(MOALEM As Recordset, mada As Recordset, TABLE As Recordset)
Dim i, m
Dim TSGELHSA
Dim B, E
Dim ADDHSSOK As String
Dim ADDHSSALWM
'___________________________
For m = 1 To mada![عدد الحصص]
TSGELHSA = "no"
If m = 1 Or m = 6 Or m = 12 Or m = 17 Or m = 22 Or m = 27 Then
B = 3
E = 15
Else
B = B + 16
E = E + 16
End If
في المعادلة B = B + 16 و E = E + 16 السؤال هو ماهي قيم B و E الابتدائية لكي يتم جمعها مع 16؟؟