اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

السلام عليكم 

اخوي حربي

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

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

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

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

 

 

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

ProgEmp21.rar

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

السلام عليكم

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

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

عند كتابة تاريخ فى 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  

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

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

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

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

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

 

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

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

 

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

 

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

ههههههههههه

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

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

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

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

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

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

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

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

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

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

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

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

 

 

Untitled1.jpg

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

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

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

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

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

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

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

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

 

ProgEmp20_2.accdb

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

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

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

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

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

 

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

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

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

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

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

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

 

 

هههههههههه

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

ProgEmp20-3.mdb

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

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

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

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

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

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

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

 

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information