sandanet

أخي الكريم لاحظ انني في الملف الأخير قد استخدمت نفس الملف الأول ماعدا انني قمت بتثبيت علامة الصح بشكل تلقائي بدلاً من كتابة الكود هذا Application.SetOption "Auto compact", True فإن كان الملف الأول بالمشاركة يعمل لديك فيجب ان يعمل الملف الأخير كذلك .. غير هذا فانه لايمكنني عمل شيء اخر تحياتي

أخي الكريم @qathi إليك المرفق التالي ضع فيه بيانات جداولك وجرب DatabaseRestartV1.2.accdb

اخي الكريم الـ @qathi هل تريد معالجة الخطأ بالخطأ؟؟ الخطأ الذي فلعته انت هو جعل جداول قاعدة البيانات داخل البرنامج نفسه وهذا خطأ لان البرنامج عندما يزيد حجمه سوف ياخذ وقت كبير بعملية الإغلاق أما لو كنت عازل الجداول في قاعدة اخرى فلن تحدث معك تلك المشكلة اما اذا اردت معالجة الخطأ بان لا يقوم البرنامج بالفتح الا بعد فترة زمنية فهو خطأ آخر نرتكبه وذلك لاننا سوف نجد انفسنا ننتظر مدة طويلة جداً لكي يتم فتح البرنامج من جديد كما اننا لانعرف ماهي المدة الزمنية التي يتطلبها الملف المؤقت للإغلاق مما يجعل ظهور الرسالة السابقة مرة اخرى امر وارد

نعم استاذ @ابو ياسين المشولي الأخ @qathi كان يريد ان يزيل علامة الصح من البرنامج وان يضع الكود التالي مكانه Application.SetOption "Auto compact", True وكما هو معلوم فان الكود السابق يضع علامة صح فقط في قاعدة البيانات بحيث عند فتحها وغلقها في المرات القادمة فان الاكسس سيقوم بعملية ضغط للقاعدة كما ان الاخ qathi يريد عمل إعادة تشغيل للقاعدة من خلال زر امر في البرنامج بالاضافة الى وضع علامة صح لضغط القاعدة في المرات القادمة وهذا ماتم انجازه لكن يبدو ان الاخ qathi قد واجه مشكلة في عدم عمل البرنامج بشكل جيد مع انني قد اختبرته على اكثر من جهاز .. ارجو منك تجربة المرفق الاخير واخبارنا بالنتيجة تحياتي

بعد إذن أستاذي القدير صالح .. إليك التعديلات أخي @eng aoff database1.accdb database2.accdb

زيادة الى ماتفضل به الاستاذ محمد فانه يجب عليك عمل compile للكود للتأكد من عدم وجود اي أخطاء ومن ثم يمكنك بعدها تحويل الملف الى Accde

اخي الكريم الذي قمت به هو كالتالي .. قمت باستعمال الكود التالي تحت زر أمر اعادة التشغيل Application.SetOption "Auto compact", True Utilities.Restart مع إزالة الكود التالي Utilities.Restart Compact:=Nz(ckCompact, False) وكذلك قمت بإزالة الكود التالي من الوحدة النمطية If Compact Then End If مع الابقاء على الكود التالي الذي هو بداخل عبارة الـ if السابقة s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf الملف تمت تجربته وهو يعمل إعادة تشغيل مع الضغط والاصلاح تلقائياً بدون اي مشاكل على اوفيس 2007 تحياتي DatabaseRestartV1.2.accdb

ماشاء الله إبداع جميل جدا .. مثال رائع .. استمر بالعطاء على بركة الله

تفضل المرفق بعد التعديل DatabaseRestartV1.2.accdb

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

شكرا لك استاذي العزيز صالح على هذا التوضيح استاذ رمهان في المرفق الملف بدون كلمة مرور أخي يونس جرب المرفق التالي تغيير القيمة الافتراضية برمجياً .mdb

استاذي العزيز صالح هل يمكن ان تضع لنا مثال جميل يوضح الفكرة جيداً

اخي الكريم يبدو ان المثال الذي ارفقته غير واضح .. لذلك ارفقت لك مثال من مكتبتي يمكنك الاستفاده منه تحياتي تغيير القيمة الافتراضية برمجياً.mdb

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

