Yalnız Mesajı Göster
Eski 01-11-2017, 06:45  
ojibu
Altın Üye
 
ojibu kullanıcısının avatarı
 
Giriş: 14/06/2005
Şehir: Şanlıurfa
Mesaj: 143
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

kendim araştırarak çözdüm. belki benim gibi bilmeyenlere yardımcı olması açısından . Autoexec isimli bir makro oluşturup, içerisine;
fAccessWindow ("Hide", False, False)
makrosu yazılıp, daha sonra gizle diye bir modül açıp içerisine;
Option Compare Database
Option Explicit
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

Public Sub Kapat()
Application.Quit acQuitSaveAll
End Sub

yazımak lazım. Kapat diye bir buton koyup Kapat makrosu gösterilirse x den kapatırsanız alt tarafta access açık kalıyor. bu nedenle kapat makrosu da lazım.
selamlar....
ojibu Çevrimdışı   Alıntı Yaparak Cevapla