*حماية* نسخة للعرض فقط من البرنامج

السلام عليكم

أهلا بك عضوا فى المنتدي

كما هو متعارف ألفت نظرك الي قواعد طرح الاسئلة المثبتة أعلا المنتدي

بالنسبة للسؤال

عنوان السؤال يقول غلق

و بذلك تكون الاجابة ف الارشيف

فورم* كود يغلق النموذج الحالي بعد فترة زمنية محددة تبدأ من ترك إستخدامه

http://www.arabteam2000.com/vb/showthread....&threadid=12299

و بدلا من اغلاق الفورم

استخدم

Docmd.quit

لغلق البرنامج ككل

فهل هذا هو المطلوب ، أم تريد حذف الملف كما ذكرت فى تفاصيل الموضوع

هل تقصد عمل برنامج اكسس نسخه تجريبيه ام ماذا ....؟

ارجو الاجابه :)

معليش على عدم الرد لاني أنشغلة

نعم اريد البرنامج تجريبي وبعد وقت مثل يوم او اسبوع او اكثر ينحذف اويغلق

أشكركم على حسن التعامل مع الجميع (gift)

السلام عليكم

أنظر هذا الرابط فقد تجد فيه ما تريد

http://www.arabteam2000.com/vb/showthread....%E1%E1%DA%D1%D6

وشكرا

لسلام عليكم ورحمة الله تعلى وبركاته ....

اخي أبوعبدالرحمن ....

( من وجهة نظرى كمبتدىء ) :D

انه هناك خيارين

الأول :

وهو موجود في الرابط الذي اشار اليه الأخ سعودي31 جزاه الله خير

وهو عن طريق كتابة كود لتحديد التاريخ.........

وكانت الردود تقول انه يمكن التغلب على هذه المشكله عن طريق تقديم تاريخ الجهاز

ولكن جاء الأخ الفاضل محمد طاهر جزاه الله خير وقال انه ( بالنسبة لتقديم التاريخ ، فيمكن التغلب عليه بأنه لا تقبل تاريخ أقل من تاريخ معين و لا تقبل تاريخ اقل من أي تاريخ تم تسجيله سابقاً)

وهي فكره رائعه ... ولكن اعذرني لأني لن اعرف ان اشرح لك كيف ذلك (وبعد اذن الأخ محمد طاهر اامل ان يشرح لنا كيف يمكن التغلب على مشكلة تقديم التاريخ بأنه لا تقبل تاريخ أقل من تاريخ معين و لا تقبل تاريخ اقل من أي تاريخ تم تسجيله سابقاً

---------------------

الثاني :

واعتقد انه بسيط وسهل ...

وهو عن طريق الداله

Dcount

حيث تقوم هذه الداله بحساب عدد السجلات في جدول

على سبيل المثال ... انت تريد عندما يكتب المستخدم عشرون سجل في حقل الاسم في جدول العملاء ان تظهر له رساله تخبره بانتهاء مدة البرنامج ثم اغلاق البرنامج تلقائياً

فاكتب الكود التالي في حدث

load مثلاً

-------------------------------------------------------------------------

if Dcount("[الاسم]", "العملاء") >= 20 then msgbox"لا يمكن تشغيل البرنامج لانتهاء مدة استخدامه" Docmd.quit

end if

-------------------------------------------------------------------------

عن طريق الداله Dcount

انتبه يا اخي الأمر

Docmd.quit

هو لاغلاق مايكروسوفت اكسس

-------------------

اخوك في الله

هنا فكرة تعتمد على حذف الجداول لكن تحتاج لتطوير :

http://www.pcpages.com/harith77/TblDelete.zip

مدة استخدام البرنامج ثلاثة أيام ، افتح البرنامج ثم قدم التاريخ ثلاثة أيام أو أكثر أو أخره يوما أو أكثر واختبر النتائج .

يمكن التحايل على الكود بفتح البرنامج باستخدام الشفت ، والحل أن تمنع استخدام الشفت ، أو أن تجعل هذا الكود في النماذج الرئيسة التي لا بد للمستخدم من فتحها .

بالنسبة لمثال أخينا مسافر (الخاص بإغلاق البرنامج عند وصول السجلات إلى عدد معين ) سبق أن حملته لكن لم أجده ، ولعلي أجده لاحقا أو يتفضل بعض الإخوة بتنزيله ، فهو مفيد جدا .

هذا هو البرنامج الذي قام بعمله الأستاذ مسافر والخاص بإيقاف عمل البرنامج بناء على عدد السجلات التي يتم إدراجها فيه

أضغط هنا ..لتحميل البرنامج ..لكي تستفيد من طريقته

وتقبلوا تحياتي

جزاكم الله خير جميعاً على هذا التعاون البناء

أشكركم إخواني علي هذا التكامل الرائع فى الاجابات

فقد وردت هنا ثلاث أمثلة لحل الموضوع بطرق مختلفة

أخي مبتدئ جدا بخصوص تقديم التاريخ فما قصدته فى المشاركة السابقة أنه عن طريق الكود يتم الاحتفاظ بقيمة التاريخ الحالي عند فتح الفورم الرئيسي فى حقل بجدول أو فى ملف نص مثلا

ثم بعد ذلك عند أي فتح جديد لبرنامج يتم المقارنة بها ، فان كان التاريخ القديم أحدث من التاريخ الحديث فيتم اقفال البرنامج لأن معني ذلك أنه قد تم تأخير تاريخ الجهاز

و يمكن السماح بتأخير 3 ساعات فقط مثلا

--

اخي محمد طاهر :)

من فضلك من تكتب الكود الذي يقوم باحتفاظ قيمة التاريخ الحالي عند فتح فورم في حقل جدول او في ملف...

وما الحكمه بإمكانية السماح بتأخير تاريخ الجهاز ثلاث ساعات مثلاً؟

لتحديث القيمة المحفوظة فى حقل اسمه Mydate

فى جدول إسمه Table1

DoCmd.RunSQL "UPDATE Table1 SET Table1.mydate = Time();"

و الحكمة من ال 3 ساعات أن بعض البلاد بها توقيت صيفي و شتوي

يختلف بقيمة ساعة

و اتاحة الفرصة للمستخدم لضبط الساعة مثلا أن يتمكن من تأخير الساعو لمدة عشر دقائق مثلا

الف شكر على حسن استجابتك (f)

اخوك في الله :)