أخوتي الاعزاء هل توجد طريق لضغط وإصلاح قاعد البيانات عن طريق الكود وذلك بوضع زر أمر داخل احد النماذج يقوم بتشغيل ضغط وإصلاح القاعدة ، حيث أني قمت بتجربة هذا الكود لكنه لم ينفع ، فهل هناك حل :
DoCmd.RunCommand acCmdCompactDatabase
كيفية ضغط وإصلاح قاعدة البيانات التي ينطلق منها الكود الي نفسها ؟؟
مغلق
جرب هذه مع وضع المسار صحيح
أستاذي العزيز أشرف خليل أشكرك على ردك السريع لي حيث لم يستغرق الوقت منذ كتابتي للسؤال سوى دقائق .
لقد جربت المثال الذي أرفقته وهو جميل جدا حيث يقوم بضغط قاعدة البيانات المرتبطة في حالة وجود قاعدة للبيانات منفصلة .
لكن ما أريده بالضبط هو ضغط القاعدة التي ينطلق منها الحدث وأشكرك جزيل الشكر وأنا في انتظار الرد .
هنا مثال ارجو ان يفيدك
طبعا لو بحثت وجدته
http://arabteam2000.com/vb/showthread.php?...&threadid=23305
الاخ abutraiky أشكرك على المثال لكنه لا يقوم بضغط واصلاح القاعدة التي ينطلق منها الحدث ، وعندما أعطيته مسار القاعدة الحالية توقف عن العمل فهل من طريقة لجعله يقوم بذلك على نفس القاعدة ؟
أكرر ندائي الى الاخوة فهل من مجيب حول ضغط القاعدة التي ينطلق منها الحدث ؟؟؟؟؟؟
يمكنك ضغط القاعدة التي ينطلق منها الكود
كما أوضح أبو هاجر هنا
http://www.arabteam2000.com/vb/showthread....ht=%D6%DB%D8%2A
و لكن الي مسار جديد و ليس الي نفسها
و هذه الوصلة بها طريقة لعمل ضغط و اصلاح دوري كل فترة زمنية
http://support.microsoft.com/default.aspx?...&NoWebContent=1
و هذه أداة مستقلة للضغط من موقع ميروسوفت يبدو أن لها فوائد أخري فى اصلاح بعد المشاكل فى القواعد التي بها مشاكل
http://support.microsoft.com/default.aspx?...kb;en-us;273956
هذه الدالة و يبدو انها تنفذ ما تريد
Function CompactDB()
SendKeys "{F10}"
SendKeys "TDC"
End Functionو يمكنك استدعائها من زر امر كما يلي
Private Sub Command0_Click() x = CompactDB() End Sub
و هي عبارة عن محاكاة
لضغط
f10
ثم
T
D
C
كانك اخترت الامر من القوائم
السلام عليكم والله
اخي محمد جزاك الله خير على ما تقوم به من منفعه لكل عضو هنا
فتحت مثالك فوجدته على قائمة تنسيق وعبثا حاولت الوصول الى
قائمة ادوات ثم ادوات مساعدة ثم ضغط قاعدة البيانات فوصلت للمطلوب
على اكسس 2000
لربما هو ما يطلبه الاخ اسامه
SendKeys "{F10}"
SendKeys "]sq"المثال بالاسفل
ليس لدي 2000 حاليا
و لكن
tdc
هو الاختصار فى حالة الاكس بي
الاخوة الاعزاء (محمد طاهر) و(أبو هاجر) في الحقيقة كلمة الشكر وحدها لا تكفي أمام المجهود الذي تقومون به وباقي الاخوة في إثراء هذا الموقع المتميز حيث أتقدم لكم جميعا بالشكر مع الدعاء لكم بالتوفيق والسداد في مشواركم سائلا المولى عزوجل أن ينعم عليكم من فيض علمه الواسع وأن يجعلكم ذخرا لهذه الامة للإرتقاء في سلم هذا العلم المتجدد .
وفقني الله وإياكم لما فيه الخير والصلاح .
ملاحظة :
الاخ محمد طاهر وأبو هاجر بخصوص المثال الاخير فوق الممتاز في حالة إختيار (السماح بالقوائم الكاملة) من مربع بدء التشغيل .
للجميع الشكر والتقدير
أخوكم في الله أبو أسامة
هذا الموضوع مغلق.