الاخوه الكرام اعضاء ومشرفى منتدانا العظيم الفريق العربى للبرمجة
السلام عليكم ورحمة الله وبركاته
اريد التعديل على هذا الكود جزااكم الله خيرا
كود
Sql1 = "SELECT * FROM data where stno = '" & cboType.Text & "'and acunt= '" & "لم يتم السداد" & "'"
هذا الكود الان يبحث بشرطين
الشرط الاول : اذا كان الحقل stno يساوى cboType.Text
الشرط الثانى : اذا كان الحقل acunt يساوى " لم يتم السداد "
ما اريده هوه اضافة الشرط الثالث وهوه اذا كان التاريخ الان اقل من او يساوى الحقل info
اشكركم جميعا
سلام الله عليكم
تم تعديل هذه المشاركة بواسطة sekora في 30 نوفمبر 2006 في 21:51
السلام عليكم ...
يتوجب عليك الإستعانة بالدالة DateDiff والتي تحدد الفرق الزمني بين تاريخين .. وإليك الشرح :
Text1 = DateDiff("d", "12/01/2006 11:12:21 PM", "12/02/2006 11:12:21 PM")نلاحظ حرف d في أول معطيات الدالة وهي تعني معرفة الفرق الزمني بين الأيام Days
كما يمكنك إستبدال ال حرف d ب m بمعنى الشهور Month أو بحرف h بمعنى الساعات Hours أو حرف m للدقائق Minute أو s وهي الثواني second
أرجو أن يكون الشرح واضحا ..
إن لم تزد شيئا على الدنيا .. فأنت الزائد عليها
* * * * * * * * * * * * * *
Anas kordi كتب:السلام عليكم ...يتوجب عليك الإستعانة بالدالة DateDiff والتي تحدد الفرق الزمني بين تاريخين .. وإليك الشرح :
Text1 = DateDiff("d", "12/01/2006 11:12:21 PM", "12/02/2006 11:12:21 PM")نلاحظ حرف d في أول معطيات الدالة وهي تعني معرفة الفرق الزمني بين الأيام Days
كما يمكنك إستبدال ال حرف d ب m بمعنى الشهور Month أو بحرف h بمعنى الساعات Hours أو حرف m للدقائق Minute أو s وهي الثواني second
أرجو أن يكون الشرح واضحا ..
اشكرك اخى على مرورك
انا كنت اقصد شرط ثالث وليس فرق بيت تارخين او زمن على العموم الحمد لله توصلت للحل واشتغل تمام واليكم الكود بعد التعديل به الشرط الثالث
Sql1 = "SELECT * FROM data where stno = '" & cboType.Text & "'and acunt= '" & "لم يتم السداد" & "'and info" & "<= #" & Format(CDate(Date), "yyyy/mm/dd") & "# "
جزاكم الله خيرا
هذا الموضوع مغلق.