كود لعمل مده زمنيه لقاعدت بيانات الاكسيس

السلام عليكم هذه الأكواد من عمل احد الأساتذة
*- اذا كنت ترغب في العدد لمرات التشغيل ضع التعليمات في نموذج بدء التشغيل
 

'تصريح لمتغيرات
Dim Gts, Sav As Byte, NmFil As String
'اسم الملف الحالي
NmFil = CurrentProject.Name
On Error Resume Next
'نبحث عن اسمه في الرجستري  للحصول على قيمته
Gts = GetSetting("StartNet", "MyDemo", NmFil, Sav)
'اضافه واحد في كل مره تشغيل
Sav = Gts + 1
' في المسار المحدد يتم تخزين القيمه الجديده في الرجستري
'HKEY_USERS\***********\Software\VB and VBA Program Settings\startNet\myDemo\اسم_الملف
SaveSetting "StartNet", "MyDemo", NmFil, Sav
'اذا وصل العدد الى
If Sav > 30 Then
MsgBox "انتهت التجربة"
DoCmd.Quit
Else


MsgBox ("مرات التشغيل المتبقية هي " & 30 - Sav)


End If

*- أو التاريخ

'تصريح لمتغيرات
Dim Gts, Sav As Date, NmFil As String
'اسم الملف الحالي
NmFil = CurrentProject.Name
On Error Resume Next
Sav = Date
'نبحث عن اسمه في الرجستري  للحصول على قيمته
Gts = GetSetting("startNet", "myDemoDate", NmFil)
' في المسار المحدد يتم تخزين القيمه الجديده في الرجستري اذا لم تكون مسجلة
'HKEY_USERS\***********\Software\VB and VBA Program Settings\startNet\myDemoDate\اسم_الملف
If Gts = "" Then
SaveSetting "startNet", "myDemoDate", NmFil, Sav
Exit Sub
End If
'اذا التاريخ تجاوز المده
If DateDiff("d", CDate(Gts), Sav) > 10 Then
MsgBox "انتهت التجربة"
DoCmd.Quit
Else
  
MsgBox " عدد ايام التشغيل المتبقية هي  " & 10 - DateDiff("d", CDate(Gts), Sav)


End If

بارك الله وجزاك الله خير

مثال رائع ومفيد جدا

وياليت تضع الكود في مثال عتى تعم الفائده

وفقك الله

شكرا لك اخي كريمو على كل مساعد التى قدمتها لي

رائع