مساعدة عند الاختيار بند معين من القائمة المنسدلة يتم تعطيل أزرار المعاينة للتقرير

[AboBahaa]

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

إخواني الكرام 

وضعت نموذج للعمل عليه حيث 

أريد عند اختيار بند معين من مربع تحرير وسرد يتم تعطيل أزرار معينة مثال :

1- عند اختيار من القائمة المنسدلة بالاشتراطات (مطابق للشروط) يتم تفعيل زرمعاينة الموافقة وتعطيل زر معاينة الاعتذار 

و

2- عند اختيار من القائمة المنسدلة بالاشتراطات (غير مطابق للشروط) يتم تفعيل زرمعاينة الاعتذار وتعطيل زر معاينة الاعتذار 

NM_DATE1.accdb

[SEMO.Pa3x]

عليكم السلام ورحمة الله وبركاته..

تفضل:

    If alaishtiratat = "مطابق للشروط" Then
        cmd_reject.Enabled = False
        cmd_accept.Enabled = True
    Else
        cmd_reject.Enabled = True
        cmd_accept.Enabled = False
    End If

غيرت أسماء الأزرار للقبول والرفض بـ cmd_accept , cmd_reject

NM_DATE1.accdb

[AboBahaa]

أخي الكريم 

SEMO.Pa3x

الدكتور حسنين (ابو مُهاب)

جزاك الله خيرا وبارك الله فيك 

تم تعديل يونيو 5, 2021 بواسطه AboBahaa

[AboBahaa]

أخي الكريم 

SEMO.Pa3x

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

    
    Then "مستثنى من الشروط" & "مطابق للشروط" = If alaishtirata 
        cmd_reject.Enabled = False
        cmd_accept.Enabled = True
    Else
        cmd_reject.Enabled = True
        cmd_accept.Enabled = False
    End If
    
End Sub

NM_DATE3.accdb

تم تعديل يونيو 5, 2021 بواسطه AboBahaa

[SEMO.Pa3x]

تفضل:

    If alaishtiratat = "مطابق للشروط" Or alaishtiratat = "مستثنى من الشروط" Then
        cmd_reject.Enabled = False
        cmd_accept.Enabled = True
    Else
        cmd_reject.Enabled = True
        cmd_accept.Enabled = False
    End If

 

[AboBahaa]

أخي الكريم 

SEMO.Pa3x

جعله الله في ميزان حسناتك 

قمت بالتجربة على القاعدة عندي وتم المطلوب 

جزاك الله خيرا على الرد السريع🌹