اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


amir_adam83
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

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

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 هو اسم الجدول

  • Like 4
رابط هذا التعليق
شارك

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

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

بدلا من 


odate = #3/28/2021#

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


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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information