طاهر اوفيسنا

نعم استاذ

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

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

نعم لاحظته ووجدت المشكل كما أشرت بالصورة فعلا هذا هو المطلوب استاذ نافل بالاسم

شكرا لمروركم الطيب اساتذة لاحظ الصورة استاذ Barna

لاحظ الصورتين استاذ وتمعن فيها توصلك للمطلوب 20241210.rar

لا يا استاذ في النظارات الطبية مرة واحدة فقط في كل المبالغ الا بعد مرور عامين دون اعتبار مجموع المبالغ ب 7000 دينار اما هذا ليس مجموع المبالغ استاذ بل غند تقديم فاتورة جديدة بقيمة اكبر من 7000 دينار يتم حساب التعويض على 7000 دينار مثلا فاتورة بقيمة 9000 دينار او اكثر تحسب على اساس انها 7000 دينار ويتم التعويض على 7000 × 30 % خاص برقم 1-3-4-5-6-9 7000 × 40 % خاص برقم 2

شكرا استاذ نافل على الرد بالنسبة للشرح اولا : الشرط يكون عند منح التعويض يكون مرة واحدة خلال سنتين لنفس الشخص مثلا : كريمو 1 استفادة بتعويض رقم 2 (النظارات الطبية) بتاريخ 2023/12/01 هنا تقدم بطلب تعويض اخر يوم 2024/12/10 هنا نلاحظ انه لم يستوفي شرط السنتين عنا الكود يعلمني انه استفاد بتعويض النظارات الطبية بتاريخ 2023/12/01 ةلا يمكنه التعويض حاليا الا بعد مرور سنتين من تاريخ التعويض وهنا الشرط يكون عند Nom_Beneficiaire في الفورم FrmSanté_sub تعويض النظارات الطبية يمكن يكون المنخرط او الزوجة او الابن او المتكفل بهم ثانيا : مبلغ الفاتورة التي سيتم عليها التعويض لا يكون اكبر من 7 الاف دينار جزائري في كل حالات التعويضات الطبية نفرض فاتورة بقيمة 9 الاف دج تحسب على اساس انها 7 الاف دج وتضرب في ness وهكذا اما الاقل فعادي فتأخذ قيمتها الحقيقية وتضرب في ness ملاحظة : الفرق بين التعويض رقم 2 وجميع التعويضات الاخري (1-3-4-5-6-9) ان رقم 2 يعوض مرة واحدة خلال 02 سنة للسخص الواحد مثلا نوفل استفاد خلال سنة 2024 فلا يمكنه الاستفادة مرة اخرى الا بعد سنة 2026 اما الحالات الاخرى (1-3-4-5-6-9) فيتم التعويض كلما تم تقديم فاتورة

السلام عليكم اساتذتي الكرام لدي كود عند تعويض رقم 2 "النظارات الطبية للمنخرط أو زوجته او أحد أبنائه او من تحت كفالته لكل 02 سنة" في التعويضات الطبية ولكن يعمل بشكل عفوي اتمنى ان تضع عليه لمسات وتصحح لي الاخطاء او تعيد صيغته من جديد مثل صيغة منحة الحج الشروط يعطي هذا التعويض للشخص الواحد مرة واحدة خلال كل 02 سنة البداية : 1- اختيار نوع ورقم التعويضات الطبية ونختار رقم 2 2- تثبيت تاريخ التعويض 3- اسم الشخص صاحب النظارات الطبية هنا يظهر MsgBox في حالة نفس الشخص ولم يتم السنتين(02) 4- ادحال مبلغ الفاتورة ملاحظة " في حالة المبلغ اكبر من 70000.00دج يحسب على 70000.00 دج" اي هي المرجع 5- النسبة تكون : 40% 20241210.rar

