[أبووسم]

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

لدي 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 ؟ او في الفورم لود ؟

[اسامه الهرماوي]

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

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

[أبووسم]

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

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

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

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

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

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

[عبد العزيز البسكري]

(10-01-19, 12:08 AM)أبووسم كتب :

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

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

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

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

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

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

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

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

تحياتي

[أبووسم]

(10-01-19, 12:28 AM)عبد العزيز البسكري كتب :

(10-01-19, 12:08 AM)أبووسم كتب :

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

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

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

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

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

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

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

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

تحياتي

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

[عبد العزيز البسكري]

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

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

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

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

كود :

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

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

كود :

<= Now.AddDays(20)

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

[أبووسم]

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

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

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

[عبد العزيز البسكري]

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

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

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

تحياتي

[أبووسم]

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

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

تحياتي لك