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

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

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

طلبي مشروح داخل النموذج للبرنامج المرفق 

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

ProgEmp14.rar

[kanory]

تفضل هل هذا طلبك

ProgEmp14.rar

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

استاذ الفاضل kanory شكرا جزيلا لتعديلك وجزاك الله خيرا 

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

مثلا الموظف قاسم عندما اختار خانة اختيار 30 يوم يكون الاستحقاق هو 290550 واذا اخترت خانة اختيار 31 ايضا يكون الاستحقاق نفس المبلغ وهذا خطأ المفروض يكون المبلغ 291670

واكون شاكرا لك 

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

للرفع

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

للرفع

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

للرفع

[ابوخليل]

السلام عليكم

الطريقة في حساب الشهر غريبة 

تم التعدبل على المثال حسب طلبك

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

وايضا يمكن الاستعانة برمجيا لاظهار عدد ايام الشهر الحالي ، انظر الدالة ادناه

Public Function MonthDays()
     Dim myMonth As Long
    myMonth = Month(Date)
    MonthDays = Day(DateSerial(Year(Date), myMonth + 1, 1) - 1)
End Function

 

ProgEmp4.rar

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

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

 No archives found 

اما بالنسبة لفكرة عمل البرنامج هو كالاتي 

هذا البرنامج يسحب اجور موظفي الاجرة اليومية بحيث مبلغهم في الشهر هو 350000 دينار مقطوعة يستقطعون منهم ايام الاجازة 

طبعا على الشهر الميلادي اذا شهر ايامه 30 يوم وشهر ايامه 31 يوم وشهر الثاني شباط ايامه 28 يوم 

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

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

 

 

[ابوخليل]

ولكن المفروض  تتم العملية آليا بناء على الشهر  الظاهر  

ProgEmp4.mdb

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

 

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

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

 

 

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

 

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

ممكن تشرح لي طريقة العمل التي تم ربط خانة الاختيار ب مجموعة خيار

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

 

 

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

 

للرفع

 

[ابوخليل]

مجموعة الخيارات  موجودة جاهزة ضمن صندوق الادوات في اكسس

كل الذي عليك هو انزال الاطار  والمعالج هو الذي يساعدك  في اكمال المهمة

جرب كل الخيارات المتاحة واعد التجربة لترى الفرق

الجزء الذي يصعب عليك فهمه  اذكره لنزيد الايضاح والشرح

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

 

استاذي الفاضل ابو خليل جزاك الله خيرا ربي يحفظك يارب 

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

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

 

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

 

استاذي الفاضل ابو خليل جزاك الله خيرا ربي يحفظك يارب 

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

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

 

[ابوخليل]

مجموعة الخيارات سميناها etar
هذا الاطار ممكن نجعله بدون قيمة بحيث لما نفتحه تكون الخانات خالية
او اننا نعطية قيمة تساوي احد قيم الخانات الموجودة فلما نفتح النموذج نشاهد ان احد الخانات تم التأشير عليها
ولكن عند التحديث فهذا الاطار ياخذ قيمة الخانة التي تأشر عليها
وعندنا خانتين واحدة قيمتها=1 والثانية = 2
فلما نأشر على الخانة الاولى يصبح قيم الاطار    etar=1
وهذا الكلام يفسر لك الكود اللي عملناه :

 

If etar = 1 Then
Me.esthkak = Me.agra - (Me.GiapNum * 11666)
ElseIf etar = 2 Then
Me.esthkak = Me.agra - (Me.GiapNum * 11290)
End If

 

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

 

استاذي الفاضل ابو خليل بارك الله فيك ربي يحفظك يارب 

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

وصلت الفكرة وتم تطبيقها وهي تعمل بشكل ممتاز جزاك الله خيرا