بعد اجراء filldata أكتب
تعديل بسيط في حلقة for جعلته يبدأ من رقم 1 غيره ليبدأ من رقم 0
PHP كود :
If rs.RecordCount > 0 Then
Dim emptycount As Integer
Dim noempty As Integer
emptycount = 0
noempty = 0
rs.MoveFirst
For i = 1 To rs.RecordCount
On Error GoTo nxt
If IsNull(rs!n1) Then
emptycount = emptycount + 1
Else
noempty = noempty + 1
End If
rs.MoveNext
nxt:
Next
Text1.Text = emptycount
Text2.Text = noempty
End If
تعديل بسيط في حلقة for جعلته يبدأ من رقم 1 غيره ليبدأ من رقم 0
التعديل مرفق
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
