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

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


w_hamlen

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

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

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

وارجو السموحة منكم عدم وجود مرفق لهذه الفكرة لدي واشكركم على حسن تعاونكم الدائم مع الجميع والله ولي التوفيق

رابط هذا التعليق
شارك

هذه الاسطر تفي بالمطلوب عند نقر زر الترحيل


Dim i as intger

i = NZ([txtBage]) 'المتبقي من الاجازة

if i >=15 then

New_ejaza = 15 + 30 'حقل الاجازة في العام الجديد

else

New_ejaza = i + 30

end if

رابط هذا التعليق
شارك

بارك الله فيك أخي بوخليل

حل جميل جداً ولكن هذا الحل يدوي عند الضغط على زر يقوم باضافة رصيد جديد بالاضافة الى الرصيد المتبقي السابق والذي من المفترض أن يزيد عن 15 يوم وهذه العملية يجب أن أقوم به مع كل موظف وأنا لدي في حدود 300 موظف فيصعب ادخال واحد تلو الآخر

والذي أريد تلقائي أي أنه في كل عام ببداية السنة بتاريخ 1/1/........ عند فتح البرنامج يقوم تلقائيا باضافة الارصدة الجديدة لكل موظف مضيفاً المتبقي من الارصدة السابقة - إن وجد ذلك - لكل الموظفين وهكذا في كل بداية السنة مع مراعاة عدم تكرار الادخال مثلا لو حضر الموظف اليوم التالي أي في 2/1/......... يقوم البرنامج بالاضافه بل أريده مرة واحدة فقط ،، وكذلك مراعاة في حالة عدم فتح البرنامج بتاريخ 1/1/....... أن يقوم البرنامج بتاريخ أخر شرط أن لا تتكرر عملية الادخال مرتين ،،،،، أرجو أن أكون أوصلت المعلومة مفهومة وواضحة،،،،،،،،، وسلامي لجميع الأعضاء الكرام

رابط هذا التعليق
شارك

انت بحاجة الى استعلام تحديث يكون معياره مثل نتيجة الكود السابق

هذا الاستعلام سيقوم بعمل المطلوب دفعة واحدة وبنقرة زر واحدة

من غير المحبذ جعل البرنامج يعمل ذلك تلقائيا ، لان هذا الشيء يتكرر في السنة مرة واحدة

الاشياء التي تتكرر يوميا هي التي يطبق عليها هذا الاجراء للحاجة الماسة لذلك

رابط هذا التعليق
شارك

انت بحاجة الى استعلام تحديث يكون معياره مثل نتيجة الكود السابق

هذا الاستعلام سيقوم بعمل المطلوب دفعة واحدة وبنقرة زر واحدة

من غير المحبذ جعل البرنامج يعمل ذلك تلقائيا ، لان هذا الشيء يتكرر في السنة مرة واحدة

الاشياء التي تتكرر يوميا هي التي يطبق عليها هذا الاجراء للحاجة الماسة لذلك

تم تعديل بواسطه w_hamlen
رابط هذا التعليق
شارك

صحيح أخي أبوخليل ،،، ولكن المشكلة في عدد الموظفين كثر عندي حوالي 300 موظف وهذا يصعب على الموظف ادخال 300 بيانة في آن واحد لذا لو في طريقة تلقائية بدلا من التدخل اليدوي بل حبذا لو يكون عند فتح البرنامج في بداية كل سنة يضيف الرصيد 30 يوم كرصيد لكل موظف مرة واحدة فقط ويكرر ذلك في السنة الثانية وهكذا لباقي السنوات

وشكر أخي بوخليل وسلامي لجميع الاحباء

رابط هذا التعليق
شارك

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

برنامج الاجازات.rar

رابط هذا التعليق
شارك

المثال المرفق يحتاج الى اعادة صياغة

فمثلا يوجد ارقام لموظفين في جدول الاجازات ليس لهم وجود في الاسماء

من الضروري ايجاد وربط علاقة بين جدول الاسماء وجدول الاجازات

ايضا يلزم ادخال بيانات مناسبة للتجربة والتطبيق

رابط هذا التعليق
شارك

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

برنامج الاجازات.rar

رابط هذا التعليق
شارك

اخي الكريم تم عمل التالي

1- انشاء علاقات بين الجداول

2- انشاء عدة استعلامات ( انظر الوصف ) لم اشأ ادخالها ضمن النماذج حتى يتسنى لك معرفة خطوات تنفيذ العملية

الاستعلام Q_leaveSum لجمع الاجازات خلال السنة المنصرمة

داخل الاستعلام Q2 المعمل الحقيقي لاستخراج الاجازات المرحلة ، فتمعن

الاستعلام Q_gretTabl لانشاء جدول مؤقت من معلومات Q2 حيث ان هذا الجدول سيكون المعيار لاستعلام التحديث

الاستعلام Q_Update هو النتيجة ويتم من خلالة تحديث الاجازات للعام الجديد

3- اعملت نموذجا للتنفيذ

آمل ان يضيف هذا العمل شيئا مفيدا الى ثقافتك البرمجية

ملحوظة : تم تعديل اسم الحقل year إلى s_year لانها كلمة محجوزة داخل اكسس

برنامج الاجازات.rar

رابط هذا التعليق
شارك

  • 6 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information