اذهب الي المحتوي
أوفيسنا

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


zizo_spyik

الردود الموصى بها

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

شكرا للجميع

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

رابط هذا التعليق
شارك

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

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

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

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

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

SendKeys "{f10}"

SendKeys "4"

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

وشكرا

  • Like 1
رابط هذا التعليق
شارك

أخي العزيز

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

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

تحياتي,,,

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

 

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

 

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

 

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

 

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

 

SendKeys "{f10}"

SendKeys "4"

 

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

 

 

وشكرا

 

 

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

2017-01-12_16h02_42.png

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

 

 

رابط هذا التعليق
شارك

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

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

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

2017-01-12_16h02_42.png

عندها في الكود الثاني يجب وضع رقم 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"

رابط هذا التعليق
شارك

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

هلووووووووو

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

SendKeys "{F10}"
SendKeys "tdc"

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

SendKeys "{F10}"
SendKeys "]sq"

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Thanks 1
رابط هذا التعليق
شارك

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

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

a.PNG

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

رابط هذا التعليق
شارك

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

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

op.PNG

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information