-PR-
解決済み

ACCESSのVBAで・・・

  • 困ってます
  • 質問No.131406
  • 閲覧数215
  • ありがとう数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
このQ&Aのテーマ
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

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

特集


専門家があなたの悩みに回答!

ピックアップ

ページ先頭へ