الأخوة والأخوات الأعزّاء في المنتدى
السلام عليكم ورحمة الله وبركاته
قمت وحسب تجربتي المتواضعة , بتصميم طريقة لجعل برنامج مّا Demo
ويشتغل لمرات محدودة , 10 مرات مثلاً فقط , وذلك بأتباع الخطوات الـتالية :
1- تصميم جدول باسم CO
2- تصميم نموذج يفتح في بدء التشغيل لنسميه |Basmala يقوم بفتح نموذج نسميه Count
نجعل خاصية (مؤمن)لجميع حقوله نعم.
3- نضع الأكواد التالية في النموذج Count.
Private Sub Form_Open(Cancel As IntegerPrivate Sub Form_Open(Cancel As Integer)
CurrentDb.TableDefs("CO").Attributes = 0
DoCmd.GoToRecord , , acNewRec
If Me.R > 10 Then
MsgBox "!!!!!! عذراً,إنتهت المدة التجريبيّة للبرنامج"
DoCmd.Quit
End If
Me.NO.SetFocus
End Sub
Private Sub NO_Exit(Cancel As Integer)
Me.NO = 1
End Subحيث R> 10 تعني عدد مرات التشغيل المسموح بها .
4- نضع خصائص الجدول CO في الكود = 1 ليختفي من قاعدة البيانات .
5- نحول القاعدة الى MDE لأخفاء الأكواد وبالتالي عدم أمكانية الوصول الجدول والعبث فيه.
أرفق ملفين كمثالين , الأول قبل تحويله إلى MDE للأطلاع .
ولاأدري هل هناك طريقة لأظهار الجدول المخفي في قاعدة الـ MDE ؟
فإن وجدت فإن ذلك يعني أن طريقتي هذه لاتجدي نفعاً في الحماية .
مع تمنياتي لكم بالتوفيق
وتحياتي من بعيد الى أستاذتي الفاضلة زهرة
أبو منتظر