الاخوة الكرام
السلام عليكم ورحمة الله
لدي سؤوال حول كود ضغط وأصلاح قاعدة البيانات الحالي
SendKeys "{F10}"
SendKeys "]sq"فهو لا يعمل الا إذا كانت القاعدة مفتوحة ( يعني لم يتم الغاء اشارة (صح) من خيارات بدأ التشغيل)
فما هو الحل لينفذ الامر حتى في حالة كون القاعدة غير مفتوحة
مع خالص التحية
تم تعديل هذه المشاركة بواسطة منذر عساج في 6 مايو 2006 في 21:41
للإطلاع.....
لماذا تستخدم كود أو زر لتنفيذ تلك العملية؟
يمكنك جعل العملية كلها تلقائية من خلال قائمة أدوات - خيارات - عام وضع علامة صح على مربع (ضغط عند الاغلاق)
انظر الصورة المرفقة
(النسخة المستخدمة هي اوفس2003)
شكراً أخي العزيز
ولكني لا أريد الضغط عند الاغلاق
ان اريد استخدام الكود لينفذ امرين معاً
امر استدعاء استعلام حذف
وامر ضغط واصلاح
للرفع والاطلاع ,,,
أعتقد أن في قسم vb.net مرادك و لكن يبقي عليك تحويل الكود :(
شكراً لتكرمك بالإطلاع
ليس لي الخبرة الكافية في الفيجول بيسك
يرجى ممن لديه الخبرة محاولة المساعدة
تحياتي ,,,,
الف الف شكر
يعطيك الف عافية أخي العزيز hosain21
الكود يعمل بصورة جيدة
عدا انه لا يعمل مع اللغة العربية
ولكن الفكرة نجحت تماماً
وهذا هو الكود لمن اراد الاستفادة منه وجزا الله من عمله خيراً
CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultActionشكراً لكل من حاول المساعدة
أخوكم / منذر عساج
تم تعديل هذه المشاركة بواسطة منذر عساج في 9 مايو 2006 في 20:04
هذا الموضوع مغلق.