سؤال هام في التنسيق الشرطي

[pingo22]

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

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

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

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

2- عندما اريد تحديد اكثر من كلمة في مربع واحد أي إذا ظهرت أي من هذه الكلمات يتحول لون المربع مثل (اعتذار ، غير مؤكد ، سفر) 

مرفق نسخة من البرنامج وصورة للتوضيح

 

جدول مواعيد.rar

[Eng.Qassim]

وعليكم السلام

اجعل التنسيق الشرطي هكذا

InStr([notes2];"اعتذار")

او يمكن عمل موديول يتم استدعاءه عند فتح النموذج مثلا ...لان طريقة التنسيق مطولة

Public Sub colCtrlReq(frm As Form)
Dim setColour As String
setColour = RGB(175, 175, 175)
Dim ctl As Control
For Each ctl In frm
        If ctl.ControlType = acTextBox _
            Or ctl.ControlType = acListBox Then
            If InStr(ctl, "اعتذار") <> 0 Then
                ctl.BackColor = setColour
            End If
        End If
Next ctl
Set ctl = Nothing
End Sub

ويتم استدعاءه بهذه الطريقة

Call colCtrlReq(Me)

 

تم تعديل مايو 19, 2022 بواسطه Eng.Qassim

[pingo22]

أخي العزيز مهندس/قاسم

متشكر لحضرتك جداااا وزادك الله من العلم كي تنفع الناس دائما

[Eng.Qassim]

انا اللي بشكر حضرتك لانك جعلتني احصل على الدعاء

بالتوفيق يارب

[dr_bioman]

رجاءا ... ممكن البرنامج بعد التعديل