السلام عليكم ورحمة الله وبركاته
إخواني الأعضاء ... المحترمين
في التقرير المرفق توجد سجلات مكررة ... أريد أن تظهر مرة باللون الأصفر (على حسب رقم الملف File NO) ومرة باللون الأزرق
مثلا السجل رقم 55 مكرر أريد أن تكون لونها بالأصفر الفاتح
ويوجد سجلات مكررة رقم 100 أريد أن تظهر لونها باللون الأزرق الفاتح
ويوجد سجلات مكررة رقم 105 أريدها أن تظهر باللون الأصفر الفاتح ...
وهكذا مرة أصفر ومرة أزرق
وألف شكر مقدما
تم تعديل هذه المشاركة بواسطة أيمن الزعبي في 7 مايو 2012 في 12:08
وعليكم السلام اخي " أيمن الزعبي"
اليك طريقة حل استوحيتها من مشاركات سابقة - اشكر اصحابها - فقد استفدت منها وهنا انا اطرحها عليك لعلها تفيدك ايضا
ولكي تنجح الطريقة حولت حقل FileNo من رقم الي نص
وباستعلام التقرير تم اضافة حقل ss - وبه معادلة الصورة ، واضافة ss للتقرير ، وبالتقرير ss يكون غير مرئي
(ممكن ترجع حقل FileNo الي رقم ولكن لازم تغير صيغة معادلة ss - بس اذا عرفت ارجو كتابة المعادلة بهذة المشاركة)
وتم عمل تنسيق شرطي للحقول بالتقرير - الصورة
واحمد الله يبدو انة مشي الحال بالتقرير - الصورة
مرفق ملف
بالتوفيق
لا تؤجل عمل اليوم الي الغد
بارك الله بك اخي الكريم : المحاسب الجديد
على المشاركة وايجاد الحلول المناسبة
ايضا هذا حل آخر بدون اي اضافات او تعديل في اي حقول ويكون بالكود البرمجي فقط
طبعا كما نعلم ان التجميع سيكون لحقل FileNo ولهذا سيكون الحل عن طريقة في رأس المجموعه حيث سنضع هذا الكود البرمجي به وهو سيتولى كل شيء
Dim greenbar As Boolean
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If greenbar Then
Detail.BackColor = 16777164
GroupHeader0.BackColor = 16777164
Else
Detail.BackColor = 14811135
GroupHeader0.BackColor = 14811135
End If
greenbar = Not (greenbar)
End Subوسيكون شكل التقرير بهذه الطريقة
بالتوفيق
السلام عليكم
الله عليك اختنا زهرة (حفظك الله)
حل جميل وبدون تغيير حقل FileNo من رقم الي نص
بارك الله فيك
لا تؤجل عمل اليوم الي الغد
أتقدم لسيادتكم بفائق الشكر والتقدير والإحترام
أخي المحاسب الجديد
أختي زهرة العطاء
بوركتم ... وجعله الله بميزان حسناتكم :clapping: :clapping:
تم تعديل هذه المشاركة بواسطة أيمن الزعبي في 8 مايو 2012 في 09:29
عمل جميل بارك الله بكم جميعا
+1 للجميع
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
السلام عليكم ورحمة الله وبركاته،،،
الأخت زهرة ... حصلت مشكلة أثناء تطبيق الكود وهي ... أنه إذا كان التقرير يتكون من عدة صفحات فإن الكود يعمل على الصفحة الأولى فقط .. أما الصفحات التالية فلا يعمل الكود عليها ...
؟؟؟؟؟؟؟
:blink: :mellow:
بارك الله فيك أستاذتنا الكريمة زهرة ....... زادك الله علماً ...
أخى المحاسب الجديد .... حلك يدل على محاولة إيجاد الحلول وهذا شيئ رائع طبعا ... زادك الله علماً..
أخى أيمن ... كود الأستاذة/ زهرة ، يمارس عمله فى الصفحة التالية عندى ..
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
أيمن الزعبي كتب:السلام عليكم ورحمة الله وبركاته،،،
الأخت زهرة ... حصلت مشكلة أثناء تطبيق الكود وهي ... أنه إذا كان التقرير يتكون من عدة صفحات فإن الكود يعمل على الصفحة الأولى فقط .. أما الصفحات التالية فلا يعمل الكود عليها ...
؟؟؟؟؟؟؟
:blink: :mellow:
اخي الفاضل : ايمن
السلام عليكم ورحمة الله وبركاته
كما ذكر استاذنا الكريم : الأخ عمر بأن البرنامج والكود يعمل بطريقة سليمه ولا يوجد به اي مشكلة في كل الصفحات بلا استثناء وهذا مصداق لقوله
لذا تأكد بارك الله بك من نسخة الأكسيس لديك فقد يكون بها خلل ما او انك لم تطبق الطريقة بصورة صحيحه
بالتوفيق
السلام عليكم
اختنا الفاضلة زهرة (حفظك الله)
شكرا لك علي كل ما تقدمية
حتي تكتمل الفائدة
بمشاركتي - في حالة الحقل ( نص ) كانت المعادلة هكذا
ss: IIf(DCount("FileNo";"empInfo";"FileNo='" & [FileNo] & "'")>1;1;0)فاذا كان الحقل ( رقم ) فما هو التعديل اللازم اجراءة علي المعادلة اعلاه
وشكرا مقدما
لا تؤجل عمل اليوم الي الغد
المحاسب الجديد كتب:السلام عليكم
اختنا الفاضلة زهرة (حفظك الله)
شكرا لك علي كل ما تقدمية
حتي تكتمل الفائدة
بمشاركتي - في حالة الحقل ( نص ) كانت المعادلة هكذا
ss: IIf(DCount("FileNo";"empInfo";"FileNo='" & [FileNo] & "'")>1;1;0)فاذا كان الحقل ( رقم ) فما هو التعديل اللازم اجراءة علي المعادلة اعلاه
وشكرا مقدما
يكون التعبير في هذه الحالة للحقل الرقمي بهذه الطريقة
ss: IIf(DCount("[FileNo]";"empInfo";"[FileNo]=" & [FileNo] )>1;1;0)لاحظ الفرق بين الكودين عندما يكون نصي وعندما يكون رقمي للحقل FileNo
بالتوفيق
السلام عليكم
اختنا الفاضلة زهرة (حفظك الله)
جربتها وأكيد اشتغلت وكلة تمام
شكرا جزيلا ودمت زخرا وعونا
لا تؤجل عمل اليوم الي الغد
السلام عليكم ورحمة الله وبركاته
الأخت الفاضلة/ زهرة ... كلامك صحيح ولا شك بذلك لكن أختي لا يعمل عندي بالطريقة نفسها التي عندك .. مع إني قمت بتحميل نفس البرنامج الذي قمت بإدخال بيانات عليه .. ولم أقم بلمس الكود أبدا ... وأحيانا يعمل الكود وأحيانا لا ...
أرفق لك صورا عن ذلك.
علماً بأني أستخدم أكسيس 2007
تم تعديل هذه المشاركة بواسطة أيمن الزعبي في 9 مايو 2012 في 07:37
السلام عليكم
عذارا لفتح الموضوع مجدداً ولكن لقد قمت بتجريب الأمثلة المرفقة للأخت زهرة العبدالله ولا أدري لماذا لم يتم تطبيق المطلوب في التقرير لدي
كما أني كنت أشك في نسخة الأوفيس 2007 لدي فقمت بإزالتها وقمت بتنصيبها من جديد وبقي التقرير كما هو رغم وجود الكود .. فهل من تفسير لذلك؟؟
للرفع
هل احد من الإخوة جرب أمثلة الأخت زهرة ؟
اتوقع لان الموضوع قديم فهناك خلل بالملفات المرفقة يرجى محاولة الايضاح
تم تعديل هذه المشاركة بواسطة mr steev في 31 مارس 2017 في 22:23
اعتقد المشكله في وجود لون بديل في خاصية لون بديل في خصائص التفصيل
قم بوضع الخاصيه= no color
مع ان الموضوع قديم ولكن حبيت الايضاح ولعله الحل مع الشكر لصاحبة الحل
تحياتي
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
