اذهب الي المحتوي
أوفيسنا

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


pingo22
إذهب إلى أفضل إجابة Solved by Eng.Qassim,

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

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

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

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

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

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

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

 

Capture77.JPG

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

image.png.bea5d7881288fe501f59116000450a7b.png

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)

 

تم تعديل بواسطه Eng.Qassim
  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information