تنسيق الشرطي في نموذج الاكسس

[Radwan0]

السلام عليكم اخواني الكرام

 

هل من كريقه لتنسيق شرطي بحيث بادخال شرط واحد يقوم بتلوين جميع الحقول الفارغه ؟ 

دون الدخول الى كل حقل بمفرده وادخال تنسيق شرطي له

انما لجميع الحقول في كبسة زر واحده

[ابو البشر]

14 دقائق مضت, RaDwAn00 said:

السلام عليكم اخواني الكرام

 

هل من كريقه لتنسيق شرطي بحيث بادخال شرط واحد يقوم بتلوين جميع الحقول الفارغه ؟ 

دون الدخول الى كل حقل بمفرده وادخال تنسيق شرطي له

انما لجميع الحقول في كبسة زر واحده

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

[Radwan0]

9 دقائق مضت, ابو البشر said:

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

نعم ياغالي 

تلوين كل الحقول في حال كانت فارغه فقط

اما بحال كانت مليئة فتاخذ اللون الازرق على سبيل المثال

[ابو البشر]

منذ ساعه, RaDwAn00 said:

نعم ياغالي 

تلوين كل الحقول في حال كانت فارغه فقط

اما بحال كانت مليئة فتاخذ اللون الازرق على سبيل المثال

عند حدث عداد الوقت ضع هذا الحدث واعطي العداد 1000

    For Each ctl In Me.Form.Controls
        If ctl.ControlType = acTextBox Then
        If IsNull(ctl) Then
    For Each ctl1 In Me.Form.Controls
            
           ctl.BackColor = vbRed
    Next ctl1
    Else
    ctl.BackColor = vbYellow
        End If
        End If
    Next ctl

 

[Radwan0]

شكرا اخي الكريم

الكود لم يفيدني ليس هذا هو المطلوب

[Moosak]

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

سوف تنجح طريقة الكود إذذا وضعتها في حدث (في الحالي) وربما ستحاج إلى تكراره في حدث ( عند التغيير ) وحدث ( بعد التحديث) .. و   و   و   و ...

وبهذي الطريقة ما راح نخلص  !!

وبترجع لنفس دوامة تكرار الكود في أكثر من موضع ..

الأسهل أنك تختار أحد مربعات النص ثم تطبق عليه التنسيق الشرطي .. بعدها تنقر (نقرا مزدوجا) على أداة نسخ التنسيق أو Format Painter 

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

هذي أسهل طريقة أعرفها لعمل ذلك والله أعلم ..