تفضل هذا الكود الصقه في حدث عند التحميل للبرنامج
هذا كود من عمل اخي محمد طاهر أو اخي ابن مسقط لست متأكدا وانما هو واحد منهم اللي صلحه وكثر الله خيرهم
If Date > #8/15/03# Then
MsgBox "عفوا ،،،،، لقد إنتهت مدة عرض البرنامج ،،،، فضلا إتصل بالموزع !!!!", vbOKOnly, "تنيبه"
DoCmd.quit
End If