Access　起動時、ウィンドウを最大化したいです

解決済

質問者：nisey1
質問日時：2005/09/30 14:24
回答数：3件

作成したAccessの起動時、ウィンドウを画面いっぱいに最大化して起動する方法はありますか
内側と外側、ウィンドウが２重になっていると思うのですが、それぞれ最大化を自由に指定できるのでしょうか

外側はどちらでもいいのですが、内側のウィンドウを最大化したいです。

わかりにくい表現ですいません。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： DexMachina
回答日時：2005/09/30 14:40

「autoexec」という名前のマクロを作成して下さい。

(必ずこの名前である必要があります)

そのマクロで、「アクション」に「最大化」を指定して保存すれば、起動時に内側ウィンドウが最大化されます。
また、「アクション」に「コマンドの実行」を指定して、画面左下の「コマンド」欄に「最大化 (アプリケーション)」を設定すれば、外側ウィンドウが最大化されます。

「マクロ名」列(デフォルト設定では非表示)に何も入力しない限り、これらや他のアクションを連続して行うこともできます。

- 1
- 件

通報する

この回答へのお礼

アドバイスのおかげでうまくいきました。

マクロは初めてですが自由に使えればほかも便利そうですね。
ありがとうございました

通報する

お礼日時：2005/10/01 16:31

No.3

回答者： 1050YEN
回答日時：2005/09/30 15:00

＞外側

これは、アプリケーション自体を大きくって事ですか？
それであれば、VBAです。

起動時に表示を設定しているフォームの「読み込み時」にイベントプロシージャを指定し、以下のコードを利用することで、フォームだけではなく、アプリケーションも最大化することができます。

Option Compare Database
Option Explicit
Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

'読み込み時イベント
Private Sub Form_Load()
　　Dim lngWnd_Form As Long
　　Dim lngWnd_App　As Long
　　
　　'フォームのハンドル
　　lngWnd_Form = Me.hWnd
　　'アプリケーションのハンドル
　　lngWnd_App = 関数_最高の親取得(lngWnd_Form)
　　
　　
　　'アプリケーションを最大化
　　Call 関数_最大化(lngWnd_App)
　　
　　'フォームの最大化（ここはDoCmd.Maximizeでもいい）
　　Call 関数_最大化(lngWnd_Form)
End Sub

Private Sub 関数_最大化(ByVal inWnd As Long)
　　Const SW_SHOWMAXIMIZED = 3
　　Call ShowWindowAsync(inWnd, SW_SHOWMAXIMIZED)
End Sub

Private Function 関数_最高の親取得(ByVal inWnd As Long) As Long
　　Dim lngWnd　　　As Long
　　Dim lngParent　 As Long
　　
　　lngWnd = inWnd
　　Do
　　　　lngParent = GetParent(lngWnd)
　　　　If lngParent = 0 Then
　　　　　　Exit Do
　　　　End If
　　　　lngWnd = lngParent
　　Loop
　　
　　関数_最高の親取得 = lngWnd
End Function