[Ahmed_Mansoor]

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

أهلا أخي الكريم , قم بتعديل الإجراء CRegistration إلى هذا التعديل :

PHP كود :

Sub CRegistration()
Set Rs2 = New Recordset
For i = 0 To L2.ListCount - 1
If Rs2.State = 1 Then Rs2.Close
Rs2.Open "select * from tbl_Mday Where ID=" & L2.ItemData(i) & " And MonthN=" & Month(Date), dB, adOpenStatic, adLockOptimistic
If Rs2.RecordCount > 0 Then
dB.Execute "update tbl_Mday set ID=" & L2.ItemData(i) & ",MonthN=" & Month(Date) & ",D" & DT1.Day & "='" & DN & "'" & _
           " Where ID=" & L2.ItemData(i) & " And MonthN=" & Month(Date)
DoEvents
Else
dB.Execute "Insert Into tbl_Mday (ID,MonthN,D" & DT1.Day & ") Values (" & _
           L2.ItemData(i) & "," & Month(Date) & ",'" & DN & "')"
DoEvents
End If
Next
MsgBox "تم تسجيل الحضور للموظفين الذين تم تحديدهم", , "تنبيه"
End Sub 


أيضا بالنسبة للإجراء CRegistration2 عدله بنفس الطريقة ولا أعلم لماذا تكرر عملية الحفظ بهذا الإجراء .

- ملاحظة :- تم تعديل كود الإجراء CRegistration مرة أخرى .