شكراً لك استاذنا الكبير السيد جمال لنا الشرف بالانضمام الى النخبة أمثالكم .. إن شاء الله نوفق في خدمة إخوتنا

شكراً جزيلاً لكم أخواننا الاعزاء على رفع روح المعنوية وبارك الله فيكم اجمعين

بارك الله فيكم اخواننا الاعزاء الاستاذ محمد سلامة والاستاذ حربي ونشكركم على دعمكم المعنوي لنا وان شاء الله نكن عند حسن ظنكم

انا لم افهم شيء من المطلوب 🙁

آمل أن ينفعك هذا المثال test111.mdb

شكراً جزيلاً لك أستاذ محمد ياسين على تهنئتك الجميلة... شرف لي ان انضم إليكم .. وفقكم الله

اخوتي واساتذتي الكرام .. أضع بين أيديكم البرنامج مفتوح المصدر البرنامج مكون من عدة اجزاء الجزء الاول وهو البرنامج الرئيسي protection_trial وهو المسؤول عن قراءة مكونات جهاز العميل (قراءة سيريال الـ UUID و اسم المعالج) لتوليد رقم نسخة فريد خاص بجهاز العميل يقوم العميل بارساله الى المبرمج. ملاحظة1: في البداية وقبل ارسال البرنامج لاي عميل قم برفع المستند النصي المرفق Active1.txt الى موقع الـ dropbox واعمل للمستند مشاركة واستخرج من رابط المشاركة رمز مشابه لهذا الرمز (n702324j1aclxel) واستبدله في البرنامج لديك If CheckNetFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0") = True Then MyString = Decrypt(RTrim(LTrim(GetFromWebpage("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) If MyString = "" Then MyString = Decrypt(RTrim(LTrim(ReadURLFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) الخطوة السابقة تفعلها للمرة الاولى فقط. الجزء الثاني من البرنامج وهو برنامج التشفير encrept_data وهو خاص بالمبرمج حيث يقوم المبرمج بأخذ رقم النسخة السابق من العميل ووضعه في المستند النصي المرفق مع برنامج التشفير active1 -original.txt مع تحديد تاريخ بداية فترة التفعيل ونهايتها كما هو موضح داخل المستند ومن ثم فتح برنامج التشفير ومة خلال النموذج الاول frm اضغط مباشرة على كلمة تشفير النص وذلك لتوليد مستند نصي آخر اسمه Active1.txt فيه تشفير لبيانات المستند النصي السابق .. قم برفع المستند النصي Active1.txt على موقع الـ dropbox بدون حذف الملف القديم الموجود على الموقع ( فقط ارفعه على نفس المكان ليقوم الموقع باستبدال الملف القديم بالجديد تلقائياً بدون تغيير رابط المشاركة) في كل مرة تقوم باضافة عميل جديد كل ماعليك القيام به هو فتح مستند النص active1 -original.txt ثم قم باضافة رقم نسخة العميل وتاريخ فترة تفعيل البرنامج ومن ثم تشغيل برنامج التشفير encrept_data ومن ثم رفع المستند النصي الناتج Active1.txt الى موقع الـ dropbox مباشرة في نفس مكان الملف القديم مع مراعات عدم حذف القديم لكي لاتفقد رابط المشاركة وهذا أمر هام جداً يرجى الانتباه له تحياتي encrept_data.zip protection_trial.mdb

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

بارك الله فيكم اساتذتي الكرام على تلك التهاني .. إن شاء الله نكن عند حسن ظنكم اشكرك استاذي الفاضل حلبي على التهنئة الكريمة .. بالنسبة للبرنامج فهو جاهز للرفع مفتوح المصدر غير انني انتظرت بعض الوقت في محاولة لحل مشكلة أحد الإخوة حيث ان البرنامج لم يعمل معه بصورة سليمة بسبب أمر مجهول لم نتوصل اليه بعد ( أنا والاستاذ جعفر ) فأردنا معالجة مشكلته مع البرنامج قبل طرحه مفتوح المصدر .. إن شاء الله اليوم او غداً سيكون مرفوع في نفس الموضوع السابق

أستاذي الفاضل @محمدنجار شكراً لك على التهنئة وان شاء الله اكون عند حسن ظنكم .. تم تفعيل نسختك

شكراً لكم على هذا الدعم المعنوي الكبير