كيف يفتح التقرير في هذا المثال

[euro_999]

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

سؤالي : كيف يفتح التقرير في هذا المثال .........ولكم مني جزيل الشكر

حمـــــــــــــــــل من هنـــــــــــــــــــــا

[التقني]

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

الكود :

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 افتح البرنامج ستظهر التقارير مع اختفاء واجهة الأكسيس وحصلت على ما تريد .

والله أعلى وأعلم

تم تعديل سبتمبر 4, 2006 بواسطه التقني

[التقني]

لاحظ وانتبه الى التالي :

لاتقم بفتح أي نموذج ومن ثم فتحه بعرض التصميم

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

ولغلق الأكسيس قسرياً قم بالتالي :

1- اضغط Alt+Ctrl+Del

2- سيظهر لك مدير مهام الويندوز أو Windows Task Manager

3- في تبويبة التطبيقات أو Applications لن تجد الأكسيس ضمن البرامج النشطة والعاملة لكن ..

4- توجه الى تبويبة العمليات أو Processes ستجد برنامج الأكسيس باسم MSACCESS

5- بحذر ضع المؤشر على MSACCESS واضغط انهاء العملية End Process

وبالتوفيق

تم تعديل سبتمبر 4, 2006 بواسطه التقني

[euro_999]

التقني

جزاك الله خير ...............على المساعده