تحديد تاريخ انتهاء صلاحية عمل قاعدة البيانات الاكسس

[النهر العطشان]

السلام عليكم 

احتاج الى كود يقوم بتحديد تاريخ انتهاء صلاحية عمل قاعدة البيانات الاكسس ويعمل بالخفاء بدون اي رسالة تحذيرية ويتحسس عند تغيير تاريخ الكمبيوتر فيعمل على توقف البرنامج .

وشكرا

 

[عبدالقدوس48]

Private Sub Form_Load()
Dim xdate As Date
Dim Ndate As String
Dim mssg As String
xdate = #12/23/2014#
If xdate <= Date Then
MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789"
Quit
Else
Ndate = CStr(xdate - Date)
mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم"
MsgBox mssg
DoCmd.Close
End If
End Sub

[النهر العطشان]

السلام عليكم

استاذي الفاضل الكود جميل ولكن هنالك امران الاول عند ارجاع التاريخ في الكمبيوتر فالبرنامج يعمل  والثاني عند انتهاء المدة التجريبية كيف التخلص من ضهور هذه الرسالة .

ما احتاجه هو ان يعمل الكود في الخفاء وعند انتهاء المدة او تغيير التاريخ في الكمبيوتر يتوقف عمل البرنامج .

وشكرا

[ahmed_2040]

اريد بعد اذنكم كود حذف قاعدة البيانات عند الضغط علي زر امر