تحديد عدد ايام الاضطراري مع تظليل سجل الموظفة المجازة

الرجاء المساعدة

وعليكم السلام ورحمة الله وبركاته

السؤال الاول

اعمل استعلام واستخدم Dcount لحساب عدد الايام

مثال

Me.txt = DCount(" [ID] ", "Qr1 ", "[Nash]='سعودي'")

حيث اسم الاستعلام Qr1 و ID اسم حقل بالاستعلام و Nash هو حقل الجنسية وكلمة سعودي هي للبحث عن الجنسية السعودية والنتيجة تخزن في txt وهنا في مثالنا هي عدد الايام مثلا

السؤال الثاني

استخدم الاداة if في كود اذا تحقق الشرط الذي هو الموظفة اجازة فنفذ الكود التالي

'if [] = xxxx then اذا تحقق الشرط
[Text1].Enabled = False
'Else اذا لم يتحقق الشرط
[Text1].Enabled = True
'End If

حيث Enabled يقوم مقام الحماية من الكتابة او التعديل وبنفس الوقت يغير لون الحقل المراد حمايته

واعتذر منك ليس لدي اوفيس 2007 فلم استطيع معاينة المرفق

شكرا جزيلا لك استفدت من الاجابة الثانية شكراااااا

لكن الأولى لم افهم قصدك كيف يرجع عدد الأيام وانا لم اذكر شيء في الكود عن الايام .. معليش تحملني أخي لكن لم افهم ...

محمدالمهاوي كتب:

شكرا جزيلا لك استفدت من الاجابة الثانية شكراااااا

لكن الأولى لم افهم قصدك كيف يرجع عدد الأيام وانا لم اذكر شيء في الكود عن الايام .. معليش تحملني أخي لكن لم افهم ...

لو كان هناك مثال لكنا انتهينا الآن .. :cool:

هناك احتمالان :

الاول : تحتوي قاعدة البيانات عندك على جدول تسجل به حركة الاجازة وبالتأكيد يجب ان يكون هناك حقل يميز هذه الاجازة سميته نوع الاجازة وعلى هذا يكون الكود كما يلي

Me.txt = DCount(" [ID] ", "Qr1 ", "[Nash]='سعودي'")

txt هي عدد الايام

ID رقم الموظف

qh1 ممكن ان يكون استعلام مبنى على جدول الاجازات ويوجد به الفلترة المناسبة وممكن ان يكون جدول والشرط داحل الكود

nash هي اسم حقل الاجازة بالجدول لديك

سعودي - هي رمز الاجازة

الآن عندما txt اكبر من خمسة نعمل رسالة تبين ذلك ونكل الكود بعمل كذا وكذا

الثاني :

ليس هناك جدول اسمه اجازات ونعمل ضمن طريقة ترصيد عدد الادازات الطارئة ضمن جدول الموظفين وعليه يكون نستعمل DLookup

txt = DLookup("[B2]", "tab1", "[B1]=  [m1]")

txt هي عدد الايام

B2 اسم حقل رصيد الاجازات بجدول الموظفين

tab1 هو جدول الموظفين

B1 اسم حقل رقم الموظف في جدول الموظفين

m1 اسم مربع النص الذي يحتوي على رقم الموظف في النموذج الحالي

شكرا جزيلا اخي على الرد والاهتمام ،وجزاك الله خير

بالنسبه للمثال لقد ارفقت الداتا بيس باول هذا الموضوع.. 

محمدالمهاوي كتب:

شكرا جزيلا اخي على الرد والاهتمام ،وجزاك الله خير

بالنسبه للمثال لقد ارفقت الداتا بيس باول هذا الموضوع..

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

هل نعتبر الاجابة تمت ؟ واذا كان الجواب لا فارجو ارفاق المثال بصيغة 2003 وان شاءالله سيتم لك ما تريد

نحتسب اجرنا على الله عز وجل وبالتوفيق عزيزي

الله يجزاك خير .. هذي قاعدة البيانات بتنسيق2003 .. اتمنى الاطلاع عليها ومساعدتي ...

حاولت تطبيق ماافدتني به لكن للاسف لم يعمل ..

ملاحظة على الداتا بيس ::: يوجد جدول اجازات هذا الجدول تمت اضافته مؤخرااا بعد ماتم العمل على البرنامج بدونها .. وهو مختص بالاجازات الطويله وليست للمرضي ولا الاضطراري .. لأنه من الصعب اعادة كل البرنامج لو اضفت الاضطراري لجدول الاجازات ..

وقد تم اضافته بعد ما طلب مني ((

الطلب الثاني :

البرنامج للحضور والانصراف فقط لكن طلبوا انه لو موظفه طلعت اجازة يكون اكتب في نموذج الاجازات مدة اجازتها وبدايتها ونهايتها.

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

))

موظفات.rar

تم اضافة حقل نوع الاجازة في جدول الموظفات ليساعدنا على تحديد الموظفة اذا كانت اجازة

وتم التدقيق على النوع اجازة وبامكانك التغيير من الاستعلام

بالتوفيق

موظفات.zip

شكرا لك وجزيت خيراااا ووفقك ربي دنيا وأخره ... واعتذر على ازعاجك والأخذ من وقتك ...

ساعدتني كثيراااااااا ربي يسعدك ويسخر لك خلقه ...