مساعدة فى تعديل خصائص تقرير لإظهاره أثناء إخفاء واجهة أكسس

[أحمد العيسى]

السلام عليكم

عثرت على كود (سطوره قليلة جداً  ) لإخفاء واجهة أكسس  ، والأجمل أنه يعمل على جميع الإصدارات بدءاً من 2003

لكن بشرط التقيد بخصائص النموذج الرئيسى أن تكون فى تبويبات( التنسيق ، غير ذلك ) بمعنى تكون الاختيارات كالتالى :

' كود الوحدة النمطية '
Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
    Private Declare Function apiShowWindow Lib "user32" _
        Alias "ShowWindow" (ByVal hwnd As Long, _
              ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
  Dim loX  As Long
  Dim loForm As Form
  loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

' كود حدث فتح النموذج
Private Sub Form_Open(Cancel As Integer)
   fSetAccessWindow (SW_HIDE)
End Sub

لكن ماذا عن تعديل خصائص التقرير المرتبط به وخاصة إذا كان به إضافة شريط طباعة إضافى أعلاه مثل هذا :

وهذه هى الخصائص المطلوب التعديل عليها :

تحياتى للجميع

تم تعديل أكتوبر 19 بواسطه أحمد العيسى

[أحمد العيسى]

تم التعديل على خصائص التقرير  ( منبثق: نعم  ، شكلى أو مشروط: لا )

واستخدام الأمر

DoCmd.Maximize

عند الفتح

وأصبح لا مشكلة فى ظهور التقرير ، إنما المشكلة فى عدم ظهور إضافة شريط الطباعة المذكور فى الصورة أعلاه

هل من مساعدة ؟

تم تعديل أكتوبر 19 بواسطه أحمد العيسى

[أحمد العيسى]

يبدو  أن الموضوع صعب !!!

بالطبع أستطيع وضع أمر طباعة فى كل تقرير ، لكن ماذا لو كانت التقارير عددها كبير جداً ؟

أو

إظهار الواجهة أثناء تشغيل التقرير لأضع بها شريط الأدوات وبه أيقونة أمر الطباعة ..

وهذا أيضاً غير مرغوب  .

تم تعديل أكتوبر 23 بواسطه أحمد العيسى