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