Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
613 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10950】Dir関数について VB 09/1/23(金) 10:02 質問[未読]
【10953】Re:Dir関数について 超初心者 09/1/23(金) 16:24 発言[未読]
【10954】Re:Dir関数について VB 09/1/23(金) 18:35 発言[未読]
【10955】Re:Dir関数について 超初心者 09/1/23(金) 19:40 発言[未読]
【10956】Re:Dir関数について VB 09/1/24(土) 10:33 お礼[未読]
【10950】Dir関数について
質問  VB  - 09/1/23(金) 10:02 -
引用なし
パスワード
   VBAのDir関数について教えていただきたいのですが、
フォルダー内のファイルを検索するのに

Dir("D:\ABC\123*.xls")とすると123を含む検索結果が表示されるのですが

フォーム上のテキストボックスに「123」と入力し同じ検索結果を
得ようとする場合は、Dir("D:\ABC\???")の???の部分にテキストボックスの
値を代入すれば良いのでしょうか。

または別の方法があるのでしょうか。

よろしくお願い致します。
【10953】Re:Dir関数について
発言  超初心者  - 09/1/23(金) 16:24 -
引用なし
パスワード
   ▼VB さん：

Dir("D:\ABC\" & [テキストボックスの値] & "*.xls")

これで試してみて下さい。
【10954】Re:Dir関数について
発言  VB  - 09/1/23(金) 18:35 -
引用なし
パスワード
   ▼超初心者 さん：

ご連絡ありがとう御座いました。

私、初心者であまりコードが分からないのですが
下記コードを作って見ましたが、うまく動きません。

おかしいところがあれば教えて頂きたいです。

Private Sub コマンド2_Click()

Dim f As String
Dim fileList As String
Dim TextBox1 As String
Dim strNo As String

'テキストボックスの値
strNo = TextBox1

f = Dir("D:\123\" & strNo & "*.xls")
Do While f <> ""
fileList = fileList & f & ";"
f = Dir
Loop
'フォーム上のリストボックスに表示
With Forms("form").Controls("ListBox1")
.RowSourceType = "Value List"
.RowSource = fileList
End With
End Sub

よろしくお願いします。
【10955】Re:Dir関数について
発言  超初心者  - 09/1/23(金) 19:40 -
引用なし
パスワード
   ▼VB さん：

> Dim TextBox1 As String
> Dim strNo As String

> 'テキストボックスの値
> strNo = TextBox1

どちらも初期値は "" なので、この処理は、
特に何もしていないのと同義かと思います。

フォーム上のテキストボックスの名前が「TextBox1」であるならば、
> strNo = TextBox1
　strNo = Me.TextBox1.Value

> Dim TextBox1 As String　--> 削除？
（他に使用しているのであれば、名称変更した方が混乱しないかも）

こんなところでしょうか

他にもあるかもしれませんが、とりあえず１点まで。
【10956】Re:Dir関数について
お礼  VB  - 09/1/24(土) 10:33 -
引用なし
パスワード
   ▼超初心者 さん：

できる様になりました！
ご指導ありがとう御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
613 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078198
(SS)C-BOARD v3.8 is Free