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

[SAROOK]

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

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

تحياتي 

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

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

تفضل 

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

 

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

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

[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

 

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

[SAROOK]

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

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

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

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

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

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

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

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

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

[agha4m]

  في 17‏/5‏/2024 at 20: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

Expand  

 

[agha4m]

  في 17‏/5‏/2024 at 20: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

Expand  

 

[agha4m]

السلام عليكم 

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

وبكون بالكود

تنسيق شرطي.zipFetching info...

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

[Foksh]

  في 25‏/5‏/2024 at 22:16, agha4m said:

السلام عليكم 

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

وبكون بالكود

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

Expand  

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

تنسيق شرطي.accdbFetching info...

[agha4m]

  في 26‏/5‏/2024 at 15:12, Foksh said:

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

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

Expand  

عفوا

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

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

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

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

[SAROOK]

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

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

تحياتي