المساعدة في التاشير على مربع اختيار اوتوماتيكيا حسب عدد ايام الشهر

[حربي العنزي]

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

طلبي مشروح بالتفصيل الممل على النموذج للبرنامج المرفق

مع جزيل الشكر والاحترام

ProgEmp20.rar

[حربي العنزي]

للرفع

[حربي العنزي]

للرفع

[حربي العنزي]

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

طلبي هو اذا الشهر 31 يوم يكون مربع اختيار الخاص بالتسمية 31 هو صواب 

واذا الشهر 30 يكون مربع اختيار الخاص بالتسمية 30 هو صواب وهكذا 

مع فائق الشكر والاحترام

[حربي العنزي]

للرفع

[ابوخليل]

السلام عليكم 

اخوي حربي

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

انا اقول يمكن تطبيق ما تفكر به بأسهل مما تتصور

 مثلا : لماذا لا تضع حقل غير منضم  يظهر فيه عدد ايام الشهر ، وتعمل بناء عليه عملياتك

ويمكن ايضا بدل الحقل  يكون متغير  تستخدمه في اي مكان من البرنامج

 

 

 

[حربي العنزي]

استاذي الفاضل ابو خليل السلام عليكم ورحمة الله وبركاته 

نعم هو طلب غريب لكن ماباليد حيله انا اقوم بالتأشير على مربع خانة للشهر 

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

يختفي التأشير وبهذه الحالة احتمال يخطأ المستخدم ويقوم بالتاشير في مربع خانة خاص بالشهر مثلا 30 يوم يوم 

طلبي هو اذا الشهر 31 يوم يبقى ثابت التاشير على مربع خانه الخاص ب 31 يوم وبالتالبي يتم احتساب راتب الاجير اليومي وعندما يأتي شهر عدد ايامه 30 يتحول التاشير على مربع خانة خاص ب 30 يوم وهكذا

اي يبقى التاشير ثابت على عدد ايام الشهر 

[kanory]

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

[حربي العنزي]

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

ربي يحفظك يارب يارب 

عملت ماتفضلت به 

اذا امكن التعديل واجراء العمليات 

واكون ممنون لك استاذي الفاضل 

وهذا البرنامج بعد اضافة حقل غير منظم يظهر عدد ايام الشهر

 

 

ProgEmp21.rar

[ابو جودي]

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

اولا كل عام وانتم بخير 

ثانيا اتمنى يكون طلبك بالمرافق 😉

 

ProgEmp20_2.rar

[عبد الفتاح كيرة]

السلام عليكم

كل عام و أنتم بخير

على قدر ما فهمت

عند كتابة تاريخ فى datename

يتم فحص الشهر فى هذا التاريخ 31/30/28/29

بدون تدخل

و على حسب نتيجة الفحص

يتم تحديد أحد مربعات الاختيار فى etar

الخطوات

أولا غيرت حقل datename إلى تاريخ

ثانيا : هذه وظيفة لحساب عدد أيام أى شهر فى أى تاريخ

تكتب فى نفس المودويل

Function EndOfMonth(mDate As Date) As Variant
        EndOfMonth = Day(DateSerial(Year(mDate), Month(mDate) + 1, 0))
End Function

ثالثا فى حدث "بعد التحديث " ل datename

نكتب الكود التالى

Private Sub DateName_AfterUpdate()
Select Case EndOfMonth(Me.DateName)
        Case 31
                Me.etar = 2
        Case 30
                Me.etar = 1
        
        Case 28
                Me.etar = 3

End Select
End Sub

و هذا ملفك بعد التعديل

وفقكم الله

ProgEmp20.rar  

[ابو جودي]

شوف ان شاء الله ان كان هذا طلبك 

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

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

و قمت بالتصميم على مربعات نص غير منظمه لإيضاح آلية العمل

 

انظر ايضا إلى الاستعلام باسم  qryJudy

يوضح الاستخراج الكامل لكل ما يتعلق بالتاريخ بناء على الأكوان بالوحدة النمطية 😉

 

انا اسف الشرح سريع وغير مفصل لانى ادخل من الجوال

 

[ابو جودي]

ههههههههههه

سبحان الله كنت انتظر الرد  لأعرف رأيك اولا وهل اقتربت انا من طلبك لاكمل الباقى

وسبقنى الأستاذ عبد الفتاح باكمال باقى الربط بالاوبشن جروب 

☺

وتذكر كل اربع سنوات ياتى شهر فبراير ٢٩ يوم 

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

وثانيا فكرة العبد الفقير الى الله وطالب العلم  

واللهم اسال ان شاء الله ان تكون وجدت ضالتك 

[kanory]

ما شاء الله تبارك الله . لاحظ اخي حربي .. بعد ما تم معرفة الغرض من السؤال والتعديلات المطلوبة بدأ الاخوة بالرد . لان المطلوب والسبب معروف

[حربي العنزي]

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

جزاكم الله خيرا الله لايحرمني من شخصكم الكريم يارب 

وفيتم وكفيتم والنعم منكم جميعا 

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

واكون ممنون منك استاذي الفاضل 

 

 

تم تعديل مايو 20, 2018 بواسطه حربي العنزي

[ابو جودي]

7 ساعات مضت, حربي العنزي said:

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

جزاكم الله خيرا الله لايحرمني من شخصكم الكريم يارب 

وفيتم وكفيتم والنعم منكم جميعا 

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

واكون ممنون منك استاذي الفاضل 

اتفضل القاعدة 

 

ProgEmp20_2.accdb

[حربي العنزي]

استاذي الفاضل ابا جودي ربي يحميك من كل سوء يارب يارب 

انا استخدم اوفيس 2003 

اذا امكن رفع البرنامج على اصدار اوفيس 2003 

وانا اسف لان تعبتك معاي جزاك الله خيرا يا طيب 

 

[ابو جودي]

2 ساعات مضت, حربي العنزي said:

استاذي الفاضل ابا جودي ربي يحميك من كل سوء يارب يارب 

انا استخدم اوفيس 2003 

اذا امكن رفع البرنامج على اصدار اوفيس 2003 

وانا اسف لان تعبتك معاي جزاك الله خيرا يا طيب 

 

 

هههههههههه

انا اسف اخوى انا اللي شكلى خربط الدنيا من الجوع 😁😂😂😂

ProgEmp20-3.mdb

تم تعديل مايو 21, 2018 بواسطه ابا جودى

[حربي العنزي]

استاذي الفاضل ابا جودي ربي يحميك من كل سوء يارب يارب 

نعم هذا هو المطلوب 

جزاك الله خيرا سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب 

وكل عام وانت بألف خيرا

 

[ابو جودي]

4 ساعات مضت, حربي العنزي said:

استاذي الفاضل ابا جودي ربي يحميك من كل سوء يارب يارب 

نعم هذا هو المطلوب 

جزاك الله خيرا سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب 

وكل عام وانت بألف خيرا

 

 الحمد لله الذى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل