• 0
nacer_alger

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

سؤال

السلام

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

اي تحديد مدة تجربية لفاعدة مثلا شهر واحد و يتوقف التطبيق مع ظهور رسالة انتهاء مدة التجربية

و شكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

 

'تصريح لمتغيراتDim Gts, Sav As Byte, NmFil As String'اسم الملف الحاليNmFil = CurrentProject.NameOn 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 ThenMsgBox "انتهت التجربة"DoCmd.QuitElseMsgBox ("مرات التشغيل المتبقية هي " & 30 - Sav)End If

*- أو التاريخ

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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

وفقك الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

رائع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .