OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ACCESSのVBAで・・・

  • 困ってます
  • 質問No.131406
  • 閲覧数191
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 82% (23/28)

Access2000のVBAで質問があります。
ある特定のフォルダ内のファイル名をコンボボックスのリスト(RowSource)内に入れたいのですが、方法がわかりません。
どなたか分かる人がいらっしゃいましたらご教授願います。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル7

ベストアンサー率 50% (9/18)

>ある特定のフォルダ内のファイル名
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
'~~~~~~~~~~
お礼コメント
mataro

お礼率 82% (23/28)

お~、出来た~。
感謝感激雨あられ!!!
(^o^)丿
ありがとうございました!!!。
投稿日時 - 2001-09-07 17:08:51
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