تغيير التنيسق الشرطي بتغير رقم الصنف

اخي الكريم

ممكن ارفاق مثال؟؟

تفضل أخي المثال

وفقك الله تعالى

____________________hasan.rar

مرحبا..

لم استطع الربط بين مثالك هذا وسؤالك في المشاركة الاولى..

المثال به تقرير واحد..

ماهو المطلوب بالضبط؟؟؟

عفواً يا أستاذ إيهاب المعذرة

وأشكرك على تفضلك وسعة صدرك

الإيضاح

في المثال يوجد تقرير إسمه ab3 أريد في التقرير في حقل snd_id يتغير لونه بمجرد تغير الرقم الذي فيه أعني عند تغير الصنف إلى صنف آخر يتغير لون الحقل snf_id

ولك الشكر سلفاً .

وفقك الله

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

القاعدة المرفقة من نوع "النسخة المتماثلة" لا يمكن التعديل في تصميمها

لذا يرجى ارفاق القاعدة الاصلية..

هذه واحدة...

الثانية..

ماذا تقصد بتغير قيمة الحقل Snf_id

اذا كان الرقم 010 يخص الكتب والرقم 050 يخص الدوريات مثلا

فكيف سيتغير ذلك والمفروض انها ارقام ثابتة ؟؟؟

أستاذ إيهاب المعذرة لأني أثقلت عليك أسأل اللع تعالى أن يجعل ذلك في موازين حسناتك .

الإيضاح

في التقرير يوجد حقل بإسم snf_id وكذلك حقل snf_nm وهاذين الحقلين مأخورين من جدول الـ tbl_snf وهو يخص تصنيفات الكتب حيث لا يخفى عليكم أن لكل كتاب تصنيف .

المطلوب عندما يختلف التصنيف للكتب عن الأخرى يتغير اللون بمعنى

رقم التصنيف 010 يظهر جميع الكتب الذي تحت هذا التصنيف

وبمجرد أختلف رقم الصنف 010 إلى رقم آخر في نفس حقل snf_id يتغير اللون وهكذا لجميع تصنيفات الكتب .

وفقكم الله تعالى .

تحياتي

hasan.rar

ايهاب عثمان كتب:

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

القاعدة المرفقة من نوع "النسخة المتماثلة" لا يمكن التعديل في تصميمها

لذا يرجى ارفاق القاعدة الاصلية..

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

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

ثانياً أرفق لكم المثال حسب طلبكم وفقكم الله وأتمنى الرد .

sample.rar

Yo,hkd b js,kd

أستاذ إيهاب بالله عليك لا تنساني تكفى

أريد حلاً لمشكلتي وفقكم الله .

تحياتي

السلام عليكم مازلت أنتظر وتم رفع الملف المطلوب للمثال وفقكم الله .

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

تحية طيبة الى استاذي ايهاب .. لدينا عملية من بعد اذنك

تحية طيبة يا اخ حسن ..

أولا: تريد عند تغير الصنف يتغير اللون ؟ طبعا لا أدري أي لون تريد تغييره ولكن اتوقع انك تريد تغيير لون حقول تفصيل التقرير هل هذا صحيح؟ (نعم ..أكمل ..)

ثانيا : الحقل الذي فيه التصنيف رقمي هل تريد لكل صنف لون مثلا ؟ اذا كان الجواب نعم أكمل ..

طيب وصلنا الى نتيجة انك تريد تغيير لون حقول التفصيل مع تغير كل تصنيف عندك؟

كيف نقوم بذلك : اليك الطريقة الشعبية ..

1- افتح التقرير بوضع التصميم

2- مقطع تفصيل بالتقرير قم بنشاء حدث عند التنسيق واكتب الكود التالي:

Select Case Me.snf
Case Is <= 10
clrF = vbRed
DoChange
Case Is = 20
clrF = vbBlue
DoChange
Case Is = 50
clrF = vbGreen
DoChange
Case Is = 30
clrF = vbBlack
DoChange

Case Else
clrF = vbBlack
DoChange
End Select

وبعد ذلك انشئ وظيفة اسمها DoChange كالآتي:-

Me.txt1.ForeColor = clrF
Me.txt2.ForeColor = clrF
Me.txt3.ForeColor = clrF
Me.txt4.ForeColor = clrF
Me.txt5.ForeColor = clrF
Me.txt6.ForeColor = clrF
Me.txt7.ForeColor = clrF
Me.txt8.ForeColor = clrF

