Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4724 / 9994

←次へ　｜　前へ→


	【8512】Re:価格更新について

雅 - 06/8/24(木) 17:29 -


	引用なし

	パスワード

こんにちわ。雅です。

>>>> Sub 追加クエリの実行()
>>>> Const CSVPath = "c:\uriage\支店\0827.csv"
>>
>>の箇所を
>>
>>Sub 追加クエリの実行(CSVPath As String)
>>
>>の様にして、
>>　　Call 追加クエリの実行(dlgOpen.SelectedItems(1))
>>
>>と呼び出すのが一番手っ取り早いでしょうか。
>
>この説明さえも把握できません。
>モジュールとコードを混同しているのでしょうか。

どの辺がわかりませんか？
小僧さんはTB1さんが作った
Sub 追加クエリの実行
という関数を、引数が受けられる形にしてパラメータを渡すように
改造しましょうと書いています。

>Sub ダイアログテスト()
>Dim dlgOpen As FileDialog
>
>　　Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
>
>　　With dlgOpen
>　　　　.AllowMultiSelect = False
>　　　　.Show
>　　End With
>　　
>　　Msgbox dlgOpen.SelectedItems(1)
>
>End Sub

これの動作確認はできたんですよね？

であれば
dlgOpen.SelectedItems(1)
が、表示できる段階で「追加クエリの実行」呼び出せばいいということに
なります。
ということは、逆にたどると「追加クエリの実行」を呼び出す前に

>Dim dlgOpen As FileDialog
>
>　　Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
>
>　　With dlgOpen
>　　　　.AllowMultiSelect = False
>　　　　.Show
>　　End With

が書いてあればいいということになります。

# 小僧さんフォローありがとうございます

でわ。

745 hits

▼

【8470】価格更新について TB1 06/8/17(木) 11:15