07-04-14, 07:54 PM
08-04-14, 04:39 AM
اولا تضيف عمود جديد تسميه الانتهاء الى جدولك
و في الكوماند1 تضيف قبل الابديت
Dim s, ss As Date
s = Text5.Text
ss = DateAdd("yyyy", 10, s)
rs("الانتهاء") = ss
و في كوماند البحث قبل end sub نكتب
و في الفورم لود
Text3.Visible =false
و في الكوماند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
08-04-14, 01:43 PM
براك الله فيك أخي الكريم على المساعدة