الاقسام

تفضل ...... Public Function CheckInkhirat(ByRef ID As Integer) As String On Error GoTo err_CheckInkhirat Dim yearNow As Integer Dim totalPaid As Currency Dim totalPaidLastYear As Currency Dim paymentMarch As Boolean Dim paymentJuly As Boolean Dim t As Integer Dim result_haj As Variant ' تحديد السنة If Month(Date) < 3 Then yearNow = Year(Date) - 1 t = 1 Else yearNow = Year(Date) t = 2 End If 'إجمالي المبلغ المدفوع totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Loan_ID = 0"), 0) If [Forms]![FrmMenah]![Etar] = "المنح العائلية" Then 'التحقق من منحة الحج result_haj = DLookup("[Menha_Date]", "[Mena7]", "[EmployeeID] =" & ID & " And [Menha_ID] =" & [Forms]![FrmMenah]![Frm_sub].[Form]![CmdMenha] & " And [Menha_ID] =11 ") Else result_haj = Null End If ' ' التحقق من دفع المبلغ في مارس ويوليو للسنة الحالية paymentMarch = Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Month(Auto_Date) = 3"), 0) = 1500 paymentJuly = Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Month(Auto_Date) = 7"), 0) = 1500 ' التحقق من الشروط If t = 2 And totalPaid = 3000 And paymentMarch = False And paymentJuly = False And IsNull(result_haj) Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من جميع الامتيازات لأنك دفعت مبلغ الانخراط كاملاً." ElseIf t = 2 And totalPaid = 3000 And paymentMarch = True And paymentJuly = True And IsNull(result_haj) Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من جميع الامتيازات لأنك دفعت مبلغ الانخراط كاملاً على دفعتين." ElseIf t = 1 And totalPaid = 3000 Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من الامتيازات لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً." 'التحقق من رسائل الحج ElseIf t = 1 And totalPaid = 3000 And Not IsNull(result_haj) Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من الامتيازات لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً." & vbNewLine & "ولكن قد استفت من منحة الحج لعام" & vbNewLine & result_haj ElseIf t = 2 And totalPaid = 3000 And paymentMarch = False And paymentJuly = False And Not IsNull(result_haj) Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من جميع الامتيازات لأنك دفعت مبلغ الانخراط كاملاً." & vbNewLine & "ولكن قد استفت من منحة الحج لعام" & vbNewLine & result_haj ElseIf t = 2 And totalPaid = 3000 And paymentMarch = True And paymentJuly = True And Not IsNull(result_haj) Then CheckInkhirat = "عزيزي العامل، يمكنك الاستفادة من جميع الامتيازات لأنك دفعت مبلغ الانخراط كاملاً على دفعتين." & vbNewLine & "ولكن قد استفت من منحة الحج لعام" & vbNewLine & result_haj Else CheckInkhirat = "عزيزي العامل، لا يمكنك الاستفادة من الامتيازات لأنك لم تدفع مبلغ الانخراط." End If Exit Function err_CheckInkhirat: MsgBox "خطأ رقم " & Err.Number & ": " & Err.Description, vbCritical, "خطأ" CheckInkhirat = "حدث خطأ أثناء التحقق من بيانات الانخراط." End Function  

جزاك الله خيراً ولكن هذا الأمر في عدد معين من الخلايا فلماذا يطالها التجنيد هي فقط دون البقية مع ملاحظة أن الخلايا التي تتجمد ليس فيها أية معادلات أو تنسيقات شرطية . الأمر الآخر .. هل هناك من وسيلة لتقليل عدد المعادلات مع المحافظة على نفس النتائج ؟ وأخيراً كيف عرفت عدد المعادلات والتنسيقات الشرطية؟ علماً بأنني مبتدئ في المجال. ولك جزيل شكري وإمتناني .   عفواً نسيت أن أقول أن موارد الجهاز الذي أعمل عليه ليست بسيطة ومع ذلك احرص بين الفينة والأخرى على الرحيل المواد المخزنة عليه إلى وسائط خارجية . ولم اواجه عقبة تجميد إلا مع هذه الورقة علماً بأن الورقة واحدة من ضمن مصنف به أكثر من عشر ورقات وكلها تعمل بكفاءة رغم وجود روابط كثيرة بينها وفي البدق حاولت رفع المصنف كله ولكن كان حجمه أكبر من المسموح به .

