تاريخ لانتهاء صلاحية البرنامج
اخواني اليكم هذه الطريقة البسيطة لوضع تاريخ لانتهاء صلاحية لبرنامجك
ولنفرض مثلا تاريخ 5\5\2008
نقوم بوضع الكود التالي في النموذج الرئيسي في البرنامج ( عند الفتح)
Dim dt1, dt2 As Date
dt1 = Date
dt2 = "5 / 5 / 2008"
if dt1 > dt2 Then
msgbox "انتهت صلاحية البرنامج"
docmd.Quit
Else
If dt1 = dt2 Then
msgbox "غدا تنتهي صلاحية البرنامج"
End if
لابد من الاستئذان من صاحب البرنامج أولا و قبل كل شيء حتى يكون الانسان مرتاح البال في عمله و حتى لايقع في الاثم
و لانستطيع تقديم النصيحة في هذا المجال اطلاقا , لأننا مع احترامنا لك , لكن لانعرف وجهة نظر صاحب البرنامج في ترك مدة صلاحية لبرنامجه
فلربما لايكون قد أخذ حقوقه كاملة مثلا , و من حقه علينا أن لانعبث ببرنامجه