Ｗｉｎｄｏｗｓ７、Ａｃｃｅｓｓ２０１０でＧｅｔＯｐｅｎＦｉｌｅｎａｍｅを使用するとダイアログが他のウィンドウに隠れてしまう。

Question

一度、こちらで質問させていただきましたが、Office2010ベータフォーラムに情報集約しているのでと言われ、Office2010ベータフォーラムに質問しておりましたが、Office2010ベータフォーラムが終了するとの事で、一度こちらに質問させて頂いた内容ですがよろしくお願いします。

使用環境はＷｉｎｄｏｗｓ7、Ａｃｃｅｓｓ２０１０試用版です。（Ｂｅｔａ版ではありません。）

ＷｉｎｄｏｗｓＸＰ、 Ａｃｃｅｓｓ２００３でフォーム上でファイル名を取得するために、ＶＢＡでＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎのＧｅｔＯｐｅｎＦｉｌｅｎａｍｅを使用して ダイアログを表示させファイル名を取得していました。

Ｗｉｎｄｏｗｓ７、Ａｃｃｅｓｓ２０１０でｍｄｂを変換して使用すると、ダイアログが 他のウィンドウに隠れて、前面に表示されません。

Ａｌｔ＋Ｔａｂキーでウィンドウを切り替えると表示されます。

また、ＶＢＡ のエディット画面を一度表示されると他のウィンドウに隠れず、表示されます。

（一度、Ａｃｃｅｓｓを終了させるとまた他のウィンドウに隠れてしまいます。）

Ｅｘｃｅｌ２０１０でも同様の現象が発生し、他のWindows７、ａｃｃｅｓｓ２０１０のパソコンでも現象が再現します。

テストで使用したソースです。

Private Sub コマンド0_Click()

    Dim objXls As New Excel.Application

    Dim varGetFile As Variant

    Set objXls = CreateObject("Excel.Application")

    objXls.DefaultFilePath = "C:"

    objXls.Quit

    Set objXls = Nothing

    varGetFile = objXls.GetOpenFilename("ファイル (*.xls; *.txt; *.csv), *.xls;*.txt;*.csv", , "ファイル選択")

    If varGetFile <> False Then

        Me.テキスト2.Value = varGetFile

    End If

    objXls.Quit

    Set objXls = Nothing

End Sub

何か解決策はありますでしょう か。

よろしくお願いします。

Answer 1

いっそのこと

他の方法にしてみては

Access 2002 から追加された新機能の FileDialog メソッドを使う方法

http://support.microsoft.com/kb/279508/ja

http://www.tsware.jp/tips/tips_221.htm

さもなくば Windows API を使う

 GetOpenFileName

http://www.accessclub.jp/samplefile/samplefile_78.htm

[ファイルを開く] ダイアログを表示する方法

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetFileName.html

Answer 2

アドバイス通り、いっそのこと変えることにしました。

「http://support.microsoft.com/kb/279508/ja 」にある手法を使うことにしました。

どこかのサイトでAccessでは「msoFileDialogFilePicker」は使えないと 見たので、それを鵜呑みにしてしまったのですが、ガセだったのですね。

ちゃんと試してみるべきでした。

ありがとうございまし た。