وتقوم بإضافة التعريف التالي أعلى صفجة الكود تحت Option Compare Database

Dim clrF As Long

بهذه الخطوات نكون وصلنا الى نهاية المطاف

ملاحظات هامة

أولا:- txt1 الى txt8 اسماء الحقول على التقرير انا قمت بتغيير اسمائها القديمة ...

ثانيا: -بالنسبة الى اضافة الوان اخرى تستطيع استبدالها بالارقام بدل vbRed مثلا تضع 255 أو vbBlack تضع 0 أو تستخرج رقم اي لون أكيد تعرف الطريقه!!

ثالثا:-snf =حقل التصنيف انا غيرت اسمه ..

الآن شغل التقرير

إن شاء الله تكون العملية الشعبية ناجحة

مرفق المثال بعد التعديل

أخوك مشكاة

Mish_sampleUP.rar

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

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

أستاذي مشكاة إبراهيم إن المثال الذي أدرجته والأكواد الموضوعة ممتازة جداًُ ولقد أستفدت من هذه القاعدة في الأكواد ولكن أطمع بالمزيد وأود أن أوضح طلبي بشكل أوضح :

في حقل [snf_id ] يوجد رقم منضم إلى جدول أو إستعلام والمطلوب هو عندما تتغير هذه القيمة إلى أخرى يتغير لون إسم الصنف snf_nm .

ولو أستخدمت كود الـ case لقمت بتحديد البيانات في جدول الأصناف بأرقام معينة وربما تأتي أصناف غير موجودة ويحدث ما يحمد عقباه .

أود أن أوضح أكثر لو وضعت التركيز على حقل snf_id في وضع التصميم وأخترت التنسيق الشرطي وأستخدمت قيمة في الحقل (الكود المطلوب للقيمة) بحيث يتغير لون كتابة الأرقام بتغير الرقم دون تحديد للرقم بعينة .

أشكرك مرة أخرى على إلتفاتتكم ووفقكم الله .

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

الاخ حسن الحمد لله الوصفة الشعبية جابت نتيجة بالنسبة للجزء الأول وهو الخاص بتغير اللون في تفصيل التقرير بناء على تغير القيمة في الحقل snf_id

الجزء الثاني من الطلب هو تغيير اللون في الحقل snf_nm عند تغيير القيمة في snf_id مع ملاحظة ان الجزء هنا يخص رأس الصفحة وليس التفصيل..

كما في الصورة

الطريقة :-

1- انشئ حدث عند التنسيق في رأس الصفحة كما هو موضح بالصورة

2- بامكانك وضع هذا الكود

If Me.snf = 10 Then
	Me.txt9.ForeColor = vbRed
ElseIf Me.snf = 8 Then
	Me.txt9.ForeColor = vbBlue
ElseIf Me.snf = 30 Then
	Me.txt9.ForeColor = vbGreen
ElseIf Me.snf = 1.6 Then
	Me.txt9.ForeColor = vbBlack
Else
	Me.txt9.ForeColor = 0
End If

توضيح للكود ع السريع:-

snf= اسم الحقل snf_id تم شرحه سابقا

txt9=اسم الحقل snf_nm تم تغيير اسمه للسهوله

elseif= الشروط التي تريد اضافتها حسب رغبتك أو حسب عدد التصنيفات عندك

else= يجب ان تأتي في الأخير وإلا الكود لن يعمل وتعني تحقيق شرط اذا لم تنطبق اي من الشروط اعلاه وهي الخاتمة.

الأولوان في التقرير تم تنسيقها : أحمر-ازرق -اخضر - اسود للتجربه

هذا كل شيء ياحسن ومرفق التعديل الثاني قم بتجربته لترى النتيجة

من الوصفات الشعبية

محدثكم أخوكم مشكاة

Mish_sampleUP1.rar

الأستاذ مشكاة إبراهيم وفقه الله

(روح الله يزوجك من حور الطين إذا لم تكن قد تزوجت ؟ وإلا فإن حور العين أنعم) .

الحقيقة لا أدري هل أشكرك أم أدعو لك ولكن لا أملك سوى الشكر والدعاء ( يا رب أسألك وأنت الحنان المنان واهب النعم أن تجزي أخي مشكاة بما أنت أهله وليس بما نحن أهله) اللهم آمين .

