أحتساب تاريخ المباشرة على أساس عدد أيام الأجازة الممنوحة .

[أبو منتظر]

بعد تحية كافة أعضاء المنتدى الأعزاء 

هل ممكن تعديل الملف المرفق ليتم أحتساب تاريخ مباشرة الموظف على أساس عدد أيام الأجازة الممنوحة له , أي تصميم دالة تقوم بأَظهار تتيجة أضافة [  (عدد أيام الأجازة ألى (تاريخ بدء الأجازة )+ (يوم واحد ) ] في الحقل (workstart) مع الشكر الجزيل .

جدول أنتهاء الأجازات.rar

[Foksh]

تفضل أخي ، إن كان ما فهمته صحيح

 

جدول أنتهاء الأجازات.mdb

 

تم تعديل ديسمبر 16, 2023 بواسطه Foksh

[kkhalifa1960]

تفضل أخي محاولتي ولكن لو يوم المباشرة أصبح أجازة أنا بعمل على ذلك وسأرسله لك تبعاً.

جدول أنتهاء الأجازات.rar

[kkhalifa1960]

تفضل أخي محاولتي الثانية و إقرأ الملاحظتين على الفورم  ووافني بالرد .

جدول أنتهاء الأجازات-1.rar

[أبو منتظر]

الشكر الجزيل لكل من الأخ Foksh والأخ  kkhalifa1960 على ردودهم , ولكن الدالة تحتسب يوم المباشرة يوماً أضافياً (كما تفضل الأخ kkhalifa1960   )و هذا غير دقيق 

وعليه بعد الأستفادة من صيغة الدالة وتعديلها وضعتها ضمن كود حدث في النموذج Main و حصلت النتيجة الصحيحة .

Private Sub workstart_GotFocus()
If Not IsNull(Me.DayNo) And Not IsNull(Me.Mdate1) Then
Me.workstart = DateAdd("d", [DayNo], [Mdate1])
End If
End Sub

ودمتم بألف خير 🌷

جدول أنتهاء الأجازات معدل.rar

تم تعديل ديسمبر 17, 2023 بواسطه أبو منتظر

[Foksh]

53 دقائق مضت, أبو منتظر said:

هذا غير دقيق 

وعليه بعد الأستفادة من صيغة الدالة وتعديلها وضعتها ضمن كود حدث في النموذج Main و حصلت النتيجة الصحيحة .

الحمد لله أنك وجدت الحل الشافي لطلبك أخي الكريم ، ولكن اسمح لي بنقطتين مهمتين :-

الأولى لاحظ أنك طلبت في طلبك ما يلي :-

في 16‏/12‏/2023 at 10:42, أبو منتظر said:

تتيجة أضافة [  (عدد أيام الأجازة ألى (تاريخ بدء الأجازة )+ (يوم واحد ) ] في الحقل (workstart)

لقد طلبت ان يضاف يوم واحد الى معادلة تاريخ المباشرة ، وجاء حلك دون إضافة هذا اليوم الذي طلبته 

 

ثانياً والأهم ( ردد معي )

[kkhalifa1960]

في 16‏/12‏/2023 at 10:42, أبو منتظر said:

بعد تحية كافة أعضاء المنتدى الأعزاء 

هل ممكن تعديل الملف المرفق ليتم أحتساب تاريخ مباشرة الموظف على أساس عدد أيام الأجازة الممنوحة له , أي تصميم دالة تقوم بأَظهار تتيجة أضافة [  (عدد أيام الأجازة ألى (تاريخ بدء الأجازة )+ (يوم واحد ) ] في الحقل (workstart) مع الشكر الجزيل .

اتق الله هذا طلبك !!!!!!!!!!!!!!!!!!!!!!