كيف استبدل التنسيق الشرطي بالكود

يمكنك استخدام قاعدة IF في الكود لتنفيذ المطلوب

فمثلا

اذا افترضنا ان لدينا زر ومربع نص وعندما نريد ان نضع الرقم 1 في مربع النص ثم نضغط علي الزر يتم تلوين مربع النص بأي لون نختارة بناء علي الشرط وهو كتابة الرقم 1 في مربع النص

وهكذا

وهذا مثال للكود

If Me.textcolor = 1 Then
Me.textcolor.BackColor = 33023
End If

أخي الحبيب محمد

كلام جميل ولكن انا اريد ان اطبق هذا على نموذج جدولي

وبالتالي فأن الحقل سوف يتكرر

اذا يجب ان يتحقق من الشرط اكثر من مرة

اقرب مثال هو عندما اريد تغير لون السجل عند توفر قيمة معينه في السجل

فكما تعلمنا من الأخوه الكرام نستخدم التنسيق الشرطي

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

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

اتمنى ان تكون الصورة واضحه

ملاحظة انا ابحث عن مكان وضع الكود وفي اي حدث

اخي الفاضل ابو يارا

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

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

مثال :

التنسيق الشرطي الغير محدد : سيكون لونه ابيض ولون الخط اسود

التنسيق الشرطي الأول اذا كانت قيمة الحقل مثلا 5 : سيكون اللون مثلا احمر ولون الخط اصفر

التنسيق الشرطي الثاني اذا كانت قيمة الحقل مثلا 12 سيكون اللون ازرق ولون الخط ابيض

التنيسق الشرطي الثالث اذا كانت قيمة الحقل مثلا 20 سيكون اللون اصفر ولون الخط احمر او اسود

وسيكون الكود بهذا الشكل

Private Sub Form_Load()
	Dim objFrc As FormatCondition
	Dim lngRed As Long
	Dim lngWhite As Long
	Dim lngBlack As Long
	Dim lngYellow As Long
	Dim lngBlue As Long
	Dim lngGreen As Long

	lngRed = RGB(255, 0, 0)
	lngWhite = RGB(255, 255, 255)
	lngBlack = RGB(0, 0, 0)
	lngYellow = RGB(255, 255, 0)
	lngBlue = RGB(0, 0, 255)
	lngGreen = RGB(0, 255, 0)
	Me![strAge].FormatConditions.Delete

	Set objFrc = Me![strAge].FormatConditions.Add(acFieldValue, acEqual, 20)
	Set objFrc = Me![strAge].FormatConditions.Add(acFieldValue, acEqual, 44)
	Set objFrc = Me![strAge].FormatConditions.Add(acFieldValue, acEqual, 60)

	With Me![strAge].FormatConditions(0)
		.BackColor = lngYellow
		.FontBold = True
		.ForeColor = lngRed
	End With

	With Me![strAge].FormatConditions(1)
		.BackColor = lngBlue
		.FontBold = True
		.ForeColor = lngWhite
	End With

	With Me![strAge].FormatConditions(2)
		.BackColor = lngGreen
		.FontBold = True
		.ForeColor = lngBlack
	End With

End Sub

ويمكن ان نستخدم المعاملات التالية في الكود :

اقل من : acLessThan

تساوي : acEqual

لا تساوي : acNotEqual

بين : acBetween

ليست بين : acNot Between

اكبر من : acGreaterThan

قد يتم استدعاء الكود السابق في حدث بعد التحديث للحقل المراد وضع الشرط التنسيقي عليه

Private Sub strAge_AfterUpdate()
Call Form_Load
End Sub

تذكر جيدا :

لا تستطيع ان تضع اكثر من ثلاثة شروط تنسيقية سواء بالطريقة اليدويه او بواسطة الكود وإلا سوف تحصل على خطأ

zaContinuousFormAndConditional_Formatting.rar

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

لك الشكر أختي ام عهود

سأقوم ببعض التجارب خلال هذا اليوم وأعطيك النتيجه

اكرر شكري لك يا ام عهود ولكل من حاول مساعدتي

مع العلم في ضل هذه الشروط لا فائدة من عمل التسيق الشرطي برمجيا

تمت الإجابة

أبو يـــ KNDR ــارا كتب:

مع العلم في ضل هذه الشروط لا فائدة من عمل التسيق الشرطي برمجيا

اخي الفاضل ابو يارا

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

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

اذا اعجبتك هذه الطريقة فبإمكانك إستخدامها

zaContinuousFormColors.rar

بارك الله فيك اختنا الفاضلة زهرة

دائماً نتعلم منك ومن اجاباتك التي تعتبر دروس لنا نستفيد منها وندعو لك بظهر الغيب

وفقك الله معلمتنا الغالية ام عهود

يوسف احمد كتب:

بارك الله فيك اختنا الفاضلة زهرة

دائماً نتعلم منك ومن اجاباتك التي تعتبر دروس لنا نستفيد منها وندعو لك بظهر الغيب

وفقك الله معلمتنا الغالية ام عهود

وبك بارك الله

اخي واستاذنا ومشرفنا الغالي يوسف أحمد

وما انا إلا تلميذة بينكم اتعلم منكم كل يوم شيء جديد

بالتوفيق لكم جميعا

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

ما شاء الله عليك اختي الكريمة ام عهود مثال جميل ...

بارك الله فيك وجزاك الله خير ونفع الله بعلمك .....

بارك الله فيك ام عهود

وما شاء الله عليك تحاولي المساعدة بكل الطرق

أختي الكريم بخلقك وبمعلوماتك

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

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

وكما يعلم الجميع أن البرمجه علم لا حدود له وفي احيان كثيرة وكما تعلمنا منك أختاه

انه يمكن للمبرمج الوصول لما يريد بأحد الطريقتين

1- بالإمكانيات التي تقدمها لغة البرمجه الذي يستخدمها

2- بالحيله والذكاء

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

ختاما اكرر شكري وتقديري لكم جميعا