تلوين خلفية النموذج بعدة شروط

[كريمو2]

السلام عليكم إخواني

ممكن مساعدة بخصوص تلوين خلفية النموذج إذا كانت الوظيفة اي

detach تساوي (إستقالة - عطلة مرضية  - متقاعد - منتدب - وفاة)

 

تلوين نموذج.rar

[أبو عبدالله الحلوانى]

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

فى حدث بعد التحديث فى حقل الوظيفة ضع هذا الكود

If (ضع الشرط الذى تريد) then

Me.detail.backcolor = vbred

End if

انتهى

تمنياتى بالتوفيق

[كريمو2]

لم احظى بالاجابة الشافية والكافية اخي ابو عبد الله

جربت الفكرة ولم افلح

[يوسف أحمد]

بارك الله فيك اخي ابو عبد الله و جزاك خير الجزاء

 

و بعد اذنك و ددت المساهمة في الحل و هي نفس الطريقة التي تفضلت بها. 

 

و قد  تم عمل اجراء باسم changeColor  و استدعاؤه بحدث بعد التحديث لمربع التحرير و السرد و كذلك بحدث في الحالي للنموذج ليتم التنفيذ عند التنقل بين السجلات ايضاً.

Private Sub changeColor()
If Me.detach = "استقالة" Or Me.detach = "عطلة مرضية" Or _
    Me.detach = "متقاعد" Or Me.detach = "منتدب" Or _
    Me.detach = "وفاة" Then
    Me.تفصيل.BackColor = vbRed
Else
    Me.تفصيل.BackColor = RGB(198, 217, 241)
End If
End Sub

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

 

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

تلوين نموذج.rar

[كريمو2]

وهو كذالك أخي

yousef

بارك الله فيك

 

اولا

عملت عند مربع نص detach

Private Sub detach_AfterUpdate()
Call changeColor
End Sub

ثانيا

ياحبذا اعرف اين يوجد changeColor بعد التحديث

 

ثالثا

لأني طبقت الفكرة على نموذج أخر ولم افلح

تم تعديل فبراير 19, 2015 بواسطه كريمو2

[يوسف أحمد]

وفيك بارك اخي العزيز كريمو

 

changeColor  هذا اجراء قمت انا بعمله لأن عملية تغيير اللون نحتاجها عند الاختيار من الوظائف و نحتاجها ايضاً عند التنقل بين سجلات النموذج ليتزامن ذلك التغيير مع القيمة الموجودة بمربع التحرير و السرد الخاص باختيار الوظيفة و بذلك نحتاج نفس الامر او الكود لنضعه في مكانين مختلفين و هما : حدث بعد التحديث لمربع التحرير و السرد الخاص بالوظيفة و ايضاً حدث في الحالي للنموذج .... و السبب في عمل اجراء و استدعاؤه هو :

 

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

2: اختصار الكود .

 

الآن ساشرح لك كيف نعمل هذا خطوة بخطوة : 

 

1: افتح محرر الفيجوال بيسك و من قائمة ادراج (Insert) اختر procedure

2: ضع اسم له و هو كما في المثال changeColor

3: من التبويب  type اترك الاختيار كما هو Sub

4: من التبويب Scope اختر Private

5: سيظهر لك سطرين بمحرر الفيجوال بيسك كالتالي : 

Private Sub changeColor()
End Sub

6: الآن نضع الكود الذي سيغير اللون ما بين سطري الإجراء كالتالي:

Private Sub changeColor()
If Me.detach = "استقالة" Or Me.detach = "عطلة مرضية" Or _
    Me.detach = "متقاعد" Or Me.detach = "منتدب" Or _
    Me.detach = "وفاة" Then
    Me.تفصيل.BackColor = vbRed
Else
    Me.تفصيل.BackColor = RGB(198, 217, 241)
End If
End Sub

7: الآن اصبح لدينا اجراء بإسم changeColor و بإمكاننا استدعاؤه.

8: في حدث بعد التحديث لمربع التحرير و السرد الخاص بالوظيفة نضع كود استدعاء الاجراء كالتالي :

Call changeColor

9: ثم في حدث في الحالي للنموذج نضع ايضاً كود استدعاء الاجراء كالتالي :

Call changeColor

ارجو ان يكون الشرح و اضح 

 

بالتوفيق

تم تعديل فبراير 19, 2015 بواسطه yousef

[كريمو2]

شكرا لك أخي youcef

الآن تفطنت للمشكلة وهي في : رأس النموذج

Private Sub changeColor()
If Me.detach = "استقالة" Or Me.detach = "عطلة مرضية" Or _
    Me.detach = "متقاعد" Or Me.detach = "منتدب" Or _
    Me.detach = "وفاة" Then
    Me.رأس_النموذج.BackColor = vbRed
Else
    Me.رأس_النموذج.BackColor = RGB(198, 217, 241)
End If

End Sub

تم تعديل فبراير 19, 2015 بواسطه كريمو2

[أبو عبدالله الحلوانى]

جزاك الله خيرا أستاذ يوسف

من هاهنا نتعلم اﻷخلاق الطيبة قبل أن نتعلم العلم

[محمد سلامة]

بارك الله فيك استاذ يوسف

هذا ان كان تغيير لون الخلفية بناء علي قيمة معينة

ماذا لو احببت تغيير الصورة الخاصة بالنموذج عن طريق الكود من خلال استدعاء الصورة من خارج الجهاز

هل يمكن هذا

بارك الله فيك وننتظر اجابتكم