ＡＣＣＥＳＳのＶＢＡで・・・

Ａｃｃｅｓｓ２０００のＶＢＡで質問があります。
ある特定のフォルダ内のファイル名をコンボボックスのリスト（ＲｏｗＳｏｕｒｃｅ）内に入れたいのですが、方法がわかりません。
どなたか分かる人がいらっしゃいましたらご教授願います。

No.1 ベストアンサー 回答者： teppy 回答日時： 2001/09/07 16:20

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

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

>コンボボックスのリスト（ＲｏｗＳｏｕｒｃｅ）
コンボボックスの「値集合タイプ」プロパティを"値リスト"に設定します
コンボボックスの「値集合ソース」プロパティを""（未入力）に設定します

サンプルを下記に記します
'～～～～～～～～～～
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
'～～～～～～～～～～

この回答へのお礼

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

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