ارجو المساعدة فى تصحيح هذا الكود

اين الردود يا اصحاب الخبرة

لاحول ولا قوة إلا بالله !!

ليه يا أخي "تدمير الداتا " !!!

ما الغرض من ذلك .!

هل الغرض أن يكون برنامجك (عرض محدود فقط ) ( ديمو ) إذا كان المقصد من ذلك فله طرق أخرى غير "التدمير" .

أنا أقترح تدمير الهارد دسك

يعني كود لحذف البارتشن D: , E: , F: , G: ,  وهكذا

أو على الأقل اخفائهم حتى يصاب صاحب الجهاز بأزمة حادة

ويستاهل طبعاً :

كيف ينتظر المدة التجريبية لما تنتهي بدون أن يحصل على النسخة الكاملة من البرنامج ؟

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

أمير2008 كتب:

أنا أقترح تدمير الهارد دسك

يعني كود لحذف البارتشن D: , E: , F: , G: ,  وهكذا

أو على الأقل اخفائهم حتى يصاب صاحب الجهاز بأزمة حادة

ويستاهل طبعاً :

كيف ينتظر المدة التجريبية لما تنتهي بدون أن يحصل على النسخة الكاملة من البرنامج ؟

اخى الكريم ارجو عدم الاستهزاء بطلبات الاعضاء فما اريدة انا شرحتة فى مشاركة سابقة وهو خاص بى فقط فان كنت تعرف الطريقة فارجو مساعدتى وان كنت لا تعرف الطريقة فشكرا على ردك والسلام عليكم

فيه أكواد لحذف الجداول من القاعدة .. ابحث غنها في المنتدى ..

وفي طرق اخرى مثل كأن يعمل البرنامج كل خسمين سجل يتوقف ويطلب تخديث من قبل صاحب البرنامج ..

لكن ممكن تكسب الوقت وتبحث عنها في المنتدى وحتلاقي إن شاء الله .

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

شوف يا أخي

بدون ما تزعل مني

هذا الكود شكله مضروب

لاحظ معي الآتي :

if GetSetting(App.Title, "Startup", "counter", "") = "" Then

المفروض يكون الكود بالشكل التالي :

If GetSetting("App", "Startup", "counter", "") = "" Then

وهذا يعني أن الكود الأول غير صالح في أكسس

ربما يكون صالح في بيئة فيجوال بيسك6 أو شيئ من هذا القبيل

وطبعا هتحتاج تعديل باقي أسطر الكود

ناهيك أن هذه الأكواد أساسا تسجل قيم في ريجستري الويندوز

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

[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\App\Startup]
"counter"="1"

يعني لو تم اعداد الويندوز مرة أخرى فأنا لا أجد ما يراعي ذلك في الكود

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

وممكن بعد هذه الفترة تضيف بنفسك كود حذف مثل

DoCmd.DeleteObject acTable, sTblNm

DROP TABLE Employees

Delete * From  Employees

مع اخفاء رسائل أكسس

لكن عندي لك سؤال :

ماذا تفعل لو تم حذف البيانات ثم جاءك العميل ليأخذ نسخة كاملة ، فمن أين تأتي له بالبيانات التي كانت موجوده في الملف القديم ؟

يا ترى ماذا سيفعل بك لو أخبرته أن بياناته فقدت ؟ ( خاصة وأن بعض العملاء هذه الأيام مسلحين )