- PR -

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

1
投稿者投稿内容
いまかは
会議室デビュー日: 2009/04/09
投稿数: 2
投稿日時: 2009-04-09 17:36
Access2007の画面を非表示にし、フォームのみを表示したいと考えています。

環境
MicrosoftAccess:2007 SP1
OracleClient :10.2.0
OS :WindowsVista

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

フォームのみの表示をAccess2007でも行いたいのですが、上記リンクと同じようにしてもうまくいかず、解決策も見つかっておりません。
解決策をご存じの方がいらっしゃいましたら、ご教授いただけないでしょうか。
よろしくお願いいたします。
いまかは
会議室デビュー日: 2009/04/09
投稿数: 2
投稿日時: 2009-04-10 10:48
補足させていただきます。

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タスクをクリックするとウィンドウが上がってきてしまいます。ウィンドウが上がらない方法はないのでしょうか。
よろしくお願いします。
1

スキルアップ/キャリアアップ(JOB@IT)