الاخوة الافاضل ..... السلام عليكم ورحمة الله وبركاته
لدي وحدة نمطية لأخفاء اطار الاكسس .... كيف أجله يظهر الأطار بعد اخفاءه ... أي يعمل العكس ...
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