إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم.

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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. (/showthread.php?tid=28179)

إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - أبووسم - 09-01-19

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

لدي DateTimePicker1 يحتوي على تاريخ إنتهاء صلاحية الجواز

إريد أذا كان التاريخ الظاهر يساوي تاريخ اليوم أو اكبر يتغير لون الخلفية في DateTimePicker1 إلى اللون الأحمر

و ما المشكلة التي في الكود هذا ؟

كود :

If DateTimePicker1 .Value >= Date.Today Then

            DateTimePicker1 .CalendarForeColor = Color.Red

            DateTimePicker1 .ForeColor = Color.Red

        Else

            DateTimePicker1 .ForeColor = Color.Black

        End If

حيث أنه لم يعمل معي بالشكل المطلوب

و سؤال أخير
أين أضع الكود ؟ هل هو في حدث DateTimePicker1_ValueChanged ؟ او في الفورم لود ؟

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - اسامه الهرماوي - 09-01-19

الكود دا حاولت اعدلة كتير فمعرفتش حتي لما شيلت الشرط
فاداة الداتا تيم عمري ما شوفتها بشكل خلفة غير الابيض..

والنقطة الاولي ممكن توضيح..

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - أبووسم - 10-01-19

(09-01-19, 02:29 AM)اسامه الهرماوي كتب : الكود دا حاولت اعدلة كتير فمعرفتش حتي لما شيلت الشرط
فاداة الداتا تيم عمري ما شوفتها بشكل خلفة غير الابيض..

والنقطة الاولي ممكن توضيح..

اشكرك على ردك ،

انسى الكود لأني انا بنفسي ما زبط معاي ,

أريد أذا كان التاريخ الموجود في الداتا تيم يساوي تاريخ اليوم أو تاريخ أقدم منه يظهر لي تنبيه أن التاريخ قديم

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

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - عبد العزيز البسكري - 10-01-19

(10-01-19, 12:08 AM)أبووسم كتب :
(09-01-19, 02:29 AM)اسامه الهرماوي كتب : الكود دا حاولت اعدلة كتير فمعرفتش حتي لما شيلت الشرط
فاداة الداتا تيم عمري ما شوفتها بشكل خلفة غير الابيض..

والنقطة الاولي ممكن توضيح..

اشكرك على ردك ،

انسى الكود لأني انا بنفسي ما زبط معاي ,

أريد أذا كان التاريخ الموجود في الداتا تيم يساوي تاريخ اليوم أو تاريخ أقدم منه يظهر لي تنبيه أن التاريخ قديم

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

طيّب أخي الكريم " أبو وسم " ..

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

تحياتي

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - أبووسم - 10-01-19

(10-01-19, 12:28 AM)عبد العزيز البسكري كتب :
(10-01-19, 12:08 AM)أبووسم كتب :
(09-01-19, 02:29 AM)اسامه الهرماوي كتب : الكود دا حاولت اعدلة كتير فمعرفتش حتي لما شيلت الشرط
فاداة الداتا تيم عمري ما شوفتها بشكل خلفة غير الابيض..

والنقطة الاولي ممكن توضيح..

اشكرك على ردك ،

انسى الكود لأني انا بنفسي ما زبط معاي ,

أريد أذا كان التاريخ الموجود في الداتا تيم يساوي تاريخ اليوم أو تاريخ أقدم منه يظهر لي تنبيه أن التاريخ قديم

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

طيّب أخي الكريم " أبو وسم " ..

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

تحياتي

صحيح موجود في قاعدة البيانات ، تم إدخاله مسبقاً

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - عبد العزيز البسكري - 10-01-19

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

أخي الكريم .. " أبو وسم " ..

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

التاريخ المنقضي أو التاريخ القادم أو بعد أو قبل عدد من الأيام أنت الذي ستحدّده من خلال هذا السّطر ..

كود :

  Sqlexpire = "SELECT * FROM TBL_CITOYEN WHERE Passport_Perime<#" & Now.ToShortDateString & "#"

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

كود :

<= Now.AddDays(20)

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

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - أبووسم - 10-01-19

يعجز لساني عن شكرك اخوي عبدالعزيز

و لكن اتضح بعد تشغيل البرنامج أن الفورم فاضي من الادوات

ولم يظهر لي أي تنبيه بإنتهاء تاريخ من البيانات التي وجدتها في قاعدة البيانات

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - عبد العزيز البسكري - 10-01-19

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

التنبيه ذكرت لك أنّه سيكون في بداية تشغيل المشروع ..

كتنبيه واستعلام ..

تحياتي

RE: إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. - أبووسم - 10-01-19

احسنت بارك الله فيك ، الان تم إستيعاب الطريقة

جزاك الله خير ، واشكرك على البرنامج و الفكرة الرائعة

تحياتي لك