bahsettiğiniz talebinize yönelik olarak;
Module1 adlı modülün içeriğini,öncesinde SHIFT tuşuna basılı tutarak uygulamayı açınız ve kod sayfasına geçerek (ALT + F11),
Kod:
Option Compare Database
#If VBA7 Then
Dim dwReturn As Longptr
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Longptr) As Longptr
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Longptr, _
ByVal nCmdShow As Longptr) As Longptr
#Else
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
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 Functionson olarak;
kod sayfasında DEBUG - COMPILE kontrolü yapılması akabinde herhangi bir soruna rastlanılmamıştır.
bilginize...iyi çalışmalar,saygılar.
