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


الملفات المرفقة
.rar   MDay.rar (الحجم : 4.97 م ب / التحميلات : 60)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , قم بتعديل الإجراء 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 مرة أخرى .
الرد }}}
#3
بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
#4
(28-04-17, 02:59 AM)مصمم هاوي كتب : بارك الله فيك أستاذي الكبير أحمد منصور وجزاك الله كل خير
بصراحة لقد
ادخلت في نفسي الراحة والطمانينة طمن الله قلبك وأدخلك الله جناته الواسعة

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 411 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 219 15-12-23, 06:05 AM
آخر رد: Taha Okla
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 351 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [سؤال] التيكست بوكس Abdellah 2 386 18-11-23, 10:55 AM
آخر رد: Abdellah
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 240 23-10-23, 12:11 AM
آخر رد: Taha Okla
  السلام عليكم اخوانى واحبابى اساتذتى الكرام مشكلة out of memory mhareek 2 272 12-10-23, 01:40 PM
آخر رد: Taha Okla
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 353 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
  [سؤال] انا اواجه مشكلة عند قيامي بتكوين ملف ال exe hasgaeb 2 348 05-08-23, 01:29 PM
آخر رد: hasgaeb
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 449 27-07-23, 08:33 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم