علوش كتب :نرجو من الاخوة توضيح طريقة عمل الكود او وضع مثال
مثلا نستخدم اوامر الاضافة و القراءة من قاعدة بيانات فيها عمود واحد فقط
نكتب في قاعدة البيانات اول تاريخ او نعمل زر كوماند لا يظهر الا اول مرة عند استخدام البرنامج فيه نظيف تاريخ أول استخدام
dim a as date
a=date
ثم اوامر اضافة الى قاعدة البيانات
نكتب في الفورم1 لواد اوامر القراءة من قاعدة البيانات السابقة (فتح ، التنقل بين السجلات ، اسناد قيمة السجل الى تكست)
ثم نكتب شروط مناسبة للمقارنة بين قيمة السجل و تاريخ اليوم حيث بالنسبة لتاريخ اليوم نظر ما بين هذين {}
{
ناخذ x,y
و نعمل لكل منها كمايلي : dim x as date
----------------------------------------
لمعرفة تاريخ اليوم
x=date
-----------------------------------
و هذا لمعرفة تاريخ اليوم التالي :
كود :
y= DateAdd("d", 1, x)و عند تبديل الرقم 1 في الكود السابق ب 2 نعرف تاريخ بعد غد
}
و بعد حساب كل ما علاه نكتب اوامر الاضافة الى قاعدة البيانات
