Граждане, подскажите пожайлуста. Как убить окно Access-а при запуске некоего приложения. Нашел на форуме такую вот функцию:
Option Compare Database
Option Explicit

Public Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Declare Function FindWindowEx& Lib "user32" _
Alias "FindWindowExA" (ByVal _
hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassname As String, _
ByVal lpWindowName As String)

'если bHide=True - окно прячется, если False - показывается
Public Function HideDB(Optional bHide As Boolean = True)
Dim s As String
Dim slash As Integer
Dim point As Integer
Dim i As Integer
Dim ret
Dim hwnd As Long
Dim hwndDB As Long
s = Application.CurrentDb.Name
For i = 1 To Len(s)
If Mid(s, i, 1) = "\" Then slash = i
If Mid(s, i, 1) = "." Then point = i
Next i
slash = slash + 1
s = Mid(s, slash, point - slash)
hwnd = FindWindowEx(Application.hWndAccessApp, 0, "MDIClient", "")
If hwnd <> 0 Then
hwndDB = FindWindowEx(hwnd, 0, "ODb", s & " : база данных")
If hwndDB = 0 Then
hwndDB = FindWindowEx(hwnd, 0, "ODb", s & " : Database")
End If
If hwndDB <> 0 Then
If bHide Then
ret = apiShowWindow(hwndDB, 0)
Else
ret = apiShowWindow(hwndDB, 1)
End If
End If
End If
End Function
Но, толи я не понял, как она работает, то ли эта функция просто не пашет - результат отрицательный (. Если кто-нибудь в курсе, что здесь написано, или как это окно убрать - напишите пожайлуста