كود لوضع مدة محدودة للبرنامج

[mahdena]

مرحبا// لدي برنامج يقوم بعمل تقرير بأسماء الطلاب الغائبين ومن ثم طباعته .

أود وضع مدة زمنية محددة للبرنامج بحيث يقف تلقائيا بعد فترة ولايمكن استخدامه بعد سنة مثلاً .

أرجو الرد بوضوح مع شكري لكم.

[يوسف أحمد]

اخي / mahdena

يتم وضع الكود ادناه بحدث عند الفتح للنموذج الرئيسي والذي يتم فتحه عند ابتداء البرنامج

If Date > #9/28/2006# Then
 MsgBox " انتهى وقت البرنامج " & vbCrLf & vbCrLf & _
" الى اللقاء " & vbCrLf & vbCrLf & _
"بالتوفيق ان شاء الله", vbOKOnly + vbMsgBoxRight + vbExclamation
DoCmd.Quit
  End If

وبالإمكان تغيير التاريخ بالسطر الاول بما يتناسب

بالتوفيق ان شاء الله

[منذر عساج]

أضافة الى ما ذكره الاخ / yousef جزاه الله خير

هذه روابط مفيدة :

http://www.officena.net/ib/index.php?showtopic=12990

تم تعديل أكتوبر 4, 2006 بواسطه منذر عساج