Access VBA質問箱 IV

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

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


2315 / 9994 ←次へ | 前へ→

【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

よろしくお願いします。
503 hits

【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 お礼[未読]

2315 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078199
(SS)C-BOARD v3.8 is Free