SAJAD200000
شنبه 26 بهمن 1392, 12:04 عصر
سلام
از اساتيد محترم ميخام به من توضيح بدن كه اگر بخام زماني كه فرم اكسزم مياد بالا خود برنامه اكسز مخفي يا بسته بشه و فقط فرم هاي مربوطه بمونه چكار بايد كنم
مرسي
bita_ziba77
دوشنبه 28 بهمن 1392, 12:56 عصر
با سلام
ابتدا يك ماژول جديد ساخته و كد زير را در آن كپي كنيد:
Option Compare Database
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function
سپس كد زير را در رخداد Form_Load خود قرار دهيد.
Private Sub Form_Load()
HideForm = fAccessWindow("hide", True, True)
End Sub
SAJAD200000
دوشنبه 28 بهمن 1392, 16:24 عصر
رخداد Form_Load كجاست ؟
bita_ziba77
سه شنبه 29 بهمن 1392, 14:09 عصر
با سلام
منظور همان رخداد On load و در بخش property و تب Event و در حالت Design form مي باشد.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.