اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

 

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

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

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

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

s_1263mtqwu1.jpg

الملف

تم تعديل بواسطه لاتبخل
قام بنشر

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

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

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

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

 

قام بنشر

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

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

::

تحياتي

 

قام بنشر

شكراً جزيلاً 

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

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

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

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

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

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

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

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

أكون شاكرا لك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information