منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في حفظ البيانات عن طريق الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة في حفظ البيانات عن طريق الليست بوكس (/showthread.php?tid=20168)



مشكلة في حفظ البيانات عن طريق الليست بوكس - مصمم هاوي - 27-04-17

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


RE: مشكلة في حفظ البيانات عن طريق الليست بوكس - Ahmed_Mansoor - 28-04-17

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

أهلا أخي الكريم , قم بتعديل الإجراء 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 مرة أخرى .


RE: مشكلة في حفظ البيانات عن طريق الليست بوكس - مصمم هاوي - 28-04-17

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


RE: مشكلة في حفظ البيانات عن طريق الليست بوكس - Ahmed_Mansoor - 28-04-17

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

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