شكرا استاذ على التعديل استاذ لدي كود عند تعويض رقم 2 "النظارات الطبية للمنخرط أو زوجته او أحد أبنائه او من تحت كفالته لكل 02 سنة" في التعويضات الطبية ولكن يعمل بشكل عفوي اتمنى ان تضع عليه لمسات وتصحح لي الاخطاء او تعيد صيغته من جديد مثل صيغة منحة الحج الشروط يعطي هذا التعويض للشخص الواحد مرة واحدة خلال كل 02 سنة البداية : 1- اختيار نوع ورقم التعويضات الطبية ونختار رقم 2 2- تثبيت تاريخ التعويض 3- اسم الشخص صاحب النظارات الطبية هنا يظهر MsgBox في حالة نفس الشخص ولم يتم السنتين(02) 4- ادحال مبلغ الفاتورة ملاحظة " في حالة المبلغ اكبر من 70000.00دج يحسب على 70000.00 دج" اي هي المرجع 5- النسبة تكون : 40% أتمنى اني وفقت في شرح المطلوب المرفق بحوزتك حاول التجريب والتعديل عليه

استاذ وقعت لي مشكلة عند اختيار 01- المنحة المدرسة 02- التعوبضات الطبية 03- المساعدات 04-العمرة كما في الصورة

شكرا استاذي العزيز Barna على بذل المجهودات والابتكارات في الأكواد

اي فعلا استاذ كما أشرت

شكرا استاذ Eng.Qassim على الرد والاهتمام نتمنى من الله سبحانه وتعالى ان يلاقيك بأحبائك واساتذتنا الكرام في الدنيا بالارض الطاهرة مكة المكرمة "موسم الحج" وفي الاخرة في جنة الفردوس تم التعديل على اضافة التاريخ ' التحقق من منحة الحج Me.AwardMonth = Date f = DCount("year(Menha_Date)", "Mena7", "EmployeeID=" & Me.EmployeeID) If f >= 1 And Me.Menha_ID = "11" Then If IsDate(Me.Menha_Date) Then MsgBox "هذا المنخرط (ة) استفاد بمنحة الحج لسنة : " & Year(Me.Menha_Date), vbExclamation, "تنبيه" Else ' MsgBox "يرجى وضع التاريخ في حقل تاريخ المنحة.", vbCritical, "خطأ" End If Me.Undo Exit Sub End If ولكن الكود لم يبحث عن سنة الاستفادة annee في الجدول Mena7

شكرا استاذ على الإهتمام الكود به مشكلة لاحظ الفيديو 2024-12-06_13-53-56.rar 20241205.rar

ممكن اضافة الدالة هذه وعند ظهور Msgbox لا يحدث سجل منح ' استدعاء الدالة للتحقق من منحة الحج f = DCount("year(Menha_Date)", "Mena7", "EmployeeID=" & Me.EmployeeID) If f >= 1 And Me.Menha_ID = "11" Then MsgBox " هذا المنحرط (ة) استفاد بمنحة الحج لسنة :" & "" & years, vbExclamation, "تنبيه" Me.Undo End If الى الدالة Private Sub CmdMenha_AfterUpdate() Dim result As String Dim userResponse As VbMsgBoxResult Dim emp As Integer emp = EmployeeID ' استدعاء الدالة للتحقق من الانخراط result = CheckInkhirat(emp) ' عرض النتيجة في رسالة userResponse = MsgBox(result, vbOKOnly + vbInformation, "نتيجة التحقق") ' التحقق من استحقاق الامتياز قبل المتابعة If result Like "*كاملا*" Then ' طلب تأكيد تثبيت المنحة If MsgBox("هل تريد تثبيت تاريخ المنحة؟", vbYesNo + vbQuestion, "تأكيد") = vbYes Then ' إذا وافق المستخدم، يتم تثبيت التاريخ وإكمال العملية Me.AwardMonth = DATE Me.Menha_Value = CmdMenha.Column(2) Me.Obsérvation = Nom_Menha Me.annee = year(Me.AwardMonth) Else ' إذا رفض المستخدم، يتم التراجع عن أي تغييرات Me.Undo End If Else ' إذا لم يتم استيفاء شروط الانخراط، لا يمكن تثبيت المنحة MsgBox "لا يمكنك تثبيت المنحة لأن شروط الانخراط غير مستوفاة.", vbExclamation, "تنبيه" Me.Undo End If End Sub علما ان المنحة رقم 11 تعني الحج وتعطى مرة واحدة فقط

