05. Этот пример показывает как с использованием API интерфейса и других действий изменять главное окно Access.
' Константы отображения
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_NORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MAX = 10
' Функция управляет отображением окна
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
' Команды в котором создаются приложения
Dim appAcc As Access.Application
' Отобразить окно
Private Sub butON_Click()
Dim s As String
On Error Resume Next
' Выход из приложения
Form_Close
' Открываем окно
Set appAcc = New Access.Application
s = Application.CurrentProject.Path "\" "la_form.mdb"
appAcc.OpenCurrentDatabase (s)
appAcc.Visible = True
apiShowWindow appAcc.hWndAccessApp, Me.grShow
End Sub
' Окно базы данных
Private Sub butWinDataBase_Click()
DoCmd.SelectObject acForm, "Пример 05", True
If Me.butWinDataBase = False Then
DoCmd.RunCommand acCmdWindowHide
End If
DoCmd.SelectObject acForm, "Пример 05", False
End Sub
' Выход из системы
Private Sub Form_Close()
On Error Resume Next
appAcc.Quit acQuitSaveNone
Err.Clear
End Sub