هل شريط الأدوات تحل المشكلة ؟

الأخ محمد

أجابة السؤال الأول هي :

أن تنشيء الوحدة نمطيه عامة التالية:

   

Public Function BarVis()
On Error GoTo ERR
'-------------الكود التالي بواجهة الأوفس العربي ----------------------------

	DoCmd.ShowToolbar "شريط القوائم", acToolbarNo
	DoCmd.ShowToolbar "قاعدة بيانات", acToolbarNo
	DoCmd.ShowToolbar "عرض النموذج", acToolbarNo
	DoCmd.ShowToolbar "معاينة قبل الطباعة", acToolbarNo
	DoCmd.ShowToolbar "تنسيق (نموذج/تقرير)‏", acToolbarNo
	DoCmd.ShowToolbar "تصميم التقرير", acToolbarNo
	DoCmd.ShowToolbar "تنسيق (PivotTable/PivotChart)", acToolbarNo
	DoCmd.ShowToolbar "تنسيق (نموذج/تقرير)‏", acToolbarNo
	DoCmd.ShowToolbar "Menu Bar", acToolbarNo

ERR:
'-------------إذا كانت واجهة الأوفيس بالإنجيزي ستظهر رسالة رقم الخطأ 2094 أي أن الأوفس بواجه أنجليزية والكود التالي للواجه الأنحليزية ----------------------------

If ERR.Number = 2094 Then
	DoCmd.ShowToolbar "Menu Bar", acToolbarNo
	DoCmd.ShowToolbar "Database", acToolbarNo
	DoCmd.ShowToolbar "Formatting (PivotTable/PivotChart)", acToolbarNo
	DoCmd.ShowToolbar "Print Preview", acToolbarNo
	DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
	DoCmd.ShowToolbar "Form View‏", acToolbarNo
	DoCmd.ShowToolbar "Menu Bar", acToolbarNo
End If
End Function

وتستدعيها سواء عن طريق الماكرو المسمى : أو عن طريق النموذج الذي يفتح مع بداية برنامجك.

ومن قائمة أدوات _ بدء التشغيل تضع علامة صح أمام الخيار ( السماح بأشرطة الأدوات المضمنة )

أجابة السؤال الثاني :

السبب في ظهور الرسالة أنك تستدعي كود على نموذج فإذا أردت لأن تقوم بإستدعاءات عن طريق أوامر الأشرطة فلا بد تكون تلك الأوامر في وحدات نمطيه عامة.

هذا الوحدة النمطية لمثالك.

Function basToHead()
Forms!frmEntryAdd!txtEntr_SerialNo.SetFocus
End Function
Function basToLine()
	Forms!frmEntryAdd!frmSubEntryAllAdd.SetFocus
End Function

أجابة السؤال الثالث هي :

في حدث عند مفتاح لأسفل للنموذج استخدم كود المفتاح والكود التالي للمفتاح Alt + R

Select Case KeyCode
Case 82 And 83 'R =82 Alt=83
Call basToHead
End Select

وهذا مثلك بعد التعديل

mtDB_UP.rar

تسلم الأيادي أبو سارة

فعلا الجواب شامل وواضح جزاك الله خيرآ أخي مصلح