التحكم في فترة التشغيل عن طريق الجدول

[amir_adam83]

السلام عليكم لدي كود في ايقاف البرنامج بعد مده زمنية وهو

Private Sub Form_Current()
On Error Resume Next
Dim odate As Date
Dim message, rdate As String
odate = #3/28/2021#
If odate <= Date Then
MsgBox "لقد تم انهاء فترة التجربه", vbInformation, "تنبيه"
DoCmd.Quit
DoCmd.OpenForm "Give access rights to the system"
Else
rdate = CStr(odate - Date)
Me.dAYER.Caption = " باقي على مدة انتهاء فترة التجريب" & " " & rdate & " " & "يوم/ايام"
End If
end sub

اريد ان اضع تاريخ الانتهاء في جدول

بدلا من ان ادخل على فيجول بيسك واعدل تاريخ التشغيل

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

[ابوخليل]

odate = Dlookup("your filedDate name","your table name")

بدلا من 

odate = #3/28/2021#

باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول

[amir_adam83]

12 minutes ago, ابوخليل said:

odate = Dlookup("your filedDate name","your table name")

بدلا من 

odate = #3/28/2021#

باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول

بارك الله فيك استاذنا الكريم تم