access 任意の数のレコードを追加する

エクセルで準備を整え、いよいよaccessでのフォームを始動。
コンボボックスt_numberで指定した数の分だけレコードを追加できる。

Private Sub cmdOK_Click()
Set myRS = New ADODB.Recordset
myRS.Open "Q_研修登録一括", CurrentProject.Connection, adOpenKeyset, adLockOptimistic Dim i As IntegerFor i = 1 To Me.number
myRS.AddNew
myRS(0).Value = 顧客番号.Value
myRS(1).Value = 実施日.Value
myRS(2).Value = コース内容.Value
myRS(3).Value = 請求料金.Value
myRS(4).Value = 部署.Value
myRS(5).Value = 職歴.Value
myRS(6).Value = 備考.Value
myRS(7).Value = 入金日.Value
myRS.Update
i = i
Next i
myRS.Close
Set myRS = Nothing
MsgBox "登録しました"
Forms!F_顧客詳細.研修内訳.Requery
Forms!F_顧客詳細!最終更新日 = Date
DoCmd.Close
End Sub