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

質問

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

回答No.1

teppy · ベストアンサー

>ある特定のフォルダ内のファイル名
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^)丿
ありがとうございました！！！。