الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ماهي كيفية تغير لون الخط في التقرير اذا كانت الجملة تعتمد على جملة أخرى؟

بدأه أبو ليمونه في 3 أبريل 2008 · 8 رد · 1,015 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي تقرير واريد ان اضع فيه هذه الصيغة

====

اذا (الحقل1) = (تم البيع)

فضع لون خط (الحقل2) = أخضر

غير ذلك

لون خط (الحقل2) = أسود

====

كيف اكتبها واضعها باي حدث؟

ياليت احد يرفق مثال

ولكم تحياتي

#3

الله يعطيك ألف ألف عافية

فعلا تعمل بكفائة 100%

واقدر اضع اكثر من شرط

=====================

اخت زهرة كيف اكتب هذه المعادلة في التقرير:

لاني حاولت اكتبها بس ما قدرت

Private Sub Report_Current()
If Me!Text1 = "تم البيع" Then
Me!Text2.Visible = False
Else
Me!Text2.Visible = True
End If
End Sub

هل الصيغة خطأ؟

====================

تحياتي لك

#4

بسم الله الرحمن الرحيم

بعد أن قمت بتصميم المثال المرفق وقبل رفعه فوجئت بالرد السريع من الأخت زهرة -وهي سباقة دائما- وكنت قد عملت تغيير اللون بالكود وبالتنسيق الشرطي. إلا أنني حذفت التنسيق الشرطي لأنها فصلت فيه القول وبالصور أيضا. فأعدت تصميم التقرير بالكود فقط

وأضفت لك التقرير الثاني وفيه تصحيح للكود الذي كتبته ليقوم بإخفاء النص الثاني TEXT2 عندما يكون النص الآول" تم البيع" وهو ليس خطأ فقط يجب أن يكون في مقطع التفصيل وفي حدث "عند التنسيق" ليقوم بعمله

وحتى عند كتابة هذه السطور أتوقع أن الرد قد وصل.

واضافة إلى ما تقدم تستطيع باستخدام الكود أيضا تغيير خلفية النص ولون الإطار باستخدام

BackColor للخلفية و BorderColor للإطار مع أو بدلا من كلمة ForeColor

fontcolor.rar

عبدالله عطيف

#5

شكرا لك alotaif

الكود الان يعمل بكفائة

تحياتي لك

#6

السلام عليكم

كيف اخلي التقرير يظهر لي فقط التي لم يتم بيعها؟

حاولت استحدام هذه الكود

لكن لم يعمل بكفائة

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me!Text1 = "تم البيع" Then
Me!Text1.Visible = False
Me!Text2.Visible = False
Else
Me!Text1.Visible = False
Me!Text2.Visible = False
End If
End Sub

تحياتي لكم

تم تعديل هذه المشاركة بواسطة أبو ليمونه في 4 أبريل 2008 في 21:10

#7

اخي الكريم ...

الكود الاخير يقوم بالاخفاء في جميع الحالات

الكود الصحيح هو...

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me!Text1 = "تم البيع" Then
Me!Text1.Visible = True
Me!Text2.Visible = True
Else
Me!Text1.Visible = False
Me!Text2.Visible = False
End If
End Sub

طبتم واهتديتم :)

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

%E1%E1%E5%20%CB%E3%20%E1%E1%CA%C7%D1%ED%CE.jpg

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

#8

السلام عليكم

اخي ايهاب ...

شكرا لك

الكود يعمل

لكن ما حذف الفراغات التي بين الصفوف

اريد أن يسردها تحت بعض

الملف مرفق

تحياتي لك

Report2003.zip

#9

اي الكريم ...

اسف جدا للتاخير

لحذف الفراغات تم الاستغناء عن الكود والحل بطريقة مختلفة....تفضل

Report2003.zip

طبتم واهتديتم :)

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

%E1%E1%E5%20%CB%E3%20%E1%E1%CA%C7%D1%ED%CE.jpg

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…