access 一度に複数のレコードを登録

「一度にまとめて登録したい！」とリクエストがあったので、めんどくさいと思いながらも色々と試行錯誤。ネットで他の方が書いてくれたコードを参考にしつつ、ボタンによって8つ／6つ／4つと登録数を変えられるようにした。

Private Sub cmdOK_Click() Set myRS = New ADODB.Recordset myRS.Open "Q_研修登録一括", CurrentProject.Connection, adOpenKeyset, adLockOptimistic myRS.AddNew If コース.Value = "8ヶ月コース" Then myRS(0).Value = 顧客番号.Value Else myRS(0).Value = Null End If myRS(1).Value = テキスト1.Value myRS(2).Value = テキスト9.Value If コース.Value = "8ヶ月コース" Then myRS(3).Value = コース.Value Else myRS(3).Value = Null End If myRS.Update

フォームを作った後こんな感じのものを延々と貼っていけばOK。