Windows７でのAccessフォーム表示

質問

連投、申し訳ありません。
前の質問の仕方および内容が明確になっていませんでしたので書き直しさせていただきます。
前の質問は
http://okwave.jp/qa/q6581782.html
になります。

WindowsXP上で
Access2007でAccessWindowを最小化しフォームのみを表示しています。
この状態でタスクバーをクリックしてもAccessウィンドウは表示されません。

これをWindows7上で動かすと、タスクバーのクリックでAccessのウィンドウが
表示されてしまいます。

これを防ぐ方法は無いものでしょうか？

よろしくお願いいたします。

回答No.2

30246kiku · ベストアンサー

＃１です

> APIを使用してAccessウィンドウを小さくして邪魔にならない場所に表示することで逃げようかと考えています

邪魔にならない/隠せる場所があれば、その方が良さそう（簡単そう）ですね。

以下、私がメモしていたもので、ここに記述することが許されるのかわかりません。

※ ＃１の内容について通報してくださった方がおられたようです
※ Googleで、6583610 を検索すると、通報・・・が見つかります
※　ご質問自体に問題はないと思うので＃１の内容かと・・・

※ 同様以上、問題あれば、通報をよろしくお願いいたします。

以下の内容は、サイト moug のQAで、2009/6/15 近辺のもの
６ヶ月を過ぎていて、今は見ることができません。

Accessウィンドウ枠固定方法
http://www.moug.net/faq/viewtopic.php?t=39049&sid=a174fed8c71903692a648cf754e46f0b

Accessを開いたときの大きさを固定したいのですがどうすればいいのでしょうか
フォームの場合は
　Private Sub Form_Open(Cancel As Integer)
　　DoCmd.MoveSize 7650, 3450, 3450, 2925
　End Sub
とかでできますけど最初にAccessを開いたときのサイズを固定したいと思っているのですが...

標準モジュールで、

Public Declare Function SetWindowPos Lib "user32" _
　　(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
　　 ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
　　 ByVal fuFlags As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
　　(ByVal hWnd As Long, ByVal fRever As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
　　(ByVal hMenu As Long, ByVal uItem As Long, ByVal fuFlags As Long) As Long

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = &H0
Public Const SC_SIZE = &HF000
Public Const SC_MAXIMIZE = &HF030
Public Const SC_CLOSE = &HF060
Public Const SC_RESTORE = &HF120
Public Const MF_BYCOMMAND = &H0&

起動時に開くフォームの開くときイベントで、

Dim hWnd As Long

　　hWnd = Application.hWndAccessApp
　　SetWindowPos hWnd, HWND_TOP, 0, 0, 800, 600, SWP_NOMOVE
　　hWnd = GetSystemMenu(hWnd, 0)
　　RemoveMenu hWnd, SC_SIZE, MF_BYCOMMAND

上記は単にメモしていたもので、どのような動きをするのか確認はしていません。

また、この VBA 記述部分は、私が書けないサイトにも紹介されていますね。
（書けないサイトの方が、日付的には古いようですが）

※※ じきにBAを選ばなくても質問を閉じれるようになるようです。
BAコレクターではないので、それまで待って閉じてください。
（後から見に来られる方のことを考えて・・・）

※ 問題あれば、通報をよろしくお願いいたします。

失礼しました。