項目

Accessの最大化

概要

Accessを最大化します。「ShowWindow」を使用します。
「nCmdShow」を変更すれば「ノーマル」「最小化」等が実行できます。

例

Option Compare Database
Option Explicit

'-------------------------------------------
' API宣言
'-------------------------------------------
Private Declare Function ShowWindow Lib "user32" _
       (ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

'【nCmdShow】
'	0省略
'	1	:	ノーマル
'	2	:	最小化
'	3	:	最大化
'	4〜11省略

'-------------------------------------------
' Accessの最大化
'-------------------------------------------
Public Function Accessの最大化()
    Dim rt As Long
    rt = ShowWindow(Application.hWndAccessApp, 3)
End Function