النهر العطشان قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 السلام عليكم احتاج الى كود يقوم بتحديد تاريخ انتهاء صلاحية عمل قاعدة البيانات الاكسس ويعمل بالخفاء بدون اي رسالة تحذيرية ويتحسس عند تغيير تاريخ الكمبيوتر فيعمل على توقف البرنامج . وشكرا رابط هذا التعليق شارك More sharing options...
عبدالقدوس48 قام بنشر أكتوبر 16, 2018 مشاركة قام بنشر أكتوبر 16, 2018 Private Sub Form_Load() Dim xdate As Date Dim Ndate As String Dim mssg As String xdate = #12/23/2014# If xdate <= Date Then MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789" Quit Else Ndate = CStr(xdate - Date) mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم" MsgBox mssg DoCmd.Close End If End Sub رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر أكتوبر 16, 2018 الكاتب مشاركة قام بنشر أكتوبر 16, 2018 السلام عليكم استاذي الفاضل الكود جميل ولكن هنالك امران الاول عند ارجاع التاريخ في الكمبيوتر فالبرنامج يعمل والثاني عند انتهاء المدة التجريبية كيف التخلص من ضهور هذه الرسالة . ما احتاجه هو ان يعمل الكود في الخفاء وعند انتهاء المدة او تغيير التاريخ في الكمبيوتر يتوقف عمل البرنامج . وشكرا رابط هذا التعليق شارك More sharing options...
ahmed_2040 قام بنشر أكتوبر 17, 2018 مشاركة قام بنشر أكتوبر 17, 2018 اريد بعد اذنكم كود حذف قاعدة البيانات عند الضغط علي زر امر رابط هذا التعليق شارك 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.