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

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

قام بنشر

  في 15‏/6‏/2011 at 19:07, zizo_spyik said:

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

شكرا للجميع

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

قام بنشر

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

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

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

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

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

SendKeys "{f10}"

SendKeys "4"

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

وشكرا

  • Like 1
قام بنشر

أخي العزيز

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

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

تحياتي,,,

  • Like 1
قام بنشر

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

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

قام بنشر

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

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

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

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

  • 5 years later...
قام بنشر
  في 16‏/6‏/2011 at 14:20, عبد الله قدور said:

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

 

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

 

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

 

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

 

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

 

SendKeys "{f10}"

SendKeys "4"

 

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

 

 

وشكرا

 

 

Expand  

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

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

قام بنشر
  في 12‏/1‏/2017 at 12:22, علي محمد الكعبي said:

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

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

Expand  

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

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

2017-01-12_16h02_42.png

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

 

 

قام بنشر
  في 12‏/1‏/2017 at 13:07, عبد الله قدور 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

 

Expand  

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

 

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

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

قام بنشر
  في 12‏/1‏/2017 at 16:35, علي محمد الكعبي said:

هلووووووووو

Expand  

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

SendKeys "{F10}"
SendKeys "tdc"

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

SendKeys "{F10}"
SendKeys "]sq"

 

  • Like 1
قام بنشر
  في 12‏/1‏/2017 at 16:47, علي محمد الكعبي said:

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

Expand  

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

 

  • Thanks 1
قام بنشر
  في 12‏/1‏/2017 at 17:25, علي محمد الكعبي said:

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

a.PNG

Expand  

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

قام بنشر
  في 12‏/1‏/2017 at 17:08, علي محمد الكعبي said:

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

op.PNG

Expand  

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

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

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

قام بنشر
  في 12‏/1‏/2017 at 19:21, محمد سلامة said:

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

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

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

Expand  

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

قام بنشر
  في 12‏/1‏/2017 at 19:21, محمد سلامة said:

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

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

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

Expand  

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

قام بنشر
  في 13‏/1‏/2017 at 05:50, علي محمد الكعبي said:

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

Expand  

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

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

قام بنشر
  في 13‏/1‏/2017 at 08:43, محمد سلامة said:

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

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

Expand  

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

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