amir_adam83 قام بنشر مارس 24, 2021 مشاركة قام بنشر مارس 24, 2021 السلام عليكم لدي كود في ايقاف البرنامج بعد مده زمنية وهو 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 اريد ان اضع تاريخ الانتهاء في جدول بدلا من ان ادخل على فيجول بيسك واعدل تاريخ التشغيل وجزاكم الله خير رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر مارس 24, 2021 أفضل إجابة مشاركة قام بنشر مارس 24, 2021 odate = Dlookup("your filedDate name","your table name") بدلا من odate = #3/28/2021# باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول 4 رابط هذا التعليق شارك More sharing options...
amir_adam83 قام بنشر مارس 24, 2021 الكاتب مشاركة قام بنشر مارس 24, 2021 12 minutes ago, ابوخليل said: odate = Dlookup("your filedDate name","your table name") بدلا من odate = #3/28/2021# باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول بارك الله فيك استاذنا الكريم تم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.