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

اكرم عبد الحكيم كتب:

اخي اما بالنسبه للون انظر بعد تحديث حقل تاريخ الى

اكتب التاريخ واضغط انتر وانظر اذا كان الحقل فارغا

اما طلبك الاخر ما فهمت ايش القصد اخي

الوارد والصادر.rar

اشكرك على اجابتي اخي اكرم عبد الحكيم

بالنسبة للون كانت اجابة مفيدة الا اني اريد ان يصبح اللون احمر عندما تكون الخلية يوجد بها قيمة وليست فارغة حاولت ان اغير الكود وواضعت بدل Is not Null IsNull

عندها لم تنجح

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

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

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

اكرم عبد الحكيم كتب:

اخي بالنسبه للون اتمنى يكون مطلوبك

اما بالنسبه للتنقل والحذف فهو عندي شغال

الوارد والصادر.rar

جزال الله عنا كل خير اخي اكرم

بالنسبة للون فإنه بالفعل مطلوبي

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

هل يوجد حل لهذا الصوت

واشكراك على مساعدتي

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

افحص قيمة التيكست في حدث تغير التيكست

لكل خلية فإن كانت لا تساوي فراغ فضع لون الخلفية أحمر والكتابة أبيض وإلا فالخلفية

أبيض والكتابة أسود

الخطأ الذي حصل عندك أنك تفحص إن كانت قيمة

الكونترول إن كان Null

والمفروض أنك تفحص قيمة خاصية Text إن كانت تساوي

فراغ أم لا ""

ومن ناحية أخرى التحقق يجب أن يكون في حدث التغير للتيكست وليست

حدث مابعد التحديث لأنه في هذه الحالة لن يظهر اللون إلا بعد مغادرة الكونترول أما

في حدث التغير تظهر الألوان أثناء الكتابة أو حذف النص

كما أنه يجب وضع

التركيز على العنصر قبل فحص أحد خصائصه حتى لايظهر خطأ

كمثال على

فحص نوع البريد

Private Sub TpPost_Change()
  Me.TpPost.SetFocus
  If Me.TpPost.Text <> "" Then
	Me.TpPost.BackColor = vbRed
	Me.TpPost.ForeColor = vbWhite
  Else
	Me.TpPost.BackColor = vbWhite
	Me.TpPost.ForeColor = vbBlack
  End If
End Sub

أبو أحمد المبرمج كتب:

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

افحص قيمة التيكست في حدث تغير التيكست

لكل خلية فإن كانت لا تساوي فراغ فضع لون الخلفية أحمر والكتابة أبيض وإلا فالخلفية

أبيض والكتابة أسود

الخطأ الذي حصل عندك أنك تفحص إن كانت قيمة

الكونترول إن كان Null

والمفروض أنك تفحص قيمة خاصية Text إن كانت تساوي

فراغ أم لا ""

ومن ناحية أخرى التحقق يجب أن يكون في حدث التغير للتيكست وليست

حدث مابعد التحديث لأنه في هذه الحالة لن يظهر اللون إلا بعد مغادرة الكونترول أما

في حدث التغير تظهر الألوان أثناء الكتابة أو حذف النص

كما أنه يجب وضع

التركيز على العنصر قبل فحص أحد خصائصه حتى لايظهر خطأ

كمثال على

فحص نوع البريد

Private Sub TpPost_Change()
  Me.TpPost.SetFocus
  If Me.TpPost.Text <> "" Then
	Me.TpPost.BackColor = vbRed
	Me.TpPost.ForeColor = vbWhite
  Else
	Me.TpPost.BackColor = vbWhite
	Me.TpPost.ForeColor = vbBlack
  End If
End Sub

السلام عليكم

شكرا على الاهتمام اخ أبو أحمد المبرمج

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

واضنها لها علاقة بالاستعلام

يرجى التدقيق بالبرنامج

ولكم جزيل الشكر