05-04-17, 12:58 PM
السلام عليكم ورحمة الله وبركاته
أهلا أخي الكريم , في البداية لكي تعرف أين الخطأ عند التنفيذ يجب إزالة جملة تخطي الأخطاء هذه On Error Resume Next وضعها مجددا بعد التأكد من عمل الكود من غير أخطاء , الخطأ كان في جملة الإستعلام حيث لايوجد حقل ENO في الجدول TBL_Daily تم تعديله إلى الحقل ID والذي أعتقد أنه لرقم الموظف وأيضا حقل التاريخ L_Date إذا أردت أن تبحث به في جملة الإستعلام أن تضع علامتي الـ # حول التاريخ وأيضا تم تغيير تنسيق التاريخ عند وضعه في جملة الإستعلام لكي
يتوافق مع تنسيق التاريخ في الأكسس كما ستشاهد في التعديل لكي يتم البحث بنجاح , أيضا في الإجراء FillBDay تم تعديل الكود في الـFor لكي يتم إضافة رقم الموظف في خاصية الـ ItemData لكل عنصر في الـ L1 حيث تم إضافة حقل الـ ID في الإستعلام Q_FQut من جدول Tech_Table وتم تعديل مسميات الحقول في الإستعلام Q_Daily1 لكي تظهر في ال MSHFlexGrid1 بالعربي .
أهلا أخي الكريم , في البداية لكي تعرف أين الخطأ عند التنفيذ يجب إزالة جملة تخطي الأخطاء هذه On Error Resume Next وضعها مجددا بعد التأكد من عمل الكود من غير أخطاء , الخطأ كان في جملة الإستعلام حيث لايوجد حقل ENO في الجدول TBL_Daily تم تعديله إلى الحقل ID والذي أعتقد أنه لرقم الموظف وأيضا حقل التاريخ L_Date إذا أردت أن تبحث به في جملة الإستعلام أن تضع علامتي الـ # حول التاريخ وأيضا تم تغيير تنسيق التاريخ عند وضعه في جملة الإستعلام لكي
يتوافق مع تنسيق التاريخ في الأكسس كما ستشاهد في التعديل لكي يتم البحث بنجاح , أيضا في الإجراء FillBDay تم تعديل الكود في الـFor لكي يتم إضافة رقم الموظف في خاصية الـ ItemData لكل عنصر في الـ L1 حيث تم إضافة حقل الـ ID في الإستعلام Q_FQut من جدول Tech_Table وتم تعديل مسميات الحقول في الإستعلام Q_Daily1 لكي تظهر في ال MSHFlexGrid1 بالعربي .
