Jafar121 قام بنشر نوفمبر 29, 2009 مشاركة قام بنشر نوفمبر 29, 2009 (معدل) اخواني الأعزاء يشهد الله أني قد استفدت من هذا المنتدى استفادة كبيرة ، والله على ما أقول شهيد عندي استفسار يهمني : هل يمكنني انشاء زر عن طريقه يمكن ضغط قاعدة البيانات واصلاحها؟ طريقة ضغط قاعدة البيانات واصلاحها سهلة من خلال قوائم الأكسس : أدوات - أدوات مساعدة لقواعد البيانات - ضغط قاعدة بيانات واصلاحها . أريد طريقة وضع ذلك عن طريق زر ولكم جزيل الشكر والتقدير تم تعديل نوفمبر 29, 2009 بواسطه Jafar121 رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 تفضل المرفق za_C_R.rar 1 رابط هذا التعليق شارك More sharing options...
Jafar121 قام بنشر نوفمبر 30, 2009 الكاتب مشاركة قام بنشر نوفمبر 30, 2009 شكراً لك أخي ولكن هذا لا يعمل ما أردت أريد زر يعمل على ضغط قاعدة البيانات واصلاحها لم أرى أي نتيجة من ملفك أنتظر الحل بأسرع وقت ولكم الأجر والثواب رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 اخي الكريم الزر يعمل مائة بالمائة ماهي المشكلة ماهي نوع النسخة لديك عربي ام انجليزي رابط هذا التعليق شارك More sharing options...
Jafar121 قام بنشر نوفمبر 30, 2009 الكاتب مشاركة قام بنشر نوفمبر 30, 2009 (معدل) الشكر لك أخي على ردك السريع الزر صحيح يعمل ولكنه لا يعمل المطلوب عند ضغط قاعدة البيانات واصلاحها عن طريق قوائم الأكسس .. الذي يحدث أنه يغلق برنامج الأكسس ويفتحه ونرى أن حجم ملف الأكسس قد صغر الى حد كبير شاكراً لك تواصلك ودمت بخير تم تعديل نوفمبر 30, 2009 بواسطه Jafar121 رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 الشكر لك أخي على ردك السريع الزر صحيح يعمل ولكنه لا يعمل المطلوب عند ضغط قاعدة البيانات واصلاحها عن طريق قوائم الأكسس .. الذي يحدث أنه يغلق برنامج الأكسس ويفتحه ونرى أن حجم ملف الأكسس قد صغر الى حد كبير شاكراً لك تواصلك ودمت بخير لم افهم الزر يعمل ولكنة لا يعمل المطلوب انظر المرفق zaFileSize.rar رابط هذا التعليق شارك More sharing options...
Jafar121 قام بنشر نوفمبر 30, 2009 الكاتب مشاركة قام بنشر نوفمبر 30, 2009 الشكر لك أخي على ردك السريع الزر صحيح يعمل ولكنه لا يعمل المطلوب عند ضغط قاعدة البيانات واصلاحها عن طريق قوائم الأكسس .. الذي يحدث أنه يغلق برنامج الأكسس ويفتحه ونرى أن حجم ملف الأكسس قد صغر الى حد كبير شاكراً لك تواصلك ودمت بخير لم افهم الزر يعمل ولكنة لا يعمل المطلوب انظر المرفق أحرجتني أخي بسرعة ردك .. أدعو لك الله أن يحفظك من كل مكروه الآن أصبحت تعمل بشكل مناسب وجميل اسأل الله لك التوفيق والصحة والعافية اذا امكن وان لم يكن هناك تعب عليك .. فأنا السائل وأتشرف بردك على سؤالي الأخير أنا رايت الأكواد في vb اذا عملت زر في أحد النماذج .. فما هو الكود الذي أضعه فيه ليقوم بالضغط والاصلاح أرجو أن تكتب لي الكود ولك جزيل شكري واحترامي لشخصك الكريم ودمت بخير رابط هذا التعليق شارك More sharing options...
Jafar121 قام بنشر نوفمبر 30, 2009 الكاتب مشاركة قام بنشر نوفمبر 30, 2009 هل هذا هو الكود With CommandBars.Add(, 1, , True) .Controls.Add 1, 2071, , , True .Visible = True .Controls(1).SetFocus DoEvents SendKeys "~" End With والشكر ختام رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 الكود هو للمشاركة الاولى وهي تعمل بشكل صحيح Private Sub CmdCR_Click() SendKeys "{F10}" SendKeys "]sq" End Sub الكود هذا يقوم بعملية الضغط والإصلاح للنسخة العربية من برنامج الأكسيس هو : تقوم الدالة SendKeys بإرسال الأمر للمفتاح F10 وهذا يقوم بالتوجه مباشرة الى قائمة ملف File ويكون التركيز عليها بدون فتحها فقط التاشير على الأمر ملف من قائمة الأكسيس حاول تجرب المفتاح F10 من لوحة المفاتيح عندما يكون لديك نموذج مفتوح وشريط القوائم ظاهر لديك . ... نكمل بقية الكود ايضا بعد تنفيذ الأمر السابق تقوم الدالة SendKeys بإرسال الأوامر الى المفاتيح من لوحة المفاتيح وهي " [ " وهذا يعني اختيار الحرف العربي " د " ويعني أ&دوات انظر هنا تم اختيار حرف د لأنه يوجد بجانبه حرف & ان الحرف المقابل له في النسخة الإنجليزيه هي Tools& يعني انت تختار في نسختك الإنجليزيه الحرف T ثم يتم اختيار الحرف " s " وهذا يعني في النسخة العربية الحرف " س " وهو يشير الى أدوات م&ساعدة لقواعد البيانات بمعنى ان حرف السين هو الذي سيكون عليه الإختيار اما في النسخة الإنجليزية فسيكون Database utilities& يعني اختيار حرف d ثم يتم اختيار الحرف q في النسخة العربية للأكسيس وهذا يعني اننا اخترنا &ضغط قاعدة البيانات واصلاحها وهذا يعني اختيار حرف ض اما في النسخة الإنجليزية Compact and repair database& بمعنى يتم اختيار الحرف c ليصبح الكود للنسخة الإنجليزيه بهذا الشكل رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 وهذا الكود في حال النسخة الانجليزية Private Sub CmdCRen_Click() SendKeys "{F10}" SendKeys "tdc" End Sub رابط هذا التعليق شارك More sharing options...
Jafar121 قام بنشر نوفمبر 30, 2009 الكاتب مشاركة قام بنشر نوفمبر 30, 2009 (معدل) عافاك الله وغفر لك لم تنجح معي المشاركة الأولى هل يمكن أنه بسبب أن لغة لوحة المفاتيح كانت تشير الى الكتابة باللغة الانجليزية مع العلم أن نسختي الأكسس قوائمها عربية وأظن أن هذا الكود لن يعمل في حالة اخفاء شريط القوائم بطريقة ما . الملف الأخير نجح معي وتمت العملبة بنجاح بدون مشاكل فهل بمكن استعماله في أي ملف أكسس .. أم يختلف باختلاف النسخة العربية أو الانجليزية هل يمكن أن نفيدني في ذلك مع شكري ونقديري تم تعديل نوفمبر 30, 2009 بواسطه Jafar121 رابط هذا التعليق شارك More sharing options...
خبيب الريم قام بنشر نوفمبر 30, 2009 مشاركة قام بنشر نوفمبر 30, 2009 نعم اخي الكريم الملف الاخير ينفع مع جميع النسخ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.