Access2000の定数について教えて下さい。

質問

Access2000を現在仕事で使用しています。
インターネット上で、使用したいツールがあり
ダウンロードし使用してみたのですが、
変数が定義されていないというエラー表示が出ます。
FileDialogを使用するときにVBEエディターツールバーのツール
から参照設定画面を表示させ、「MicroSoft Office XX（バージョン） Object Library」を有効にしなくてはならないということなので、
確認し有効としましたが改善されません。
msoFileDialogPickerという定数は、
Access2000(SR-1)で使えるものでしょうか。
VBEエディターは、MicroSoftVisualBasic6.0です。
使えないなら、代替としてどういったものがありますか？
今現在のコードは、下記の状態です。
Private Function FilePickerDialog() As String

With Application.FileDialog(DialogType:=msoFileDialogPicker)
.InitialView = msoFileDialogViewList
.ButtonName = "選択"
.Title = "データベースを選択してください..."
.AllowMultiSelect = False
.InitialFileName = ""
With .Filters
.Clear
.Add Description:="Access Databases", _
Extensions:="*.mda;*.mde;*.mdb"
End With
If .Show Then
FilePickerDialog = .SelectedItems(1)
End If
End With
End Function

回答No.4

bonaron

リンク先の例
Sub SimpleTest()
Dim strFile As String
strFile = wh_GetFileName()
If strFile = vbNullString Then strFile = "キャンセルされました。"
MsgBox strFile
End Sub

この場合、strFile に 選択されたファイルのパスが返ります。
キャンセルされた場合には、空文字列です。
strFile が空文字列でなければ
その値をテキストボックスに代入すれば良いのです。

回答No.3

bonaron

Access2000 では、FileDialog はサポートされていません。

こちらの方法が宜しいかと思います。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetFileName.html

補足

有り難う御座います。
ダイアログの表示は出来るようになりました。

ただ、ここで１つを選択して開くをクリックした時に、
選択したファイルのパスをテキストボックスに表示させたいのですが、
出来ないみたいです。
FilePickerDialog というのが気になるのですが、
勘違いですかね。やっぱり。

どの様にしたら良いか教えてもらえますか？

回答No.2

noname#140971

失礼！AC2002 SP3でした。

[イミディエイト]
? msoFileDialogFilePicker
3
? msoFileDialogViewList
1

これらの記号定数の実体をこのようです。

回答No.1

noname#140971

[Microsoft Office 11.0 Object Library] を参照可能に。
これでＯＫかと思います。

補足

ご回答いただき有り難う御座います。
Access2003のPCで[Microsoft Office 11.0 Object Library]を
有効にして使ってみたのですが、同じエラーがでました。

あとは、何処が悪いのでしょうか？
プログラムの問題ですか？それともAccessの問題ですか？