الكود هو للمشاركة الاولى وهي تعمل بشكل صحيح
Private Sub CmdCR_Click()
SendKeys "{F10}"
SendKeys "]sq"
End Sub
الكود هذا يقوم بعملية الضغط والإصلاح للنسخة العربية من برنامج الأكسيس هو :
تقوم الدالة SendKeys بإرسال الأمر للمفتاح F10 وهذا يقوم بالتوجه مباشرة الى قائمة ملف File ويكون التركيز عليها بدون فتحها فقط التاشير على الأمر ملف من قائمة الأكسيس حاول تجرب المفتاح F10 من لوحة المفاتيح عندما يكون لديك نموذج مفتوح وشريط القوائم ظاهر لديك . ... نكمل بقية الكود
ايضا بعد تنفيذ الأمر السابق تقوم الدالة SendKeys بإرسال الأوامر الى المفاتيح من لوحة المفاتيح وهي " [ " وهذا يعني اختيار الحرف العربي " د " ويعني أ&دوات انظر هنا تم اختيار حرف د لأنه يوجد بجانبه حرف & ان الحرف المقابل له في النسخة الإنجليزيه هي Tools& يعني انت تختار في نسختك الإنجليزيه الحرف T ثم يتم اختيار الحرف " s " وهذا يعني في النسخة العربية الحرف " س " وهو يشير الى أدوات م&ساعدة لقواعد البيانات بمعنى ان حرف السين هو الذي سيكون عليه الإختيار اما في النسخة الإنجليزية فسيكون Database utilities& يعني اختيار حرف d ثم يتم اختيار الحرف q في النسخة العربية للأكسيس وهذا يعني اننا اخترنا &ضغط قاعدة البيانات واصلاحها وهذا يعني اختيار حرف ض اما في النسخة الإنجليزية Compact and repair database& بمعنى يتم اختيار الحرف c ليصبح الكود للنسخة الإنجليزيه بهذا الشكل