( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: 🙂🌹

[Moosak]

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

 

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

فخطرت على بالي هذه الدالة الصغنونه الظريفة ..

فوضعتها موضع التنفيذ مع نموذج دايناميكي لتقويم شهري كنت قد صممته سابقا مع سبق الترصد 😁

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

ولمن أراد أن ينفعنا بنصائحه الثمينة والسمينة 😅🖐🏼️

وهذه هي الدالة المستخدمة في عمودي مجموع الحضور والغياب :

Public Function Count_Present_Absent(P_or_A As String) As Integer
' دالة لحساب عدد أيام الحضور وعدد أيام الغياب من تقويم مكون من 31 يوم
' By: Moosak

'P_or_A = Present or Absent ? وتعني أنت تريد حساب الحضور أم الغياب
' على أفتراض أن أسماء حقول الأيام هي على التوالي : Day1, Day2, Day3 ......

Dim x As Integer
Dim Frm As Form: Set Frm = Screen.ActiveForm
Dim PresentDays As Integer, AbsentDays As Integer

Count_Present_Absent = 0

For x = 1 To 31
    If Frm.Controls("Day" & x).Value Like "*ح*" Then
        ' حساب عدد أيام الحضور
        PresentDays = PresentDays + 1
        
    ElseIf Frm.Controls("Day" & x).Value Like "*غ*" Then
        ' حساب عدد أيام الغياب
        AbsentDays = AbsentDays + 1
    End If
Next

' الدالة ترجع مجموع عدد أيام الحضور أو مجموع عدد أيام الغياب حسب الطلب
If P_or_A = "P" Then
    Count_Present_Absent = PresentDays
ElseIf P_or_A = "A" Then
    Count_Present_Absent = AbsentDays
Else
    Set Frm = Nothing
    Exit Function
End If

Set Frm = Nothing
End Function

 

موضوع سريع وعلى الطاير قبل أن تتفلت المعلومات 😊🖐🏼️

تسجيل حضور وغياب الموظفين.accdbFetching info...

[ahmad_mustafa]

السلام عليكم اخ موسى

يبدو انها فكرة رائعة رغم انها لم تعمل وظهر لي خطأ يرجى مساعدتي في ايجاد سببه

[Moosak]

  في 2‏/2‏/2023 at 09:05, ahmad_mustafa said:

ظهر لي خطأ يرجى مساعدتي في ايجاد سببه

Expand  

وعليك السلام أخي أحمد 🙂 
 

متى ظهر لك الخطأ ؟
عند فتح البرنامج أم عند إدخال بيانات جديدة ؟ 

[طاهر الوليدي]

شكرا عمل جميل جدا شكلا ومضمونا لكن لو استبدل بدل ح حضور وغ غياب بعدد ساعات الحضور وتم اضافة لكل اسم موظف ثلاث فترات دوام

الاسم      المهنة  الفترة.   1.  2.   3

                        صباح.  8.    8.   8

محمد سالم       مساء.     4.    4.   3

                       ليلا.       2.     2.   2

المجموع 

صباح. مساء . ليل

192.     36.     20

وينقصه التقرير بنفس شكل النموذج بس يكون من اليميين الاسماء

اتمنى يستكمل بهذه الصورة فيكون له من الشاكرين

[طاهر الوليدي]

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

هيك.pdfFetching info...

تم تعديل فبراير 2, 2023 بواسطه طاهر الوليدي

[طاهر الوليدي]

او هكذا افضل

هيك.pdfFetching info...

[Moosak]

حياك الله وبياك أخي طاهر 🙂

 أصل هذا الموضوع هو عرض الدالة فقط .. وتوضيح فكرة كيفية حساب القيم النصية في الخلايا بشكل عرضي وليس طولي  ( أي الخلايا الموجودة في السجل الواحد) ، وهو ليس برنامج متكامل لحساب الغياب والحضور وأعمال الموظفين ، ولكنها جزئية بسيطة يمكن لمن يحتاجها أن يطورها ويضيف عليها ما يحتاجه من تقارير وبيانات مختلفة 🙂

 

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

وتكملة التصميم عليك 😄✌️

[ازهر عبد العزيز]

  في 2‏/2‏/2023 at 09:05, ahmad_mustafa said:

يبدو انها فكرة رائعة رغم انها لم تعمل وظهر لي خطأ يرجى مساعدتي في ايجاد سببه

Expand  

 اغلق الوجهة ثم قم بتمكين المحتوى من الشرط الاعلى

[Moosak]

  في 3‏/2‏/2023 at 11:11, Moosak said:

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

Expand  

هذا هو الملف الأصلي أخي .. @طاهر الوليدي 🙂 

عدل فيه كما تشاء 😊

TimeSheet Project.accdbFetching info...

[النجاشي]

استاذي الغالي @Moosak فكره جميله ورائعه جزاك الله خير

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

 

توزيع الميراث .rarFetching info...

[ahmad_mustafa]

  في 2‏/2‏/2023 at 09:05, ahmad_mustafa said:

ظهر لي خطأ يرجى مساعدتي في ايجاد سببه

وعليك السلام أخي أحمد 🙂 
 

متى ظهر لك الخطأ ؟
عند فتح البرنامج أم عند إدخال بيانات جديدة ؟ 

 

 

ظهر لي الخطأ عند فتح البرنامج

[Moosak]

  في 3‏/2‏/2023 at 16:23, النجاشي said:

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

 

Expand  

أخي @النجاشي أنت غيرت الموضوع تماما 😅🖐🏼️

يحتاج إعادة تصميم الجدول والنموذج بطريقة مختلفة عن أصلها الحالي 😄

  في 3‏/2‏/2023 at 17:26, ahmad_mustafa said:

ظهر لي الخطأ عند فتح البرنامج

Expand  

ربما يكون هذا حل المشكلة أخي أحمد 🙂 :

  في 3‏/2‏/2023 at 12:24, ازهر عبد العزيز said:

اغلق الوجهة ثم قم بتمكين المحتوى من الشرط الاعلى

Expand  

 

[النجاشي]

خي @النجاشي أنت غيرت الموضوع تماما 😅🖐🏼️

يحتاج إعادة تصميم الجدول والنموذج بطريقة مختلفة عن أصلها الحالي 😄

استاذي الله يعطيك العافيه

 

ياليت تعطينا طرف الخيط وانا بعمل جدوال او تعدل على المثال السابق اذا لديت الفرصه اخي موسي بارك الله فيك

[Moosak]

  في 3‏/2‏/2023 at 17:40, النجاشي said:

ياليت تعطينا طرف الخيط

Expand  

الموضوع بسيط أخي @النجاشي ليست بتلك الصعوبة 🙂 

أساسا أنت وضعت الفكرة مسبقا ، باقي أنك تنشيء المربعات التي ذكرتها في الجدول ومن ثم تضيفها في النموذج ( بعد أن تحذف الغير مرغوب فيها طبعا .. ولا تنسى حذفها من الجدول أيضا ) ..

فقط انتبه لحقل المجموع Total هو موجود في الاستعلام ومعتمد على أيام الشهر .. لذلي يحتاج تعديلها حسب المربعات الجديدة ..

[النجاشي]

  في 3‏/2‏/2023 at 18:05, Moosak said:

الموضوع بسيط أخي @النجاشي ليست بتلك الصعوبة 🙂 

أساسا أنت وضعت الفكرة مسبقا ، باقي أنك تنشيء المربعات التي ذكرتها في الجدول ومن ثم تضيفها في النموذج ( بعد أن تحذف الغير مرغوب فيها طبعا .. ولا تنسى حذفها من الجدول أيضا ) ..

فقط انتبه لحقل المجموع Total هو موجود في الاستعلام ومعتمد على أيام الشهر .. لذلي يحتاج تعديلها حسب المربعات الجديدة ..

Expand  

راح اعملها الليله باذن الله ساوفيك بالنتيجه يالغالي 

[النجاشي]

استاذي موسي لم أتوفق ياليت اذا لديك فرصه تعدل لي على المثال حفظك الله اخي

[Moosak]

  في 3‏/2‏/2023 at 23:40, النجاشي said:

استاذي موسي لم أتوفق ياليت اذا لديك فرصه تعدل لي على المثال حفظك الله اخي

Expand  

أرني ماذا فعلت .. لعلك على بعد خطوة من النجاح 🙂

[طاهر الوليدي]

استاذي الغالي موسى 

بارك الله فيك 

وشكرا لك وجعل هذا العمل  في ميزان حسناتك 

حاولت اجعله مثل هذا الجدول على ان يكون للموظف ثلاث استحقاقات امام اسمه . عمل . اضافي . طبيعه 

حضور وغياب.rarFetching info...

فظهرة الي مشكلة حاولت احلها فلم انجحياريت تشوف الموضوع

 

[النجاشي]

  في 4‏/2‏/2023 at 03:10, Moosak said:

أرني ماذا فعلت .. لعلك على بعد خطوة من النجاح 🙂

Expand  

هذه هي الفكره المطلوبه بالنموذج عملتها على قد حالي ولكن عملتها بطريقه توضيحيه

المطلوب من جدول التركه الاصل يتحول السجلات كما في النموذج 

باذن الله تكون الفكره تكون فيها فائده 

تحياتي اخي موسي

1.rarFetching info...

[Altimas100]

كيف التسجيل لكل شهر له ايامه 31 او 30  او 29 !!

 

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

!! A, B  بنفس العامود 

😂 هل ممكن الترتيب كذا ينقصة دوال 

 اذا لا تعرف حتى يتمكن الاساتذه من سد العيب 

اما احتساب التركة لجهة خبير للحسبة !! لمعادلات يقدر النجاشي يشرح جزء منها

تحياتي استاذ @Moosak 😁

[Moosak]

  في 4‏/2‏/2023 at 12:17, طاهر الوليدي said:

استاذي الغالي موسى 

بارك الله فيك 

وشكرا لك وجعل هذا العمل  في ميزان حسناتك 

حاولت اجعله مثل هذا الجدول على ان يكون للموظف ثلاث استحقاقات امام اسمه . عمل . اضافي . طبيعه 

حضور وغياب.rar 95.14 kB · 7 downloads

فظهرة الي مشكلة حاولت احلها فلم انجحياريت تشوف الموضوع

 

Expand  

أخي طاهر ظهرت لي العديد من الأخطاء لم أعرف سببها  .. 

ومنها :

 

وأيضا مستخدم الكثييييييييييييييييير من جملة For  عدد كبير منها في الكود يمكن اختصارها لكم وحدة بس ..

والأخطاء اللي عندك فيها .. أنك لم تغلق الجملة بكلمة Next  لمعظمها ..

 

هذا غير أني ما فهمت الفكرة اللي تريد توصل لها 😅

[Moosak]

  في 4‏/2‏/2023 at 15:14, النجاشي said:

هذه هي الفكره المطلوبه بالنموذج عملتها على قد حالي ولكن عملتها بطريقه توضيحيه

المطلوب من جدول التركه الاصل يتحول السجلات كما في النموذج 

باذن الله تكون الفكره تكون فيها فائده 

تحياتي اخي موسي

Expand  

أخي النجاشي 🙂 

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

وقبل أن تبدأ بالعمل في الأكسس .. أقترح عليك أن ترسم النموذج على ورقة حتى تتضح لديك الرؤية وتعلم جميع احتياجاتك .. 

بعدها إبدأ ببناء الجداول بشكل صحيح مع علاقاتها .. ( جدول للورثة - وجدول للممتلكات  - وجدول لحساب وتوزيع أنصبة الورثة )

ثم أنشيء النماذج ... (نموذجي إدخال لكل من (جدول للورثة - وجدول للممتلكات)  ،  ونموذج لحساب الميراث شبيه بالنموذج الحالي مصدره جدول الممتلكات وبه نموذج فرعي لحساب نصيب كل وارث )

 

هذا ما يتبادر لذهني حاليا .. 🙂 

وأعتذر لك عن بناء قاعدة البيانات لضيق الوقت 🌹

 

[النجاشي]

تتمام استاذي الفاضل موشي راح ابدا فيه باذن الله

سابدا من الجدوال كما اشرت راح اوفيك بما اتوصل اليه

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

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

[طاهر الوليدي]

حاولت اطبق فشلت 

اردت تقسيم اليوم الى ثلاث ورديات او استحقاقات دوام لكل موظف يحضر صباحا . وبعد الظهر . ومساء 

الصباح تسمى عمل

بعد الظهر تسمى اضافي.

مساء تسمى طبيعه .

ونحتاج لكل ورديه تحضير  لشهر كامل فكررت الحقول من 1-31 لدوام صباحا

ومن 32-62 لدوم بعد الظهر

ومن 62_93 لدوام مساء

حضور وغياب.rarFetching info...

[Moosak]

@طاهر الوليدي

هكذا مثلا ؟