kaser906

أخي ابو يوسف حاولت اضافة دالة Dlookup للتأكد من ان التاريخ الذي سيسجل للاجازة ليس اصغر من تاريخ العمل اي اني لا اريد المستخدم يسجل تاريخ الاجازة بتاريخ اصغر من تاريخ ايام العمل المسجلة مسبقا في الجدول لكن لم تنجح محاولاتي لاني لا أعرف التعامل مع المتغيرات اتمن…

مشكور اخي ابو يوسف الله يجعله في ميزان حسناتك هذا هو المطلوب

يا أخوان لعل الاخ ابو يوسف مشغول اللي يعرف يعدل على المثال لايبخل بالمساعده

up :unsure:

اذهب الى قائمة ملف في اعلى برنامج الأكسس ثم خيارات ثم من النافذة التي ستخرج اليك اختر مركز التوثيق ثم من على يسار النافذه اختر اعدادات مركز التوثيق ستظهر نافذه جديده اختر منها اعدادات الماكرو من يمين النافذة اشر على خيار تمكين كافة وحدات الماكرو ( غير مستحسن ي…

up

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

up

up

نعم اخي ابو يوسف هذا هو المطلوب الله يعطيك الف عافية الخطوة الثانية الان اريد ان اقوم بتسجيل ايام التعويض امام ايام العمل في حال كانت يوجد هناك ايام عمل مسجلة مثلا اذا كان الموظف لدية 5 ايام عمل عندالضغط على حفظ السجل يتم تسجيل كل يوم تعويض امام يوم عمل وفي حا…

up

في المرفق نموذج لادخال ايام عمل تعويضية عن طيق مربعات نص غير منظمة عند ادخال عدد ايام العمل وادخال تاريخ البداية تلقائيا يخرج تاريخ نهاية العمل ما اريده هو ان يتم تسجيل جميع الايام بين التاريخين تاريخ البداية وتاريخ النهاية مثلا عدد ايام العمل خمسة (5 ) ايام ت…

أشكرك أخي mrnooo2000 على مساعدتك ورحابة صدرك وتحملي لحين التوصل الى الحل تقبل تحياتي وتقديري وامتناني

نعم أخي قمت بتنشيط جميع المراجع ومازال الخطأ هنا OpenRecordset Dim dbs As Database Dim vic As Recordset Dim wkd As Recordset Dim a As Integer Dim MyGrDate As Date Dim NoVic As Boolean Dim NoWkd As Boolean On Error Resume Next Set dbs = CurrentDb Set vic = dbs.…

Dim dbs As Database Dim vic As Recordset Dim wkd As Recordset Dim a As Integer Dim MyGrDate As Date Dim NoVic As Boolean Dim NoWkd As Boolean On Error Resume Next Set dbs = CurrentDb Set vic = dbs.OpenRecordset("Cal_Holidays", dbOpenDynaset) NoVic = Err.Number…

ارجو منك اخي اضافة كافة المراجع التي يحتاجها التقويم لأني لمى وضعت المرجع الذي أشرت مازال هناك فيه أخطاء

يبدو أن المشاكل لاتريد أن تنتهي عندما استوردت التقويم مع كامل الوحدات النمطية الى برنامجي وعند محاولة النقر المزدوج تظهر عندي رسال خطأ رفعت الصورة بالمرفقات Eroor.rar

أشد على يدك أخي mrnooo2000 أتمنى ايضاً تضمين أيام العيد وأيام رمضان وأيام الحج ليكون البرنامج متكامل

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

اخي mrnooo2000 بالنسبة للكود الأول يعمل بشكل جيد بالنسبة للكود الثاني هو مفيد لي في حال اردت ادخال التاريخ مباشرة ادا توافق تقويم ام القرى مع التقويم الهجري لكن يبدو به مشكلة لأنه بعد التحديث يحول تنسيق التاريخ من االيسار الى اليمين بالأضافة أنه يجعل التاريخ م…