بعد اضافة هذه الاكواد لالغاء قوائم الاكسيس بالفعل تم الغاء قوائم الاكسيس لكن حصلت مشكلة ان فورم التقارير لم يعد يفتح ويغلق البرنامج ولا يفتح البرنامج ثانية الا عمل log off
ارجو الحل هذا هو الكود قد تعلمته من منتداكم الكريم
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
وفي فورم البدء
2 – نذهب الى فورم البداية ونفتح الحدث في التحميل
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
