الأخوة الكرام
السلام عليكم ورحمة الله وبركاته :
س/ ماهو الكود الذي يمكن إضافته لزر أمر يقوم بضغط قاعدة البيانات وإصلاحها ؟؟؟
ولكم جزيل الشكر ،،،،،،،،،،،،،، B)
ماهو كود ضغط قاعدة البيانات
مغلق
السلام عليكم ورحمه الله وبركاته ،،،
تفضل ...
أخي الكريم /
اليك الطريقة مع مثال .
إضافه وحدة نمطية جديده .
وتضع فيها الكود التالي :
كود :
Option Explicit
Function CompactDB()
SendKeys "{F10}"
SendKeys "]sq"
End Functionتم تحفضها بأي أسم تريدة ...
ثم تذهب الى النماذج ،
نموذج جديد وتضع فيها الكود التالي عند التحميل :
كود :
Dim x x = CompactDB()
ثم تحفظ النموذج باي اسم تريد مثلا حرف (A)
وبعد الحفظ تقوم بغلق النموذج ثم في الصفحة الرئيسية او المكان الذي ترغب ان تشاهد الزر
فيه تقوم بإضافة زر أمر وتطلب في زر ألامر ان يفتح النموذج (A) وبهذه الطريقة يكون لديك زر ضغط وإصلاح .
واليك المثال للتوضيح ،،،
طبعا الطريقة تعلمتها من مثال الاستاذ / أبو عقيل .
مع تحياتي ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
الأخ الفاضل عبد المانع
السلام عليكم
أولاً ــــ أشكررررررك على إهتمامك بالإجابة على سؤالي .
ثانياً :: لقد قمت بعمل إضافة الكود حسب شرحك ولكن دون جدوى لم ينفذ معي أرجو إفادتي عن السبب
قبل إجابتي أرجو المعذرة على تكرر الإستفسار ولكن ثق بأنني قمت بعمل شرحك بكل دقة
وتقبل فائق التحية
تم تعديل هذه المشاركة بواسطة ثبيت عرب في 24 مايو 2005 في 19:08
السلام عليكم ورحمة الله وبركاته ،،،
أخي الكريم / ثبيت عرب
هل قمت بالاضافه الكود الاول في الوحده النمطيه العامه وليست الخاصه بالنموذج ؟
ثم تقوم بحفظها باي أسم تريده ،
بعد ذلك تفتح نموذج جديد ،،،
ثم تضع الكود الاخير في النموذج عند التحميل ،
و تفتح النموذج الذي عملت به الكود وسف تلاحظ التغيير الذي تم (ضغط وإصلاح)
وحيث ان الضغط يكون بهذه الطريقه الخاص بزر الامر ويتم ذلك عن طرق نموذج آخر .
أعتقدت ان شرحي واضح والمثال يوضح أيضا ،،،
مع تحياتي ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
السلام عليكم
أستاذي الفاضل عبد المانع
إكتشفت أنه إذا فتحت النموذج الموجود به زر الأمر من صفحة قاعدة البيانات ياسلام سلم ولا أحلى تمام التمام وأدعي وأقول الله يخليك ياعبد المانع
وإذا جعلت النموذج الموجود به الأمر هو صفحة البداية لا يعمل الأمر نهائياً وأرجع وأقول أين أنت ياعبد المانع ......
أرجو تحديد المشكله أين هي وما هو حلها ولكم فائق التحية والاحترام ،،،،،
مرفق مثال
أخوكم
ثبيت عرب
السلام عليكم ورحمة الله وبركاته ،،،
أخي الكريم
وحيث عرفت السبب وقمت بالتعديل على مثالك الذي أرفقته والسبب هو ترتيب المكتبات في ( Tools ) سوف يكون على النحو التالي :
والطريقه هي :
1 - إذهب إلى الوحدة النمطية وإضغط على ( تصميم ) .
2 - سوف تظهر لك شاشة ( مايكروسوفت فيجول بيسك ) .
3 - اختر قائمة ( Tools )
4 - سوف تظهر لك قائمة إختر منها ( References )
5 - سوف تظهر لك نافذة ( Refernces Sample )
6 - هذه النافذة فيها أسماء المكتبات التي تحتاجها قاعدة البيانات لكي تعمل بالشكل
الصحيح .
7 - ضع علامة ( صح ) أما كل من المكتبات التي ذكرتها لك وهي :
اقتباسVisual basic for applicationsMicrosoft Access 10.0 object library
Microsoft DAO 3.6 objects library
Mircrsoft Activex Data objects 2.1 library
OLE Automatin
بالترتيب كما هي ،،، وإن شاء الله سوف يعمل معك البرنامج ,,,
مرفق لك مثالك بعد التعديل عليه .
الله ولي التوفيق ،،،
عبدالمانع
تم تعديل هذه المشاركة بواسطة عبدالمانع في 25 مايو 2005 في 12:18
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
السلام عليكم ورحمة الله وبركاته :
أستاذي الفاضل عبد المانع ::::::
::::::: أشكرك جزيل الشكر على إهتمامك داعياً الله عز وجل أن يوفقك أنت وأساتذتنا وجميع القائمين على هذا المنبر العلمي وأن يجعل ما تقومون به وماتقدمونه في ميزان حسناتكم .
كما أخبرك بأن المشكله عثرت عليها وهي تعطيل إختيار السماح بالقوائم الكامله في بدء التشغيل والحل هو تنشيط الإختيار بدلاً من تعطيله
أكرر شكرررررري وتقدير لك وتقبل فائق تحياتي
تلميذك
ثبيت عرب
وعليكم السلام ورحمة الله وبركاته،،،
اهلاً بك أخي الكريم / ثبيت عرب
ما دام المشكله انحلت ،،، بالتوفيق ، أسأل الله التوفيق لنا ولكم ،،،
مع تحياتي ،،،
عبدالمانع
إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
أخي الكريم مازال هناك مشكلة بالكود فهو يسبب توقف للبرنامج أي تجميد للبرنامج فأرجو الاطلاع عليه مرة أخرى
هذا الموضوع مغلق.