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

[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

[w_hamlen]

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

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

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

[ابوخليل]

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

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

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

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

[w_hamlen]

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

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

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

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

تم تعديل أكتوبر 19, 2012 بواسطه w_hamlen

[w_hamlen]

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

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

[ابوخليل]

سيقوم بعمل المطلوب

دفعة واحدة وبنقرة زر واحدة

[w_hamlen]

سيقوم بعمل المطلوب

دفعة واحدة وبنقرة زر واحدة

[w_hamlen]

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

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

[w_hamlen]

السلام عليكم ،،، سامحوني على عجلتي الحاجة ملحة وأرجو أن اجد الحل لمشكلتي

[ابوخليل]

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

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

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

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

[w_hamlen]

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

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

[ابوخليل]

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

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

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

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

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

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

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

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

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

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

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

[hanymoameen]

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور