السلام عليكم ورحمة الله وبركاته 
  
يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه ) 
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