Dirk,
>then I expect you could use Windows API calls to locate and close the window.
Option Compare Database
Option Explicit
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Const WM_CLOSE = &H10&
Private Const MAX_TEXT_SIZE = 255
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Public lngPrevWndProc As Long
Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'
'
'
WndProc = CallWindowProc(lngPrevWndProc, hwnd, uMsg, wParam, lParam)
End Function
Public Function FindVBEHwnd() As Long
Dim sClass As String
Dim sCaption As String
Dim hwnd As Long
hwnd = GetWindow(GetDesktopWindow, GW_CHILD)
Do
'Class?
sClass = Space$(MAX_TEXT_SIZE + 1)
GetClassName hwnd, sClass, MAX_TEXT_SIZE
'Caption?
sCaption = Space$(MAX_TEXT_SIZE + 1)
GetWindowText hwnd, sCaption, MAX_TEXT_SIZE
If (Trim(sCaption) = Application.VBE.MainWindow.Caption) Then
FindVBEHwnd = hwnd
Exit Function
End If
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop While hwnd <> 0
End Function
Sub CloseVBEWindow_v1()
Application.VBE.MainWindow.SetFocus
SendMessage GetActiveWindow, WM_CLOSE, 0&, 0&
End Sub
Sub CloseVBEWindow_v2()
SendMessage FindVBEHwnd, WM_CLOSE, 0&, 0&
End Sub
Both CloseVBEWindow_v1 and CloseVBEWindow_v2 not only close VBE window but they also close MS Access too :(
SetWindowLong on a MS Access form. What happens if IDE window is open?
