السلام عليكم
عندي تقرير واريد ان اضع فيه هذه الصيغة
====
اذا (الحقل1) = (تم البيع)
فضع لون خط (الحقل2) = أخضر
غير ذلك
لون خط (الحقل2) = أسود
====
كيف اكتبها واضعها باي حدث؟
ياليت احد يرفق مثال
ولكم تحياتي
السلام عليكم
عندي تقرير واريد ان اضع فيه هذه الصيغة
====
اذا (الحقل1) = (تم البيع)
فضع لون خط (الحقل2) = أخضر
غير ذلك
لون خط (الحقل2) = أسود
====
كيف اكتبها واضعها باي حدث؟
ياليت احد يرفق مثال
ولكم تحياتي
الله يعطيك ألف ألف عافية
فعلا تعمل بكفائة 100%
واقدر اضع اكثر من شرط
=====================
اخت زهرة كيف اكتب هذه المعادلة في التقرير:
لاني حاولت اكتبها بس ما قدرت
Private Sub Report_Current() If Me!Text1 = "تم البيع" Then Me!Text2.Visible = False Else Me!Text2.Visible = True End If End Sub
هل الصيغة خطأ؟
====================
تحياتي لك
بسم الله الرحمن الرحيم
بعد أن قمت بتصميم المثال المرفق وقبل رفعه فوجئت بالرد السريع من الأخت زهرة -وهي سباقة دائما- وكنت قد عملت تغيير اللون بالكود وبالتنسيق الشرطي. إلا أنني حذفت التنسيق الشرطي لأنها فصلت فيه القول وبالصور أيضا. فأعدت تصميم التقرير بالكود فقط
وأضفت لك التقرير الثاني وفيه تصحيح للكود الذي كتبته ليقوم بإخفاء النص الثاني TEXT2 عندما يكون النص الآول" تم البيع" وهو ليس خطأ فقط يجب أن يكون في مقطع التفصيل وفي حدث "عند التنسيق" ليقوم بعمله
وحتى عند كتابة هذه السطور أتوقع أن الرد قد وصل.
واضافة إلى ما تقدم تستطيع باستخدام الكود أيضا تغيير خلفية النص ولون الإطار باستخدام
BackColor للخلفية و BorderColor للإطار مع أو بدلا من كلمة ForeColor
عبدالله عطيف
شكرا لك alotaif
الكود الان يعمل بكفائة
تحياتي لك
السلام عليكم
كيف اخلي التقرير يظهر لي فقط التي لم يتم بيعها؟
حاولت استحدام هذه الكود
لكن لم يعمل بكفائة
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
اخي الكريم ...
الكود الاخير يقوم بالاخفاء في جميع الحالات
الكود الصحيح هو...
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
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
السلام عليكم
اخي ايهاب ...
شكرا لك
الكود يعمل
لكن ما حذف الفراغات التي بين الصفوف
اريد أن يسردها تحت بعض
الملف مرفق
تحياتي لك
اي الكريم ...
اسف جدا للتاخير
لحذف الفراغات تم الاستغناء عن الكود والحل بطريقة مختلفة....تفضل
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…