Access2000のVBAで質問があります。
ある特定のフォルダ内のファイル名をコンボボックスのリスト(RowSource)内に入れたいのですが、方法がわかりません。
どなたか分かる人がいらっしゃいましたらご教授願います。

A 回答 (1件)

>ある特定のフォルダ内のファイル名


DIR関数を使用します(ヘルプにて使用方法は確認して下さい)

>コンボボックスのリスト(RowSource)
コンボボックスの「値集合タイプ」プロパティを"値リスト"に設定します
コンボボックスの「値集合ソース」プロパティを""(未入力)に設定します

サンプルを下記に記します
'~~~~~~~~~~
Private Sub コマンド_Click()
Dim stFileName As String
Dim stRowSrc As String
stFileName = Dir("C:\WINNT\*.*", vbNormal)
stRowSrc = ""
Do Until stFileName = ""
If stRowSrc <> "" Then stRowSrc = stRowSrc & ";"
stRowSrc = stRowSrc & stFileName
stFileName = Dir
Loop
Me![リスト].RowSource = stRowSrc
End Sub
'~~~~~~~~~~
    • good
    • 0
この回答へのお礼

お~、出来た~。
感謝感激雨あられ!!!
(^o^)丿
ありがとうございました!!!。

お礼日時:2001/09/07 17:08

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


人気Q&Aランキング

おすすめ情報