アクセスVBAでファイルダウンロード ファイル名が変数

質問

たびたびおそれいります。
API URLDownloadToFile　を用いてファイルをダウンロードするのですが、ファイル名の変化にフォーム入力で対応しようとしています。
Const strURL = "http://www.ABC.or.jp/EFG/xy1212z.txt"
とすると問題なくダウンロードできます。数字部分が変わるので、フォームのテキストボックスに入力済の数字（別の用途）を変数として
処理したいのですが、
Const strURL = "http://www.ABC.or.jp/EFG/xy" & Mid(Forms![FRM1]![TXT1], 5, 4) & "z.txt"
とすると、コンパイルエラー；定数式が必要です。　となります。ヘルプを見ても理解できませんでした。
お手数ですがご教示ください。

回答No.1

bonaron · ベストアンサー

以下のように。

Dim strURL As String
strURL = "http://www.ABC.or.jp/EFG/xy" & Mid( ．．．

または
Const cnsURL = "http://www.ABC.or.jp/EFG/xy"
Dim strURL As String
strURL= cnsURL & Mid( ．．．

コンスタント というくらいですから
他の変数やコントロールを参照できません。
他の定数は参照できますが。

お礼

素早いご回答ありがとうございます。あっさり上手くいきました。
他の変数やコントロールを参照できない・・・そういうことだったのですね。恥ずかしい限りです。
ありがとうございました。