QA@IT
この質問・回答は、@ITの旧掲示板からインポートされたものです。

Access2007の画面を非表示にし、フォームのみを表示させたい

Access2007の画面を非表示にし、フォームのみを表示したいと考えています。

環境
MicrosoftAccess:2007 SP1
OracleClient :10.2.0

OS :WindowsVista

Access2000のときには以下のリンクを参考にさせて頂き、フォームのみの表示ができていました。
http://www.nurs.or.jp/~ppoy/access/access/acEt008.html

フォームのみの表示をAccess2007でも行いたいのですが、上記リンクと同じようにしてもうまくいかず、解決策も見つかっておりません。
解決策をご存じの方がいらっしゃいましたら、ご教授いただけないでしょうか。
よろしくお願いいたします。

質問者:いまかは

回答

補足させていただきます。

Access2000のときは以下のような環境で、ShowWindow関数の第二引数にはウィンドウを最小化する6を指定していました。
するとフォームだけが表示されました。そしてタスクバーにはAccessのタスクがあり、タスクバーのタスクをクリックしてもAccess2007ウィンドウは表示されずフォームのみが常に表示されている状態でした。

以前の環境:
MicrosoftAccess:2000
OracleClient :10.1.0
OS :Windows2000とXP

----------------------------------------------------------------------------
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

' ウィンドウの表示状態を指定する定数の宣言
Public Const SW_MINIMIZE = 6 ' ウィンドウを最小化
----------------------------------------------------------------------------
----------------------------------------------------------------------------
Private Sub Form_Load()
If isDebug() = False Then
rc = ShowWindow(Application.hWndAccessApp, SW_MINIMIZE)
End If
End Sub
----------------------------------------------------------------------------

今回Access2007においても、ShowWindow関数の第二引数に6を指定しました。
結果はフォームだけが表示されるのですが、タスクバーのAccessタスクをクリックするとウィンドウが上がってきてしまいます。ウィンドウが上がらない方法はないのでしょうか。
よろしくお願いします。

投稿者:いまかは

編集 履歴 (0)
ウォッチ

この質問への回答やコメントをメールでお知らせします。