文字列を連結した後に１つの変数として定義したい

質問

OpDate1、OpDate2・・・というように変数にデータを割り当てていたとき、テーブル（tbl_Option）に先ほどのデータを変数として更新クエリとして処理を行いたいのですが、文字列の連結後を１つの変数とした場合の定義の仕方がわかりません。ご教授をお願いします。

OpDate1 = #10/10/2013#
OpDate2 = #11/10/2013#
OpDate3 = #12/10/2013#

Set DBH = CurrentDb()
sql = " SELECT tbl_Option.* FROM tbl_Option;"
Set rs = DBH.OpenRecordset(sql)
If rs.RecordCount <> 0 Then
rs.MoveLast
rs.MoveFirst
For iintLoop = 1 To rs.RecordCount
With rs
Set DBH2 = CurrentDb()
→→ sql2 = " UPDATE tbl_Option SET tbl_Option.試用期限 = #" & "OpDate" & iintLoop & "#" _
& " WHERE (((tbl_Option.処理番号)=" & iintLoop & "));"
DBH2.Execute sql2

.MoveNext
End With
Next iintLoop
End If

回答No.1

30246kiku · ベストアンサー

雰囲気、以下の様な処理ではダメでしょうか

「処理番号」が、1 ～ レコード数 以内であれば、
2013/9/10 を起点にして、何ヶ月（処理番号）加算した日付を設定する

Dim iLast as Long

Set DBH = CurrentDb()
sql = " SELECT tbl_Option.* FROM tbl_Option;"
Set rs = DBH.OpenRecordset(sql)
If(Not rs.EOF) Then
　　rs.MoveLast
　　iLast = rs.RecordCount
　　rs.MoveFirst
End If
While(Not rs.EOF)
　　If((rs("処理番号") >= 1) And (rs("処理番号") <= iLast)) Then
　　　　rs.Edit
　　　　rs("試用期限") = DateAdd("m", rs("処理番号"), #9/10/2013#)
　　　　rs.Update
　　End If
　　rs.MoveNext
Wend
・・・

提示された物でやろうとしたら、個々の変数名を定義するのではなく
Dim OpDate(1 to 100) As Date
とか持っておいて
OpDate(1) = #10/10/2013#
OpDate(2) = #11/10/2013#
OpDate(3) = #12/10/2013#
とかして
" UPDATE tbl_Option SET tbl_Option.試用期限 = #" & "OpDate" & iintLoop & "#" _
↓
" UPDATE tbl_Option SET tbl_Option.試用期限 = #" & OpDate(iintLoop) & "#" _
ただ、レコード数分事前に配列を用意する必要がありますけど

また、For 内では rs を参照していない様なので閉じておいてもよいのでは、と。

どうしても変数名で別々にしたいのであれば、他の方の回答を待ってください。
また、上記はなかった事にしてください。
なお、上記記述はメモ帳に直接書いているので、動かなかったらごめんなさい。

お礼

有難うございます。なるほどと思いました。早速対応してみたいと思います。