عادل سرور سرور

Option Compare Database Dim trial As Date Dim b As Date ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ Private Sub Form_Open(Cancel As Integer) trial = GetSetting("aa", "bb", "trial", Nz(trial)) If trial = Empty Then SaveSetting "aa", "bb", "trial", Date End If trial = GetSetting("aa", "bb", "trial", Nz(trial)) rem هنا التعديل trial = CDate(trial) If Date < trial Then MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical Else b = trial + 60 ' 60 يوم مدة تجريبية If Date > b Then MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation DoCmd.OpenForm"المصمم" Else MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم" End If End If End Sub