وهو كذلك وجدت الدالة مكررة شكرا لك استاذي على يد المساعدة حفظك الله ورعاك

الكوذ وقع به خلل عند الاستدعاء استاذ

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

شكرا استاذي العزيز وهو كذلك جربت الى غاية شهر 1 و 2 من السنة الجديدة الكود يستجيب للإمتياز اما شهر 3 فلا يستجيب وهو الاصح الان ممكن إضافة "MsgBox" يعلمني ان العامل بإمكانه الاستفادة لأنه منخرط خلال السنة الماضية يظهر خلال شهر 1 و 2 فقط من السنة الجديدة

استاذ إنتابتني فكرة حول هذه الدالة GetOther لأنها تفي بالغرض المطلوب في الدالة القديمة راجعها او حاول ادماجها مع الدالة الجديدة Public Function GetOther(ByRef ID As Integer) As Boolean On Error GoTo err_GetOther Dim rst As DAO.Recordset Dim MySQL As String Dim sadad As Boolean Dim anne As Integer If Month(Date) < 3 Then anne = Year(Date) - 1 Else anne = Year(Date) End If sadad = IIf(DLookup("sadad", "tbl_Loans", "EmployeeID =" & ID & " And Year(tbl_Loans.Auto_Date) =" & anne) = True, True, False) If sadad = False Then Choix = 0: Exit Function Choix = 1 If Month(Date) <= 3 Then: GetOther = True: Exit Function MySQL = "" MySQL = "SELECT tbl_Loans.Auto_ID, tbl_Loans.EmployeeID, tbl_Loans.Auto_Date, tbl_Loans.Loan_Type, tbl_Loans.Remarks, Year(tbl_Loans.Auto_Date) AS Dats" MySQL = MySQL & " FROM tbl_Loans" MySQL = MySQL & " WHERE tbl_Loans.Loan_Type ='Inkhirat'" MySQL = MySQL & " And tbl_Loans.EmployeeID =" & ID MySQL = MySQL & " And Year(tbl_Loans.Auto_Date) =" & Year(Date) MySQL = MySQL & " ORDER BY tbl_Loans.Auto_Date" 'Debug.Print MySQL Set rst = CurrentDb.OpenRecordset(MySQL) rst.MoveLast: rst.MoveFirst Rec = rst.RecordCount If Month(Date) = 7 Then tot = DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " And Year(Auto_Date) = " & Year(Date)) = 3000 If Not tot Then GetOther = False: Exit Function End If If Rec = 0 Then GetOther = False Else GetOther = True End If 'Debug.Print Adding rst.Close: Set rst = Nothing Exit Function err_GetOther: If Err.Number = 3021 Then 'Or Err.Number = 3061 Then 'ignor, No Record Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End

التعديل لم يفي بالغرض انطر الفيديو 2025-01-01_06-47-01.rar

استاذ الملف الي بحوزتك غير سنة الجهاز الى 2025 والشهر الى 01 وحاول منح امتياز للعامل كريمو 1 الذي تم قبول امتياز له خلال 2024 بحكم انه منخرط في 2024 اما دخول سنة 2025 فهو غير منخرط الى غاية انخراطه في شهر 3 هل الكود يعطيه الحق في الامتياز خلال شهر 1 و 2 و 3 من 2025 المطلوب تعديل الى غاية شهر 3 من كل سنة جديدة امل اني وفقت في توضيح المطلوب استاذي الكريم

شكر استاذي العزيز Barna على المساعدة الله يجعلها في ميزان حسناتك كما نتمنى من إدارة المنتدي تصحيح العنوان لانه به اخطاء