منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

PHP كود :
Sub CRegistration()
Set Rs2 = New Recordset
For 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), dBadOpenStaticadLockOptimistic
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 مرة أخرى .
بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة
(28-04-17, 02:59 AM)مصمم هاوي كتب : [ -> ]بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة

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