كود ضغط واصلاح قاعدة البيانات

[zizo_spyik]

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

شكرا للجميع

[hany7285]

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

شكرا للجميع

اضم صوتي لصوت زيزو يا ريت لوحد قال لنا ازاي الواحد يعمل الكود ده ونحطه في قاعدة البيانات

[عبد الله قدور]

السلام عليكم و رحمة الله

أخي استطيع مساعدة في حال انك تستخدم اكسس 2007 

والطريقة كالتالي 

ضع اختصار لعملية الضغط و الاصلاح في شريط الوصول السريع

ثم في أي زر ضع الكود التالي 

SendKeys "{f10}"

SendKeys "4"

حيث إن الرقم 4 يرمز الى ترتيب اختصار في شريط الوصول السريع 

وشكرا

[منتصر الانسي]

أخي العزيز

حسب إعتقادي أنك لاتستطيع تنفيذ ضغط وإصلاح لنفس قاعدة البيانات اللي أنت فيها إلا عن طريق القوائم وليس عن طريق كود يوضع لزر أمر

لذا يرجى منك توضيح طلبك بالتحديد ليتم شرحه بتفصيل أكثر

تحياتي,,,

[zizo_spyik]

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

فامل منكم الافاده فى كيفية عمل ذلك وشكرا لكم على التعاون

[ابو ياسر]

 شريط الأدوات /

أدوات / خيارات / لسان التبويب /عام

ضع علامة على خانة الاختيار /ضغط عند الاغلاق

وبهذا يتم ضغط القاعدة واصلاحها عند كل اغلاق

[zizo_spyik]

شكرااااااااااااااا جزيلا جداااااااااااا

افادك الله من العلم الكثير

حل اكثر من ممتاز

[علي محمد الكعبي]

في ١٦‏/٦‏/٢٠١١ at 17:20, عبد الله قدور said:

السلام عليكم و رحمة الله

 

أخي استطيع مساعدة في حال انك تستخدم اكسس 2007 

 

والطريقة كالتالي 

 

ضع اختصار لعملية الضغط و الاصلاح في شريط الوصول السريع

 

ثم في أي زر ضع الكود التالي 

 

SendKeys "{f10}"

SendKeys "4"

 

حيث إن الرقم 4 يرمز الى ترتيب اختصار في شريط الوصول السريع 

 

 

وشكرا

 

 

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

مع العلم انا البرنامج يعمل على شبكة محلية يوجد بها عدة مستخدمين

[عبد الله قدور]

38 دقائق مضت, علي محمد الكعبي said:

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

مع العلم انا البرنامج يعمل على شبكة محلية يوجد بها عدة مستخدمين

الكود الاول يقوم بضغط زر f10

وعندها يظهر لك اختصارات المفاتبح لاحظ ان زر الضغط والاصلاح رقمه 7 على جهازي

عندها في الكود الثاني يجب وضع رقم 7

 

 

[علي محمد الكعبي]

14 دقائق مضت, عبد الله قدور said:

الكود الاول يقوم بضغط زر f10

وعندها يظهر لك اختصارات المفاتبح لاحظ ان زر الضغط والاصلاح رقمه 7 على جهازي

عندها في الكود الثاني يجب وضع رقم 7

 

  Set MBarSubCtl = MBarCtl.Controls.add(Type:=msoControlButton)

  With MBarSubCtl

    .style = msoButtonIconAndCaption

    .Caption = ""فهرسة وضغط قاعدة البيانات وفهرستها"

    .FaceId = 285

    .OnAction = "{SendKeys "f10 "SendKeys "4"

   ' .OnAction = CommandBars("Menu Bar") , Controls ("Tools")

   ' Controls ("Database utilities")

   ' Controls ("Compact and repair database...")

   ' accDoDefaultAction

    

    .Parameter = 5

    .BeginGroup = True

  End With

 

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

 

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

  .OnAction = "{SendKeys "f10 "SendKeys "4"

[علي محمد الكعبي]

وينك استاذي

[علي محمد الكعبي]

مافية اجابة

[علي محمد الكعبي]

هلووووووووو

[Shivan Rekany]

5 دقائق مضت, علي محمد الكعبي said:

هلووووووووو

هل اصدار اوفيسك العربية ام انكليزية
هذا للانكليزية

SendKeys "{F10}"
SendKeys "tdc"

وهذا لاصدار العربية

SendKeys "{F10}"
SendKeys "]sq"

 

[علي محمد الكعبي]

طيب كيف اكتب في الكود المرفق اعلاه

[Shivan Rekany]

7 دقائق مضت, علي محمد الكعبي said:

طيب كيف اكتب في الكود المرفق اعلاه

افتح نموذجك في وضع تصميم
اعمل زر جديد عليه
وفي محرر فيجوال اكتب الكود الاعلاه

 

[علي محمد الكعبي]

انااريد ان اضع في قائمة مينيو

[علي محمد الكعبي]

طيب كيف اكتبة في الكود 

[Shivan Rekany]

6 دقائق مضت, علي محمد الكعبي said:

طيب كيف اكتبة في الكود 

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

[محمد سلامة]

2 ساعات مضت, علي محمد الكعبي said:

انااريد ان اضع في قائمة مينيو

الاستاذ علي الكعبي

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

رسائلك الخاصة

[علي محمد الكعبي]

1 ساعه مضت, محمد سلامة said:

الاستاذ علي الكعبي

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

رسائلك الخاصة

كيف اقوم بالحذف

[علي محمد الكعبي]

3 ساعات مضت, محمد سلامة said:

الاستاذ علي الكعبي

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

رسائلك الخاصة

لم استطع حذف الرسائل لادري كيف الطريقة

[علي محمد الكعبي]

10 ساعات مضت, محمد سلامة said:

الاستاذ علي الكعبي

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

رسائلك الخاصة

طريقة افراغ الرسائل الخاصة

[محمد سلامة]

2 ساعات مضت, علي محمد الكعبي said:

طريقة افراغ الرسائل الخاصة

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

او ابعتلي ايميلك

[علي محمد الكعبي]

2 ساعات مضت, محمد سلامة said:

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

او ابعتلي ايميلك

لم اجد ماذكرتة ياستاذ محمد