اطار اكسس 2010

[Mkeshk]

ارجو طريقه لإخفاء إطار اكسس 2010

 

[محمد أبوعبدالله]

السلام عليكم ورحمة الله وبركاته

ضع الكود التالي في وحدة نمطية جديدة

Option Compare Database
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Sub HideAccess()
    Call ShowWindow(Access.hWndAccessApp, 0)
End Sub
Public Sub ShowAccess()
    Call ShowWindow(Access.hWndAccessApp, 5)
End Sub

وفي نموذج البداية ضع الكود التالي في حدث عند الفتح

Private Sub Form_Open(Cancel As Integer)
    Call HideAccess
End Sub

تحياتي