منح قرض مالي او أجهزة كهرومنزلية بشرط

**طاهر اوفيسنا** · يناير 17

السلام عليكم اساتذة

تعديلا على الموضوع

المطلوب التعديل على هذا الكود علما انه مخصص للمنح والتعويضات فقط

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

Public Function CheckInkhirat(ByRef ID As Integer) As String
    On Error GoTo err_CheckInkhirat

    Dim yearNow As Integer, totalPaid As Currency
    Dim paymentMarch As Boolean, paymentJuly As Boolean
    Dim t As Integer, t1 As Integer
    Dim result_haj As Variant, latestDate As Variant
    Dim todayDate As Date, yearsDifference As Long
    Dim menhaID As Integer, eligibilityPeriod As Integer
    Dim menhaName As String, menhaType As String
    Dim message As String

    ' تحديد السنة الحالية
    If Month(Date) < 3 Then
        yearNow = Year(Date) - 1
        t = 1
    Else
        yearNow = Year(Date)
        t = 2
    End If

    ' الحصول على تاريخ اليوم
    todayDate = Date

    ' إجمالي المبلغ المدفوع
    totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Loan_ID = 0"), 0)

    ' جلب معرف المنحة من النموذج والتحقق من نوع الامتياز
    menhaID = 0
    Select Case [Forms]![FrmMenah]![Etar]
        Case "المنح العائلية"
            menhaID = [Forms]![FrmMenah]![Frm_sub].[Form]![CmdMenha]
            latestDate = Nz(DMax("Menha_Date", "[Mena7]", "[EmployeeID] = " & ID & " AND [Menha_ID] = " & menhaID), #1/1/1900#)

        Case "التعويضات الطبية"
            menhaID = [Forms]![FrmMenah]![Frm_sub].[Form]![cmdSanitaire]
            latestDate = Nz(DMax("[Sanitaire_Date]", "[Sanitaire]", _
                       "[EmployeeID] = " & [Forms]![FrmMenah]![EmployeeID] & _
                       " And [Nom_Beneficiaire] = '" & Replace([Forms]![FrmMenah]![Frm_sub].[Form]![Nom_Beneficiaire], "'", "''") & "'" & _
                       " And [Sanitaire_ID] = " & [Forms]![FrmMenah]![Frm_sub].[Form]![cmdSanitaire]), #1/1/1900#)
    End Select

    ' جلب اسم المنحة ونوعها وفترة الاستحقاق من الجدول
    menhaName = Nz(DLookup("Menha_Name", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & [Forms]![FrmMenah]![Etar] & "'"), "")
    menhaType = Nz(DLookup("Menha_Type", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & [Forms]![FrmMenah]![Etar] & "'"), "")
    
   eligibilityPeriod = Nz(DLookup("Eligibility_Period", "tbl_MenhaRules", "Menha_ID = " & menhaID & _
                                  " AND Menha_Type = '" & menhaType & "' AND Eligibility_Period > 0"), 0)
     
    ' التحقق إذا كانت هناك فترة استحقاق مسجلة
    If eligibilityPeriod > 0 Then
        yearsDifference = DateDiff("yyyy", latestDate, todayDate)
        t1 = IIf(yearsDifference < eligibilityPeriod, 1, 2)
    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 totalPaid = 3000 Then
        message = "عزيزي المنخرط(ة)، يمكنك الاستفادة من " & menhaType & ": " & menhaName & "."

        If t = 1 Then
            message = message & " لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً."
        ElseIf t = 2 Then
            message = message & " لأنك دفعت مبلغ الانخراط كاملاً."
            If paymentMarch And paymentJuly Then
                message = message & " على دفعتين."
            End If
        End If

        ' التحقق من آخر تاريخ لاستفادة المنحة
If Not IsNull(latestDate) And eligibilityPeriod > 0 Then
    If eligibilityPeriod = 100 Then
        ' إذا كانت فترة الاستحقاق 100، تكون المنحة لمرة واحدة فقط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "هذه المنحة يتم الاستفادة منها مرة واحدة فقط."
    ElseIf t1 = 1 Then
        ' في حالة الرفض بسبب فترة الاستحقاق
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لقد استفدت من هذه المنحة بتاريخ: " & Format(latestDate, "dd/mm/yyyy") & "." & vbNewLine & _
                  "يجب الانتظار لمدة " & eligibilityPeriod & " سنة قبل الاستفادة مجددًا."
    Else
        ' في حالة القبول بعد انتهاء فترة الاستحقاق
        message = message & vbNewLine & "يمكنك الاستفادة من المنحة مجددًا."
    End If
End If
    Else
        ' في حالة عدم دفع مبلغ الانخراط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لم تقم بدفع مبلغ الانخراط بالكامل المطلوب للاستفادة."
    End If

    ' إرجاع الرسالة
    CheckInkhirat = message
    Exit Function

err_CheckInkhirat:
    MsgBox "خطأ رقم " & Err.Number & ": " & Err.Description, vbCritical, "خطأ"
    CheckInkhirat = "حدث خطأ أثناء التحقق من بيانات الانخراط."
End Function

671920493_.png.794da6bd8e3375d0220914a5cd9b80d8.png

BAR_A(2025).rar

**طاهر اوفيسنا** · يناير 18

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

**طاهر اوفيسنا** · يناير 18

01- في نظري يتم وضع هذا الكود قبل كود المنحة بدالة IF ولكن المشكلة اين يوضع وكيف يتم التنسيق بينهما ( اي لما ندخل من فورم القروض ينتقل الكود مباشرة الى القروض واذا دخلنا من فورم المنح يذهب مباشرة الى كود المنح)

Select Case [Forms]![FrmCridi]![Etar]
Case "القروض المالية"
CridiID = [Forms]![FrmCridi]![Frm_sub].[Form]![CmdCridi]
latestDate = Nz(DMax("Cridi_Date", "[Cridi]", "[EmployeeID] = " & ID & " AND [Cridi_ID] = " & CridiID), #1/1/1900#)

Case "الأدوات الكهرومنزلية"
ElecID = [Forms]![FrmElec]![Frm_sub].[Form]![CmdElec]
latestDate = Nz(DMax("Elec_Date", "[ Elec]", "[EmployeeID] = " & ID & " AND [Elec_ID] = " & ElecID), #1/1/1900#)

02- وضع الاستاذ Barna هذا الشرط في الكود غير مفهوم

' جلب معرف المنحة من النموذج والتحقق من نوع الامتياز
    menhaID = 0

03 - اساتذتي الي يعرف كيف يتم التعديل رجاءا لايبخل علينا بالحل

04- اي استفسار غير مفهوم فالعبد لله موجود للتوضيح ماهو مطلوب

تم تعديل يناير 18 بواسطه كريمو2

**AbuuAhmed** · يناير 18

يعمل هذا النموذج بشرط أن يكون نموذج FrmMenah مفتوحا، وحتى تقوم بالفحص افتح هذا النموذج أولا ثم افتح النموذج FrmCridi المحتوي على المشكلة.
هناك كود في الموقع ليفحص لك أي نموج إذا كان مفتوحا أو لا، استفد منه بمنع فتح هذا النموذج إذا كان نموذج FrmMenah غير مفتوح.

المشكلة في دالة CheckInkhirat حيث تحتاج إلى قيمة مأخوذة من النموذج FrmMenah.

**طاهر اوفيسنا** · يناير 19

8 ساعات مضت, AbuuAhmed said:

المشكلة في دالة CheckInkhirat حيث تحتاج إلى قيمة مأخوذة من النموذج FrmMenah.

شكرا استاد ابو أحمد على الاهتمام هذه قيمتها تؤخذ من tbl_loans

totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Loan_ID = 0"), 0)

تم تعديل يناير 19 بواسطه كريمو2

**AbuuAhmed** · يناير 19

أنا كنت أقصد هذا السطر وأخرى كذلك في هذه الدالة:

    Select Case [Forms]![FrmMenah]![Etar]

عموما أنا عدلت في الدالة بحيث تعمل مع النموذجين FrmMenah و FrmCridi
عموما تركيزي على عمل الدالة بدون أخطاء برمجية وليس لجلب القيم المطلوبة
أعذري أنا دوري انتهى عند هذا الحد بسبب مشكلة صحية وهذا الأمر يتعبني ويصدع رأسي.

BAR_A(2025)_01.rar

**طاهر اوفيسنا** · يناير 19

3 ساعات مضت, AbuuAhmed said:

أعذري أنا دوري انتهى عند هذا الحد بسبب مشكلة صحية وهذا الأمر يتعبني ويصدع رأسي.

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

تم تعديل يناير 19 بواسطه كريمو2

**AbuuAhmed** · يناير 19

التعديلات في دالة CheckInkhirat واستدعائها في المرفق.

CheckInkhirat.xlsx

**طاهر اوفيسنا** · يناير 19

7 ساعات مضت, AbuuAhmed said:

التعديلات في دالة CheckInkhirat واستدعائها في المرفق.

شكرا استاذ AbuuAhmed

ربي يشفيك ويعافيك

**طاهر اوفيسنا** · الثلاثاء at 22:51

في 19‏/1‏/2025 at 08:39, AbuuAhmed said:

عموما أنا عدلت في الدالة بحيث تعمل مع النموذجين FrmMenah و FrmCridi
عموما تركيزي على عمل الدالة بدون أخطاء برمجية وليس لجلب القيم المطلوبة
أعذري أنا دوري انتهى عند هذا الحد بسبب مشكلة صحية وهذا الأمر يتعبني ويصدع رأسي.

استاذ ابواحمد حياك وتقبل الله صيامك وقيامك

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

اي وقعت مشكلة عند الشروط في فورم FrmMenah وعند الغاء التعديل الذي تم من حضرتك تنفذ الدالة الشرط بشكل عادي

فياريت اعادة النظر في تعديل الكود

الكود الصحيح من غير (FrmCridi ) المعدل من طرف الاستاذ Barna هو

Public Function CheckInkhirat(ByRef ID As Integer) As String
    On Error GoTo err_CheckInkhirat

    Dim yearNow As Integer, totalPaid As Currency
    Dim paymentMarch As Boolean, paymentJuly As Boolean
    Dim t As Integer, t1 As Integer
    Dim result_haj As Variant, latestDate As Variant
    Dim todayDate As Date, yearsDifference As Long
    Dim menhaID As Integer, eligibilityPeriod As Integer
    Dim menhaName As String, menhaType As String
    Dim message As String

    ' تحديد السنة الحالية
    If Month(Date) < 3 Then
        yearNow = Year(Date) - 1
        t = 1
    Else
        yearNow = Year(Date)
        t = 2
    End If

    ' الحصول على تاريخ اليوم
    todayDate = Date

    ' إجمالي المبلغ المدفوع
    totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Loan_ID = 0"), 0)

    ' جلب معرف المنحة من النموذج والتحقق من نوع الامتياز
    menhaID = 0
    Select Case [Forms]![FrmMenah]![Etar]
        Case "المنح العائلية"
            menhaID = [Forms]![FrmMenah]![Frm_sub].[Form]![CmdMenha]
            latestDate = Nz(DMax("Menha_Date", "[Mena7]", "[EmployeeID] = " & ID & " AND [Menha_ID] = " & menhaID), #1/1/1900#)

        Case "التعويضات الطبية"
            menhaID = [Forms]![FrmMenah]![Frm_sub].[Form]![cmdSanitaire]
            latestDate = Nz(DMax("[Sanitaire_Date]", "[Sanitaire]", _
                       "[EmployeeID] = " & [Forms]![FrmMenah]![EmployeeID] & _
                       " And [Nom_Beneficiaire] = '" & Replace([Forms]![FrmMenah]![Frm_sub].[Form]![Nom_Beneficiaire], "'", "''") & "'" & _
                       " And [Sanitaire_ID] = " & [Forms]![FrmMenah]![Frm_sub].[Form]![cmdSanitaire]), #1/1/1900#)

    End Select

    ' جلب اسم المنحة ونوعها وفترة الاستحقاق من الجدول
    menhaName = Nz(DLookup("Menha_Name", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & [Forms]![FrmMenah]![Etar] & "'"), "")
    menhaType = Nz(DLookup("Menha_Type", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & [Forms]![FrmMenah]![Etar] & "'"), "")
    
   eligibilityPeriod = Nz(DLookup("Eligibility_Period", "tbl_MenhaRules", "Menha_ID = " & menhaID & _
                                  " AND Menha_Type = '" & menhaType & "' AND Eligibility_Period > 0"), 0)
     
    ' التحقق إذا كانت هناك فترة استحقاق مسجلة
    If eligibilityPeriod > 0 Then
'        yearsDifference = DateDiff("yyyy", latestDate, todayDate)
        yearsDifference = Int(DateDiff("d", [latestDate], todayDate) / 365.25)
        t1 = IIf(yearsDifference < eligibilityPeriod, 1, 2)
    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 totalPaid = 3000 Then
        message = "عزيزي المنخرط(ة)، يمكنك الاستفادة من " & menhaType & ": " & menhaName & "."

        If t = 1 Then
            message = message & " لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً."
        ElseIf t = 2 Then
            message = message & " لأنك دفعت مبلغ الانخراط كاملاً."
            If paymentMarch And paymentJuly Then
                message = message & " على دفعتين."
            End If
        End If

        ' التحقق من آخر تاريخ لاستفادة المنحة
If Not IsNull(latestDate) And eligibilityPeriod > 0 Then
    If eligibilityPeriod = 100 Then
        ' إذا كانت فترة الاستحقاق 100، تكون المنحة لمرة واحدة فقط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "هذه المنحة يتم الاستفادة منها مرة واحدة فقط."
    ElseIf t1 = 1 Then
        ' في حالة الرفض بسبب فترة الاستحقاق
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لقد استفدت من هذه المنحة بتاريخ: " & Format(latestDate, "dd/mm/yyyy") & "." & vbNewLine & _
                  "يجب الانتظار لمدة " & eligibilityPeriod & " سنة قبل الاستفادة مجددًا."
    Else
        ' في حالة القبول بعد انتهاء فترة الاستحقاق
        message = message & vbNewLine & "يمكنك الاستفادة من المنحة مجددًا."
    End If
End If
    Else
        ' في حالة عدم دفع مبلغ الانخراط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لم تقم بدفع مبلغ الانخراط بالكامل المطلوب للاستفادة."
    End If

    ' إرجاع الرسالة
    CheckInkhirat = message
    Exit Function

err_CheckInkhirat:
    MsgBox "خطأ رقم " & Err.Number & ": " & Err.Description, vbCritical, "خطأ"
    CheckInkhirat = "حدث خطأ أثناء التحقق من بيانات الانخراط."
End Function

واستدعائها

    result = CheckInkhirat(emp)

الكود المعدل (به مشكلة شرط النظارات الطبية ) من طرف الاستاذ ابو احمد هو

Public Function CheckInkhirat(ByRef ID As Integer, Optional FrmName As String = "FrmMenah") As String
    On Error GoTo err_CheckInkhirat

    Dim yearNow As Integer, totalPaid As Currency
    Dim paymentMarch As Boolean, paymentJuly As Boolean
    Dim t As Integer, t1 As Integer
    Dim result_haj As Variant, latestDate As Variant
    Dim todayDate As Date, yearsDifference As Long
    Dim menhaID As Integer, eligibilityPeriod As Integer
    Dim menhaName As String, menhaType As String
    Dim message As String
    Dim Etar As String
    Dim Frm As Form

    Set Frm = Forms(FrmName)
    Etar = Frm.Etar


    ' تحديد السنة الحالية
    If Month(Date) < 3 Then
        yearNow = Year(Date) - 1
        t = 1
    Else
        yearNow = Year(Date)
        t = 2
    End If

    ' الحصول على تاريخ اليوم
    todayDate = Date

    ' إجمالي المبلغ المدفوع
    totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", "EmployeeID = " & ID & " AND Year(Auto_Date) = " & yearNow & " AND Loan_ID = 0"), 0)

    ' جلب معرف المنحة من النموذج والتحقق من نوع الامتياز
    menhaID = 0
    Select Case Itar
        Case "المنح العائلية"
            menhaID = Frm.Frm_sub.Form.CmdMenha
            latestDate = Nz(DMax("Menha_Date", "[Mena7]", "[EmployeeID] = " & ID & " AND [Menha_ID] = " & menhaID), #1/1/1900#)

        Case "التعويضات الطبية"
            menhaID = Frm.Frm_sub.Form.cmdSanitaire
            latestDate = Nz(DMax("[Sanitaire_Date]", "[Sanitaire]", _
                       "[EmployeeID] = " & Frm.EmployeeID & _
                       " And [Nom_Beneficiaire] = '" & Replace(Frm.Frm_sub.Form.Nom_Beneficiaire, "'", "''") & "'" & _
                       " And [Sanitaire_ID] = " & Frm.Frm_sub.Form.cmdSanitaire), #1/1/1900#)
    End Select

    ' جلب اسم المنحة ونوعها وفترة الاستحقاق من الجدول
    menhaName = Nz(DLookup("Menha_Name", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & Etar & "'"), "")
    menhaType = Nz(DLookup("Menha_Type", "tbl_MenhaRules", "Menha_ID = " & menhaID & " AND Menha_Type = '" & Etar & "'"), "")
    
   eligibilityPeriod = Nz(DLookup("Eligibility_Period", "tbl_MenhaRules", "Menha_ID = " & menhaID & _
                                  " AND Menha_Type = '" & menhaType & "' AND Eligibility_Period > 0"), 0)
     
    ' التحقق إذا كانت هناك فترة استحقاق مسجلة
    If eligibilityPeriod > 0 Then
'        yearsDifference = DateDiff("yyyy", latestDate, todayDate)
        yearsDifference = Int(DateDiff("d", [latestDate], todayDate) / 365.25)
        t1 = IIf(yearsDifference < eligibilityPeriod, 1, 2)
    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 totalPaid = 3000 Then
        message = "عزيزي المنخرط(ة)، يمكنك الاستفادة من " & menhaType & ": " & menhaName & "."

        If t = 1 Then
            message = message & " لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً."
        ElseIf t = 2 Then
            message = message & " لأنك دفعت مبلغ الانخراط كاملاً."
            If paymentMarch And paymentJuly Then
                message = message & " على دفعتين."
            End If
        End If

        ' التحقق من آخر تاريخ لاستفادة المنحة
If Not IsNull(latestDate) And eligibilityPeriod > 0 Then
    If eligibilityPeriod = 100 Then
        ' إذا كانت فترة الاستحقاق 100، تكون المنحة لمرة واحدة فقط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "هذه المنحة يتم الاستفادة منها مرة واحدة فقط."
    ElseIf t1 = 1 Then
        ' في حالة الرفض بسبب فترة الاستحقاق
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لقد استفدت من هذه المنحة بتاريخ: " & Format(latestDate, "dd/mm/yyyy") & "." & vbNewLine & _
                  "يجب الانتظار لمدة " & eligibilityPeriod & " سنة قبل الاستفادة مجددًا."
    Else
        ' في حالة القبول بعد انتهاء فترة الاستحقاق
        message = message & vbNewLine & "يمكنك الاستفادة من المنحة مجددًا."
    End If
End If
    Else
        ' في حالة عدم دفع مبلغ الانخراط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لم تقم بدفع مبلغ الانخراط بالكامل المطلوب للاستفادة."
    End If

    ' إرجاع الرسالة
    CheckInkhirat = message
    Set Frm = Nothing
    Exit Function

err_CheckInkhirat:
    MsgBox "خطأ رقم " & Err.Number & ": " & Err.Description, vbCritical, "خطأ"
    CheckInkhirat = "حدث خطأ أثناء التحقق من بيانات الانخراط."
End Function

واستدعائها

    result = CheckInkhirat(emp, Me.Parent.NAME)

**طاهر اوفيسنا** · الثلاثاء at 23:24

مالك استاذ Foksh متعجب !!!!!

فعلا وقتها نظرت للتعديل القروض فقط ولم اكن اعلم ان التعديل يعمل مشكلة مع فوم المنح

واليوم عند اعطاء المنح وجدت مشكلة في موظف لديه استفادة من نظارات طبية بتاريخ : 2023/10/19

وتقدم بطلب ثاني للتعويض بتاريح 2025/03/18 وهو لم يستوفي الـ 2 سنة كاملة

فالكود وافق على اعطائه التعويض ومن هنا تفطنت بان الكود لا يشتغل بصحيح

**طاهر اوفيسنا** · الأربعاء at 09:06

10 ساعات مضت, طاهر اوفيسنا said:
Select Case Itar
        Case "المنح العائلية"

لقد اكتشفت الخطأ في كلمة Itar و الاصح Etar

**Foksh** · الأربعاء at 10:13

منذ ساعه, طاهر اوفيسنا said:

لقد اكتشفت الخطأ في كلمة Itar و الاصح Etar

:clapping:

هل تمت التجربة بأكثر من احتمال !!!!!!!!!

**طاهر اوفيسنا** · الأربعاء at 10:51

23 دقائق مضت, Foksh said:

هل تمت التجربة بأكثر من احتمال !!!!!!!!!

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

  If t = 1 Then                                             message = message & " لأنك دفعت مبلغ الانخراط الخاص بالسنة الماضية كاملاً."
        ElseIf t = 2 Then
            message = message & " لأنك دفعت مبلغ الانخراط كاملاً."
            If paymentMarch And paymentJuly Then
                message = message & " على دفعتين."
            End If
        End If

        ' التحقق من آخر تاريخ لاستفادة المنحة
If Not IsNull(latestDate) And eligibilityPeriod > 0 Then
    If eligibilityPeriod = 100 Then
        ' إذا كانت فترة الاستحقاق 100، تكون المنحة لمرة واحدة فقط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "هذه المنحة يتم الاستفادة منها مرة واحدة فقط."
    ElseIf t1 = 1 Then
        ' في حالة الرفض بسبب فترة الاستحقاق
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لقد استفدت من هذه المنحة بتاريخ: " & Format(latestDate, "dd/mm/yyyy") & "." & vbNewLine & _
                  "يجب الانتظار لمدة " & eligibilityPeriod & " سنة قبل الاستفادة مجددًا."
    Else
        ' في حالة القبول بعد انتهاء فترة الاستحقاق
        message = message & vbNewLine & "يمكنك الاستفادة من المنحة مجددًا."
    End If
End If
    Else
        ' في حالة عدم دفع مبلغ الانخراط
        message = "عزيزي المنخرط(ة)، لا يمكنك الاستفادة من " & menhaType & ": " & menhaName & "." & vbNewLine & _
                  "لم تقم بدفع مبلغ الانخراط بالكامل المطلوب للاستفادة."

مانعرف مامحلها من العمل او متى يذهب الكود اليها بالرغم من تجربتي في اكثر الحالات

**ناقل** · بالامس في 15:17

في 19‏/3‏/2025 at 13:51, طاهر اوفيسنا said:

مانعرف مامحلها من العمل او متى يذهب الكود اليها بالرغم من تجربتي في اكثر الحالات

اخي @طاهر اوفيسنا ممكن اخر مثال تمت عليه التعديلات ... وماهو المطلوب بالضبط للعمل عليه

**طاهر اوفيسنا** · بالامس في 19:07

3 ساعات مضت, ناقل said:

ممكن اخر مثال تمت عليه التعديلات ... وماهو المطلوب بالضبط للعمل عليه

شكر استاذ ناقل على الاهتمام

تقبل الله صيامك وقيامك بمزيدا من الاجر والثواب

المطلوب في تنسيق ظهور الميساجات طبقا للصورة السفلى

2025.png.543ca344c84cc23fd18143284055f52a.png

BAR_A_20250320.rar

تم تعديل بالامس في 19:09 بواسطه طاهر اوفيسنا

**Barna** · منذ 4 ساعات

20 ساعات مضت, طاهر اوفيسنا said:

المطلوب في تنسيق ظهور الميساجات طبقا للصورة السفلى

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

BAR_AِِِA_20250320.mdb

**طاهر اوفيسنا** · منذ 2 ساعات

في 21‏/3‏/2025 at 16:14, Barna said:

جرب المرفق وحاول كل الاحتمالات للتاكد من سلامة الكود

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

جربت الكود بعد مارس 2025 وبعد جويلية 2025

حسب التعديل الصحيح غير في كريمو1 و كريمو 2

والاخطاء في :

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

كريمو4 لايستفيد عند دخول شهر مارس وبعده

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

كريمو6 يكون مثل كريمو2 ولكن الميساج يتغير بشهر جويلية

آمل ان اجد حلا في القريب العاجل

20250321.png.6b0591121fc0b4a05da856adfc8a6032.png

تم تعديل منذ 1 ساعه بواسطه طاهر اوفيسنا

تسجيل الدخول

منح قرض مالي او أجهزة كهرومنزلية بشرط

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

طاهر اوفيسنا

طاهر اوفيسنا

طاهر اوفيسنا

AbuuAhmed

طاهر اوفيسنا

AbuuAhmed

طاهر اوفيسنا

AbuuAhmed

طاهر اوفيسنا

طاهر اوفيسنا

طاهر اوفيسنا

طاهر اوفيسنا

Foksh

طاهر اوفيسنا

ناقل

طاهر اوفيسنا

Barna

طاهر اوفيسنا

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information