14-12-15, 06:20 AM
(13-12-15, 06:04 PM)نسيم الترك1 كتب : اسعد الله اوقاتكم اخواني
ارجو مساعدتي
اريد التعديل على المشروع المرفق حيث عند اقتراب تاريخ الانتهاء تخرج رساله تنبيه باقي للانتهاء 30 يوم وثاني يوم يكتب باقي 29 يوم وهكذا
قمت بارفاق المشروع كامل فقط اريد التعديل عليه ليقوم بهذه المهمه وبنفس الوقت يشتغل مع بدء تشغيل الكمبيوتر
ارجو من لديه الحل افادتي ولكم جزيل الشكر
يتم تسجيل البيانات الباقي على انتهائها 30 يوم في القريد فيو
هذا الكود ضعه في زر .
كود :
Dim dp As New OleDb.OleDbDataAdapter("select T_Name,T_Tel1,data_end from T_Tel WHERE data_end <='" & Date.Now.AddDays(-30).ToString("dd/MM/yyyy") & "'", con)
Dim ds As New DataSet
dp.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
