同じ項目を全てのサブフォームに一気に入力

個人TBというフォームに科目TBのサブフォームがあり、番号でリンクしています。すべての人のサブフォームの科目と金額欄に同じデータ（サンプルでは"ABC"と"1500"）と入力する作業を一気にやってしまおうという方法です。コマンドボタンに下記のプロシージャを記述しています。

Private Sub コマンド6_Click() Dim i As Long Dim rc As Long rc = DCount("番号", "個人TB") For i = 1 To rc DoCmd.GoToControl "kamoku" DoCmd.GoToRecord , "", acNewRec [kamoku]![科目] = "ABC" [kamoku]![金額] = 1500 DoCmd.GoToRecord acForm, "個人TB", acNext Next i End Sub