[مصمم هاوي]

الســـــ عليكم ـــــــلام عندي جدول باسم TBL_MDay : يتم فيه حفظ بيانات الحضور والغياب وهذا كله تمام إلا مشكلة واحدة فقط وهى :
عند تحديد الأسماء من ليست 1 إلى ليست 2 وضغط كوماند حضور أو غياب أو راحة لا ينفذ الإجراء المطلوب إلا في حالة
ترقيم جدول البيانات يدوياً .
وكذلك لو قمتُ بتفريغ كشف الحضور والغياب ثم أردت إدخال حضور وغياب أو راحة للموظفين لاينفذ المطلوب !!!
حاولت جاهداً حل المشكلة ولم أفلح .
المطلوب : عند ضغط كوماند تسجيل حضور أو غياب أو راحة  يتم الحفظ في الجدول TBL_MDay بدون استخدام الترقيم يدوياً
ملاحظة / كلمة المرور (1)

[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 مرة أخرى .

[مصمم هاوي]

بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة

[Ahmed_Mansoor]

(28-04-17, 02:59 AM)مصمم هاوي كتب : بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة

أهلاً أخي الكريم ، اللهم آمين ولك المثل إن شاء الله ، بارك الله فيك وجزاك خير .