تكرار الاجازة لموظف في نفس الفترة

[لاتبخل]

 

من لدبه حل او فكرة 

المطلوب: - في حالة ادخال رقم الموظف. 

وتم عمل له إجازة في  الفترة  الاجازة يظهر مسج (الموظف في اجازة الان).

ولا يمكن عمل له اجازة ثانية.  يمكن تعديلها.

الملف

تم تعديل يونيو 17, 2019 بواسطه لاتبخل

[midomashakel]

ملحوظة مهمة جدا حضرتك اشارت اليها

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

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

في انتظار اراء السادة خبراء المنتدى

 

[AlwaZeeR]

بالنسبة لعمل ملاحظة تفيد بان الموظف في إجازة الان فهي كالتالي:

Remaining_Days: IIf(DateDiff("d",Date(),[To  Date])<0,"انتهت","الموظف في اجازة")

اذا كان الموظف في فترة الاجازة يظهر الموظف في إجازة 

وانتهت في حال انتهت الاجازة

=====

بخصوص منع إضافة إجازة للموظف الذي يملك إجازة فتكون كالتالي

If DCount("*", "LEAVES", "[No File]=" & [No File] & " And [From   Date]= #" & Format([From   Date], "yyyy/mm/dd") & "#") = 1 Then
MsgBox ("الموظف في اجازة حالية")
Else
DoCmd.GoToRecord , , acNewRec
End If

هذا على حسب ما فهمت  

ملاحظة: برجاء الانتباه الى مسميات الحقول وحبذا لو تكتبها بدون فراغات

او بهذه الطريقة 

مثلا:

بدل

From   Date

تكتب هكذا

From_Date

::

تحياتي

 

[لاتبخل]

11 ساعات مضت, AlwaZeeR said:

ممكن توضيح اكثر

 

[ابو جودي]

ممكن المرفق لو تكرمت

بهذه الطريقة تم سد كل الثغرات

1- عدم وضع اى تاريخ اقدم من تاريخ اخر اجازة عموما 

TEST V.0.1.accdb

[لاتبخل]

في ١٧‏/٦‏/٢٠١٩ at 16:54, AlwaZeeR said:

شكراً  جزيلاً 

 

[لاتبخل]

شكراً جزيلاً 

18 ساعات مضت, ابا جودى said:

ممكن المرفق لو تكرمت

بهذه الطريقة تم سد كل الثغرات

1- عدم وضع اى تاريخ اقدم من تاريخ اخر اجازة عموما 

TEST V.0.1.accdb 1000 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 7 downloads

الحل ممتاز جداً 

بعد ثقل الفورم إلى البرنامج الأصلي  لقيت بعد المشاكل  لسبب  تغيير بعض اسماء الحقول

وحصلت مشاكل في نماذج اخرى بسبب تغيير مسميات بعض الحقول  هل بل مكان تعديل الكود على المسميات السابقة

أكون شاكرا لك