وعليكم السلام ورحمة الله وبركاته أخي @moho58 ، جرب هذا الكود في زر عرض التقرير :-   Dim varItem As Variant Dim strCriteria As String Dim strFilter As String If Me.lst_XX_100.ItemsSelected.Count = 0 Then MsgBox "لم تقم باختيار الدرجة", , "تنبيه" Exit Sub End If For Each varItem In Me.lst_XX_100.ItemsSelected If Len(strCriteria) > 0 Then strCriteria = strCriteria & " OR " End If strCriteria = strCriteria & "(grade = '" & Me.lst_XX_100.Column(0, varItem) & "' AND " & _ "groupe = '" & Me.lst_XX_100.Column(1, varItem) & "')" Next varItem strFilter = "annee = '" & Me.ANNEE200 & "' AND (" & strCriteria & ")" DoCmd.OpenReport "rap_list", acViewPreview, , strFilter وأخبرنا بالنتيجة 

نتشرف نحن مركـز بنــاء الدولي للتـدريب ( BenaaITC )         بدعوتكم للمشاركة فى البرنامج التدريبي         السكرتاريا الطبية المتخصصة         يمكنكم من خلال هذا الرابط التسجيل وحجز مقعدكم وبناءاً عليه سيتم التواصل معكم وإرسال العرض المالي والفني الخاص بالبرنامج التدريبي المطلوب         أو يمكنكم التواصل معنا مباشرة ...         أ / فاطمة كريم         جوال / واتساب / ڨايبر / لاين / إيمو : 00201020877915         البريد الإلكتروني : fatma@benaaitc.com         الموقع الرسمي : مركـز بنــاء الدولي للتـدريب         كما يسعدنا أن نقدم لكم مجموعة متميزة من أفضل البرامج التدريبية فى مجال الخدمات الصحية والطبية         ( والتي يتم تنفيذها على أيدي نخبة من أفضل الأساتذة والمتخصصين في مجال التدريب )                          ──────────────────────────         » البرامج التدريبية في مجال الخدمات الصحية والطبية «            ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈                      النظم الحديثة فى إعداد وتقييم العطاءات والتفاوض التنافسي                          سلامة وأمان المرضى                          إدارة الأزمات وخطط الطوارئ بالمستشفيات والمنظمات الصحية                          إدارة المستشفيات والمراكز الصحية                          دراسات الجدوى الإقتصادية لإنشاء المستشفيات والمراكز الصحية                          الإسعافات الأولية                          إدارة المخازن والمستودعات الطبية                          أساسيات التمريض العام                          الماجستير المهني المصغر في مكافحة العدوى المكتسبة بالمستشفيات                          الهندسة الإكلينيكية                          إقتصاديات الخدمات الصحية والتأمين الصحي                          إدارة وضمان الجودة في المختبرات الطبية                          أهمية علم الأوبئة للحد من إنتشار الأمراض السارية                          إدارة التواصل المجتمعي في المؤسسات الصحية                          مبادئ إدارة المستشفيات                          الماجستير المهني المصغر في ادارة المستشفيات والمؤسسات الصحية                          الهيكل التنظيمي للمستشفيات                          إدارة الموارد البشرية في المستشفيات                          إدارة السجلات الطبية الحديثة                          السلامة والصحة المهنية في المستشفيات والمراكز الصحية                          تسويق الخدمات الصحية                          إدارة التغذية بالمستشفيات                          التسويق الإستراتيجي للأجهزة والمعدات الطبية                          إدارة الصيدليات ومخازن الأدوية                          الأجهزة العلاجية وآلية إكتشاف الأعطال للأجهزة الطبية                          فن التعامل مع المرضى                          إدارة الجودة الطبية والجودة الشاملة في المستشفيات                          السكرتاريا الطبية المتخصصة                      ──────────────────────────         » كما نقدم دورات تدريبية فى المجالات الآتية «            ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈         الإدارة والقيادة وتطوير الذات    |    المحاسبة والإدارة المالية       |         البنوك والقطاع المالي         القانون وإدارة العقود                   |             الهندسة الكهربائية             |         الهندسة الفنية والصيانة         سلامة الغذاء                            |   الخدمات الصحية والطبية                |         الموارد البشرية         قطاع التأمين                             |    التسويق والمبيعات وخدمة العملاء  |         إدارة المشاريع         هندسة البترول والنفط                 |    العلاقات العامة والإعلام                |         المشتريات والمخازن والخدمات اللوجستية         الجودة الشاملة والإنتاج                 |      الأمن والسلامة والصحة المهنية     |     السكرتاريا وإدارة المكاتب         التنشيط السياحي وإدارة الفنادق         ──────────────────────────         » نقوم بتنفيذ البرامج التدريبية في معظم عواصم ومدن العالم ومنها «            ◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈◈         دورات تدريبية تعقد في القاهرة   |      دورات تدريبية تعقد في دبي         دورات تدريبية تعقد في اسطنبول  |     دورات تدريبية تعقد في جـدة         دورات تدريبية تعقد في شرم الشيخ    |    دورات تدريبية تعقد في الرياض         دورات تدريبية تعقد في الإسكندرية    |      دورات تدريبية تعقد في كوالالمبور                          ──────────────────────────         يحصل المتدرب على شهادة بالعربية وأخرى بالإنجليزية معتمدة من مركـز بنــاء الدولي للتـدريب         ──────────────────────────         ملحوظة : ㋡         。。。。         ↜ يوجد خصم خاص للشركات والهيئات والجهات الحكومية والمجموعات         ↜ سياستنا مبنيه على الإلتزام بعقد جميع برامجنا التدريبية في موعدها دون تأجيل أوإلغاء وبغض النظر عن عدد المشاركين .         ↜ يمكن تنفيذ أي برنامج تدريبي اخر يلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم اذا كان عدد المشاركين (2) كحد ادنى .         ──────────────────────────         ☚  أسلوب تنفيذ البرنامج :         。。。。。。。。         لضمان نجاح البرنامج التدريبى واتاحة اكبر قدر ممكن من المشاركة الفعالة من خلال إعداد المادة العلمية بطريقة واضحة وبسيطة ومفهرسة         حتى يسهل على المتدرب إستيعاب المادة وكذلك وضع المادة العلمية وتقديم كافة المراجع على فلاش ميموري تسلم للمتدرب         وكذلك يتخلل البرنامج التدريبي جلسات نقاش ولعب أدوار كما يتم عرض الحالات العملية الخاصة بالبرنامج وطرحها للنقاش والبحث بين المتدربين والمحاضر         كما يتم عمل إستبيانات بصفة دورية للوقوف على مستوى البرنامج التدريبي ومدى رضاء المتدرب عن البرنامج من كافة جوانبه         ومنها المادة العلمية المطبوعة والمعروضة على شكل شرائح تعليمية وقاعة التدريب وفندق إقامة البرنامج         ومدى التواصل مع منسق الدورة لتذليل العقبات وإنجاح البرنامج التدريبي                          ──────────────────────────         لحجز مقعدكم والإستفادة بالعروض والخصومات يمكنكم التواصل معنا على البيانات الآتية :                 فاطمة كريم         Mob & WhatsApp & Viber & Line & Imo : 00201020877915         Email : fatma@benaaitc.com         Website : www.benaaitc.com         ──────────────────────────         تابعونا على السوشيال ميديا :         Facebook             |             Twitter           |            Linkedin         |          Instagram         نحتاج التحفيز لكي نبدأ السباق .. بينما نحتاج التدريب لكي ننهيه بنجاح

مداخلة سريعة متأخرة    بالنسبة لي دائماً وفي أي مشروع اعتمد على عدة عوامل لأستفيد منها من ناحية اختلاف سرعة الاتصال اللحظة بالشبكة بين جهاز وآخر ( ممكن يكون السبب اختلاف الكمبيوتر أو كرت الشبكة وظريقة الاتصال بها ، موزع الشبكة ... إلخ ) وهذه الاستفادة تأتي لي دائماً بنتيجة خالية من المشاكل وهي كما ذكر أستاذ موسى استخدام الدالة DMAX ولكني اجعلها في آآآآآخر مرحلة وهي عند النقر على الزر حفظ ، فأجعل الترقيم للحقل يأتي كأول إجراء يقوم به النموذج وهو جلب آخر ترقيم وإضافة 1 له ، وهنا تأتيني الإستفادة من اختلاف سرعة الاتصال بالشبكة .