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

[SAROOK]

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

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

تحياتي 

تلوين النصوص الفارغة.mdb

[محمد احمد لطفى]

تفضل 

قمت بالتنفيذ فى حقل name1  نفذ نفس الفكرة فى باقى الحقول
بالتوفيق

 

تلوين النصوص الفارغة.mdb

تم تعديل مايو 17 بواسطه محمد احمد لطفى

[Foksh]

هل هذا طلبك أخي الكريم ,,

ضع الكود في حدث في الحالي للنموذج ..

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If IsNull(ctl.Value) Or ctl.Value = "" Then
                ctl.BackColor = vbYellow
            Else
                ctl.BackColor = vbWhite
            End If
        End If
    Next ctl

 

تلوين النصوص الفارغة.mdb

[SAROOK]

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

تسلم بشمهندس محمد سلمت يداك

فعلا هذا هو المطلوب 

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

اشكرك بشمهندس Foksh  حفظك الله

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

في هذا النموذج حقول محددة فقط احتاج ان يعمل فيها الكود 

اشكرك مرة اخري بشمهندس

تم تعديل مايو 18 بواسطه SAROOK

[agha4m]

في 17‏/5‏/2024 at 23:55, Foksh said:

هل هذا طلبك أخي الكريم ,,

ضع الكود في حدث في الحالي للنموذج ..

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If IsNull(ctl.Value) Or ctl.Value = "" Then
                ctl.BackColor = vbYellow
            Else
                ctl.BackColor = vbWhite
            End If
        End If
    Next ctl

 

تلوين النصوص الفارغة.mdb 352 kB · 22 downloads

 

[agha4m]

في 17‏/5‏/2024 at 23:55, Foksh said:

هل هذا طلبك أخي الكريم ,,

ضع الكود في حدث في الحالي للنموذج ..

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If IsNull(ctl.Value) Or ctl.Value = "" Then
                ctl.BackColor = vbYellow
            Else
                ctl.BackColor = vbWhite
            End If
        End If
    Next ctl

 

تلوين النصوص الفارغة.mdb 352 kB · 22 downloads

 

[agha4m]

السلام عليكم 

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

وبكون بالكود

تنسيق شرطي.zip

تم تعديل مايو 25 بواسطه agha4m

[Foksh]

16 ساعات مضت, agha4m said:

السلام عليكم 

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

وبكون بالكود

تنسيق شرطي.zip 52.46 kB · 4 downloads

تفضل أخي @agha4m طلبك ، رغم أن صاحب الموضوع @SAROOK لم يتابع بإغلاقه الموضوع (للأسف) عند حصوله على إجابته باختيار إجابة الأستاذ @محمد احمد لطفى أفضل إجابة .

تنسيق شرطي.accdb

[agha4m]

2 ساعات مضت, Foksh said:

تفضل أخي @agha4m طلبك ، رغم أن صاحب الموضوع @SAROOK لم يتابع بإغلاقه الموضوع (للأسف) عند حصوله على إجابته باختيار إجابة الأستاذ @محمد احمد لطفى أفضل إجابة .

تنسيق شرطي.accdb 452 kB · 1 download

عفوا

ليس هذا ما أريد 

هنا تم اخفاءالقيم

اربد إظهار السجل فارغ او بجعل لون الخط ابيض

ثم السجل الذي به قيم ة يكون خلفية ملونة (كما في التقرير الأول بالتنسيق الشرطي)

[SAROOK]

ارجو ان تسامحوني وتعذروني الزهايمر يفعل الافاعيل وان يسامحني البشمهندس محمد احمد لطفي 

واشكر اخي بشمهندس  foksh للتنبيه

تحياتي