ثانياً : الحقيقة الأكواد إبداع ولكن تضل فكرة الجزء الثاني قيد للمصمم لابد إضافة خيار لون عند إضافة المستخدم لصنف جديد وربما لا يعلم المبرمج بإضافة الصنف ويحصل الخطأ . ويا حبذا لو كان الكود كدا يروح مباشرة لجدول الأصناف ويأخذ المطلوب ويغير اللون بتغير القيمة (ما أدري هل أنا بأحلم ولا إيه) ولكن رأيته في برامج أخرى .

إذا كان بالإمكان أفضل مما كان فحبذا وإلا فإن الشكر والدعاء لكم ووفقكم الله .

السلام عليكم ،،

أولا : لك مني كل التحية والتقدير بدعائك الصادق الذي اسعدني كثيرا خاصة فقرة يزوجك حور العين (:

ثانيا : لم افهم اضافة خيار لون ( هل تقصد انه من على النموذج عند اخيار رقم صنف جديد يكون بجانبه خيار اخيار اللون لهذا الصنف)؟

ثالثا: اقتراح ولا اعلم اذا كان ينفع معاك بحيث تستطيع ان تجعل المصنفات مقسمه كالآتي :

1- من 1 الى 10 يكون احمر

2- من 11- 20 يكون اخضر

3- من 21-30 يكون ازرق

4- من 31 - 100 مثلا بني

5- من 100 الى 150 اسود

6- أكبر من 150 لون سماوي

مشكاة

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

أستاذي العزيز مشكاة إبراهيم وفقه الله تعالى لما فيه الخير والصلاح (آمين)

الظاهر إني دوختك معايا ولكن عندنا مثل يقول ( لا تعود البدوي على باب بيتك) .

قصدت في إيضاحي هو أن يكون لون الرقم تلقائي دون تحديد للرقم الذي هو في الأمر

If Me.snf = 10 Then

Me.txt9.ForeColor = vbRed

أعني أن يكون الرقم تلقائي دون حاجة لوضع 10 ويأخذ من جدول الأصناف كمتغير مثل me.snf_id حيث أن مقدار snf_id هو متغير .

كما أني أستفسر هل ممكن وضع رقم اللون بدلاً من تحديد vbred وأعني أن يكون رقم اللون مثلاً (5233582) .

أكرر إعتذاري للإطالة ولكن من بدأ المكارم فليتمها وأنت أهل لذلك وفقك الله .

تحية طيبة ،،

اولا:-

اقتباس

قصدت في إيضاحي هو أن يكون لون الرقم تلقائي دون تحديد للرقم الذي هو في الأمر

If Me.snf = 10 Then

Me.txt9.ForeColor = vbRed

معلش ياحسن لو سمحت لا تستخدم التشفير لأني مكينة التشفير عندي موديل قديم .. ( يعني :hmm: )

ثانيا :-

اقتباس

كما أني أستفسر هل ممكن وضع رقم اللون بدلاً من تحديد vbred وأعني أن يكون رقم اللون مثلاً (5233582) .

ياريت قمت بالتجربة وتوفيرا للوقت نعم من الممكن استبدال vbred الى اي رقم من الالوان

مشكاة

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

تحية طيبة ،،

إن شاء الله ختام الحل.. مسك.. يا حسن ..

ملاحظه هامه : تم تغيير كامل الكود السابق كما سيأتي لاحقا...

معلش وبعد اذنك سنقوم بالانتقال من الوصفات الشعبية الى الوصفات الاكلينيكية لعلاج المشكلة في تلوين التقرير حسب التصنيف.

اقتباس

أعني أن يكون الرقم تلقائي دون حاجة لوضع 10 ويأخذ من جدول الأصناف كمتغير مثل me.snf_id حيث أن مقدار snf_id هو متغير.

بعد تفكير .. إن شاء الله يكون قصدك انك تريد تمرير الارقام كمصفوفه الى select case وبدون ان تكتب قيمة الحقل 10 أو 30 الخ ... اذا كان هذا صحيح ... أكمل.

طيب.. مارأيك نقوم باللف على هذه النقطه بطريقه مش حتخطر ع بالك ؟؟

الفكرة هي وجود رقم متغير غير مكرر ..صح يمثل قيمه فريده للدالة select case وانت افترضتها في البداية هو الحقل رقم التصنيف snf_id.

اذا سنقوم بصناعة متغير غير متكرر نسنده الى الدالة select case ويقوم بنفس الدور الذي يقوم به رقم التصنيف snf_id وبدون ما نكتب قيم الحقل مثل ما فعلنا سابقا.

1- اضف مربع نص ترقيم في مقطع رأس الصفحة بجانب رقم الصنف snf_id وبتنسيق غير مرئي..... كما في الصورة

2- في مقطع تفصيل بالتقرير فم باضافة حدث عند التنسيق واكتب الكود التالي:-

Select Case counter
Case 1
fontClrChanf (QBColor(1))
Case 2
fontClrChanf (QBColor(2))
Case 3
fontClrChanf (QBColor(3))
Case 4
fontClrChanf (QBColor(4))
Case Else
fontClrChanf (QBColor(5))
End Select
End Sub

لاحظ هنا لم يتم كتابة اي رقم لقيمة حقل وانما تم كتابة رقم الحالة فقط (case 1 ..case 2 الخ ) وبامكانك زيادة الحالات الى ما شاء الله ..

fontClrChanf = اسم وظيفة جديده سيتم شرحها لا حقا..

QBColor = رقم اللون وهو يحتوي على الالوان من (صفر الى 15) كما في الصورة..

نتوقف للصلاة و يتبع ...

السلام عليكم ،،

عدنا ..

اقتباس

ويا حبذا لو كان الكود كدا يروح مباشرة لجدول الأصناف ويأخذ المطلوب ويغير اللون بتغير القيمة (ما أدري هل أنا بأحلم ولا إيه) ولكن رأيته في برامج أخرى .

الحلم اصبح حقيقه .. يالله نكمل المسير ..

بقي لدينا مربعات النص الموجوده في رأس المجموعة وهي ستخضع لنفس العملية بوظيفة أخرى كالآتي:-

Select Case counter
Case 1
fontClr (QBColor(1))
Case 2
fontClr (QBColor(2))
Case 3
fontClr (QBColor(3))
Case 4
fontClr (QBColor(4))
Case Else
fontClr (QBColor(5))
End Select
End Sub

counter = مربع النص الذي يحتوي الترقيم التلقائي الذس اضفناه بالمشاركة السابقة..

fontClr = اسم الوظيفة التي تقوم بتغيير اللون حسب الحالة case

QBcolor=تم شرحها

نأتي الآن الى الوظيفة الاولى وهي كالآتي:-

'هذه الوظيفة تقوم بالبحث عن كافة مربعات النص في التقرير وتغير اللون حسب التعريف ما عدا الاسمين  الذين عرفناهما غير مشمولين
Private Sub fontClrChanf(Clrf As Long)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Name <> "txt10" And ctl.Name <> "txt11" Then ctl.ForeColor = Clrf
Next ctl
End Sub

هنا قمنا بتعريف وظيفة مهمتها البحث عن مربعات النص الموجوده على التقرير واسناد قيمة رقمية للون الذي نختاره وهذه الوظيفة فائدتها عدم كتابة اسماء المربعات النصيه كما فعلنا سابقا.. كما نلاحظ ايضا تم استثاء كل من الحقل text10 و txt11 من تأثير تغيير الألوان..

Clrf = تم تعريفه كرقم طويل وهي مناسبة لقيمة ارقام الالوان..

نأتي الى الوظيفة الثانية وهي :

'هذه الوظيفة تقوم بتغيير اللون مباشرة في مربعات النص التي نعرفها فقط
Private Sub fontClr(Clrf As Long)
Me.txt9.ForeColor = Clrf
Me.snf.ForeColor = Clrf
End Sub

هذه الوظيفة يتم ادراج الحقول الموجوده في مقطع رأس الصفحة للتقرير وهي snf_id و Snf_nm

txt9= اسم للحقل Snf_nm

snf= اسم للحقل Snf_id

كما لاحظنا ان الأكواد بسيطه وذات فعالية قويه نسبة الخطأ فيها 0 % بالاضافة الى وجود كفالة عليها 10 سنوات مع قطع الغيار..

ومرفق الملف بعد التعيدل الثالث

أخوك مشكاة

Mish_sampleUP2.2.rar

السلام عليكم

اقتباس

ولكن من بدأ المكارم فليتمها وأنت أهل لذلك وفقك الله .

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

كيف تستفيد منه ؟!

بعد ان تختار الألوان التي تعجبك :thumb_up: قم بطابعتها أو بنسخها بالدالة مباشرة كما هو موضح :

fontClr (QBColor(1))
'تصبح كالآتي
fontClr(13434828)

تقوم بنفس العملية بالنسبة للدالة الثانية طبعا اذا رغبت باضافة بانوراما ألوان الى التقرير.. بحيث يبقى فقط اسم الوظيفة مع رقم اللون بين () قوسين.. وتمسح QBColor(1) أوكي ..

البرنامج أجنبي ومرفق للإستفاده لكافة أعضاء المنتدى المحترمين ...

والحمد لله..

أخوك مشكاة

Mish_colors.rar

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

بارك الله فيكم اخواني

موضوع شيق فعلا

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

ببالغ الحب والتقدير أرسل بطاقة شكر وإمتنان ودعاء لأستاذي الفاضل مشكاة إبراهيم الذي والله قد وفى وأكمل المكارم وفعلاً هذا الذي كنت أتطلع إليه عندما الشغل يكون آلي دون تدخل المصمم (وأفادني بأن التشفير عنده قديم) لا حاشا والله إنو جديد ولكن كانت البطارية فاضية تحتاج شحن بس .

عموما والله أبدعت ووفيت والله أسأل أن يجعل هذا العمل خالصاً لوجهه تعالى وأن يثيبك الله بما هو أهله ولاسيما والله يا أخي إن ما قدمت من جهد ملموس في هذا الأمر إنه موقوف في عملي لله تعالى يستفيد منه كثير من المسلمين . نسأل الله القبول (آمين) .

أشكرك مرة ثانية على جهدك ووفقكم الله تعالى لما فيه خير أمة القرآن الكريم .

الاستاذ الكريم مشكاة ابراهيم...

نور الله طريقك وبارك فيك ونفعك ونفع بك...

مجهود رائع واخلاق كريمة... اكثر الله من امثالك...

طيب مارأيكم في عملية صغرى (بنج موضعي) بس ان شاء الله فيها الشفا..

1- سنستخدم الملف الاول للاخ مشكاة للاستفادة بتسميات الحقول داخل التقرير

2- لدينا الجدول Tbl_snf الذي يحتوي على ارقام واسماء وتعريفات الاصناف سنضيف اليه حقل اسمه Snf_clr نوعه رقم وتنسيقه عدد صحيح طويل Long Integr

3- عند ادخال بيانات كل صنف سندخل رقم اللون المطلوب ظهوره بالتقرير ولو كان الادخال عن طريق نموذج فيمكن الاستعانة بالمثال الاجنبي الذي رفعه لنا الجراح /مشكاة في المشاركة الاخيرة وذلك لكتابة ارقام الالوان بسهولة.

4- ننتقل الى الاستعلام qur الذي يغذي تقريرنا ونضيف اليه الحقل الجديد snf_clr

5- ننتقل الى تصميم التقرير ونضيف مربع نص داخل راس المجموعة ولنسمه باسم Clrf مقتبس من تسميات الاخ مشكاة وليكن غير مرئي visible=No ومصدره يكون الحقل الجديد Snf_clr

6 - تحت حدث عند التنسيق لقسم تفاصيل التقرير نكتب الكود التالي

Me.txt1.ForeColor = clrf
Me.txt2.ForeColor = clrf
Me.txt3.ForeColor = clrf
Me.txt4.ForeColor = clrf
Me.txt5.ForeColor = clrf
Me.txt6.ForeColor = clrf
Me.txt7.ForeColor = clrf
Me.txt8.ForeColor = clrf

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

7- نفس الشىء بالنسبة لقسم راس المجموعة ... سنكتب الكود التالي لحدث عند التنسيق

Me.txt8.ForeColor = clrf

8- مرفق المريض - عفوا الملف - بعد التعديل

Mish_sampleUP.rar

ما شاء الله

والله إنك أستاذ يا أستاذ إيهاب عثمان وما أدري أقول إستشاري جراحة ولا إيه فكرة جداً رائعة .

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

لا أعرف ماذا أقول ولكن لا أملك سوى الدعاء لكم بالتوفيق الدائم وأن يبسط الله عليكم الرزق ويثبكم بالأجر وأن يتقبل منكم ومنا .

تحياتي . أخوكم الصغير hasan