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