السلام عليكم
صممت برنامجًا و أريد أن أجعله تجريبيا مؤقتا فكيف يمكنني ذلك
جزاكم الله خيرا
كيف أجعل برنامجي تجريبي ؟
مغلق
أخي الكريم ،،،، هناك عدة طرق لعمل ما تريد ،،،، وهذه طريقة قمت بتجربتها على مثال
وقد عملت معي بالشكل المطلوب ,,,, ولكن تعتمد على صحة تاريخ النظام للجهاز
هذه الطريقة تعتمد على التاريخ أي أنه في حالة تساوي تاريخ النظام بالتاريخ الذي تحدده
سوف يعطيك رسالة بأن البرنامج قد أنتهى عرضه ،،، وسوف يخرج نهائيا من البرنامج .
طبيعي أن برنامجك عند بدء تشغيله يبدأ بفتح نموذج ،،،، ضع هذا الكود في بدء تشغيل
هذا النموذج :
If Date > #8/15/03# Then MsgBox "عفوا ،،،،، لقد إنتهت مدة عرض البرنامج ،،،، فضلا إتصل بالموزع !!!!", vbOKOnly, "تنيبه" DoCmd.quit End If
أنا هنا حددت لك أنه في حالة أنت تاريخ النظام أكير من ( 15/8/2003 ) سوف لن يعمل
البرنامج ,,,,
قم بتجربة هذا الكود
شاكر
المسلم من سلم الناس من لسانه ويده
السلام عليكم و رحمة الله
بارك الله فيك أخي شاكر ، و شاكر و مقدر لك تجاوبك معي
سأجرب الكود و أرد عليك
مشكور و ما قصرت
طريقة أخرى.... أن تجعل برنامجك لا يقبل إدخال أكثر من 10 سجلات أو حسب الرقم الذي ترغب فيه.
والطريقة أن تضع الكود الأتي في "حدث عند التحميل" للنموذج الذي ستبدأ به القاعدة :
Dim mm
mm = DCount("[اسم الحقل]", "[اسم الجدول]")
If mm > 10 Then
MsgBox (" هذا النسخة تجريبية لا يمكنها تعبئة أكثر من 10 سجلات ... راجع المبرمج ")
End Ifوالله يوفقك.
هذا الموضوع مغلق.