اخواتى فى الله لقد صممت برنامج بمسعده بعض الاعضاء هنا فى المنتدى بس عندى مشكله البرنامج شغال كويس جدا بس عند اخفاء شاشه الاكسيس من الخلفيه الفورم بيظهر وازرار النمازج شغاله ماعدا ازرار الريبورتات...ولما بدوس عليها البرنامج بيهنج وبيقف مع انى عملت كل حاجه صح
1- انشأت وحده نمطيه والصقت بها هذا الكود
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
2-وضعت هذا الكود فى حدث التشغيل
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
3- في خصائص النموذج تحت التبويب "تنسيق" (Format) حولت خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog).
2- في التبويب "الكل" (All)
حولت الخاصية "منبثق" (Pop up) الى نعم (Yes)
حولت الخاصية "مشروط" (Modal) الى نعم (Yes)
وعند غلق البرنامج وفتحه يفتح مع ويخفى شاشه الاكسيس بالفعل ولكن عند الضغط على زرالريبورتات لا يعمل
ملحوظه : جميع الازرار تعمل بكفاءه عندما لا يتم اخفاء شاشه الاكسيس اما عند اخفائها يحدث ذللك فما السبب ارجو المساعده
