وعليكم السلام ورحمة الله وبركاته
الكود :
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
والكود
Function fSetAccessWindow(nCmdShow As Long)
Dim ss As Long
ss = apiShowWindow(hWndAccessApp, nCmdShow)
End
End Function
مسئولان عن هذا عن اخفاء واجهة الأكسيس وبطريق الاستدعاء التالي :
fSetAccessWindow (SW_SHOWMINIMIZED)
يتم منع واجهة الأكسيس ومن ثم منع ظهور التقارير .
يمكن عرض التقارير بطريقتين :
1- بفتح البرنامج مع الضغط على مفتاح Shift وبالتالي تفتح التقارير زي الحلاوة لكن بوجود واجهة الأكسيس (الغير مرغوب بها ) وهذا ما لا نريده .
2- بوضع الكود التالي :
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
ودون الحاجة لإستعمال الـShift افتح البرنامج ستظهر التقارير مع اختفاء واجهة الأكسيس وحصلت على ما تريد .
والله أعلى وأعلم