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

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

قام بنشر

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

شكرا للجميع

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

قام بنشر

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

أخي استطيع مساعدة في حال انك تستخدم اكسس 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

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

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

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

قام بنشر
3 ساعات مضت, محمد سلامة said:

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

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

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

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

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

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

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

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

قام بنشر
2 ساعات مضت, محمد سلامة said:

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information