+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اريد التعديل على هذا المثال (/showthread.php?tid=2497)
اريد التعديل على هذا المثال - hachemi - 07-04-14
ا لسلام عليكم ورحمة وبركاته
اريد التعديل على هذا المثال
وشكرا
RE: اريد التعديل على هذا المثال - asto - 08-04-14
اولا تضيف عمود جديد تسميه الانتهاء الى جدولك
و في الكوماند1 تضيف قبل الابديت
Dim s, ss As Date
s = Text5.Text
ss = DateAdd("yyyy", 10, s)
rs("الانتهاء") = ss
و في كوماند البحث قبل end sub نكتب
كود :
Dim s, ss As Date
s = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
ss = rs("الانتهاء")
If ss < s Or ss = s Then
Text3.Visible = True
Text3.Text = "انتهت الصلاحية"
End Ifو في الفورم لود
Text3.Visible =false
RE: اريد التعديل على هذا المثال - hachemi - 08-04-14
براك الله فيك أخي الكريم على المساعدة