اظهار أدوات التقرير فقط

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

أرجوا المساعدة في الكود الآتي حيث أني أستعمله لاخفاء أدوات الأكسس

والمطلوب هو اظهار أدوات التقرير فقط وافاء بقية الأدوات

وشكرا

الكود هو

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub