レコードの追加について

質問

Access2007を使用しています。
フィールド名：登録番号1と登録番号2にそれぞれ9999を入力したいと思い、下記のプログラムを組みました。

Sub Sam()
Dim H As Integer
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Test")

rs.AddNew
H = 1
rs!登録番号&H = 9999
H = 2
rs!登録番号&H = 9999
rs.Update

rs.Close
End Sub

実行すると、rs!登録番号&H = 9999 の行で
「実行エラー '3265':
このコレクションには項目がありません。」
とでました。
調べてみたら rs!登録番号1 = 9999 としたいところが rs!登録番号&H = 9999 となっていました。

rs!登録番号1 = 9999 と表示させる事はできないのでしょうか。
どなたかご教授の程、お願いします。

回答No.1

bonaron · ベストアンサー

> rs!登録番号&H = 9999
　rs("登録番号" & H) = 9999

お礼

早っ！
そしてパーフェクト!!
ありがとうございますｗ

うぅ…自分の未熟さが(〃ノωノ)