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

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

بدأه أبو يـــ KNDR ــارا في 29 أبريل 2009 · 10 رد · 1,809 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اسعد الله ايامك بالخير والمسرات وجمعنا الله في الفردوس الأعلى في الجنه

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

وسؤالي اين يتم عمل وضع الكود في اي حدث

ودمتم في بخير

#2

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

فمثلا

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

وهكذا

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

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

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 29 أبريل 2009 في 13:46

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

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

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

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

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

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة أبو يـــ KNDR ــارا في 29 أبريل 2009 في 15:14

#4

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

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

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

مثال :

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

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

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

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

post-15367-1241023415_thumb.gif

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

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

#5

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

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

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

#6

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

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

تمت الإجابة

#7
أبو يـــ KNDR ــارا كتب:
مع العلم في ضل هذه الشروط لا فائدة من عمل التسيق الشرطي برمجيا

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

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

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

post-15367-1241094588_thumb.gif

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

zaContinuousFormColors.rar

#8

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

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

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

#9
يوسف احمد كتب:
بارك الله فيك اختنا الفاضلة زهرة

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

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

وبك بارك الله

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

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

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

#10

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

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

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

27169617.gif
#11

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

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

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

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

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

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة أبو يـــ KNDR ــارا في 30 أبريل 2009 في 21:29

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