Microsoft Access VBA将数据从表单添加到表未绑定的表单

如何使用代码和用户输入生成的数据将记录添加到DeploymentStep表和DeploymentPlan表中？

我有如下表格

支柱团队部署步骤

和表的结构

部署步骤

部署计划

使用表格，我希望用户能够选择他们的团队，并让它使用相应的columnTeamSteps自动填充文本字段。可以在屏幕截图中看到。

After the user has selected a team and the steps have autopopulated they would manually input data in the date boxes. From here i'd like a button press to add the records. I am using the following code to update the forms visibile fields and values. There will be only a max steps of ten per team.

How can I use the data generated by the code and the user input to add the records to the deploymentStep table and to the deploymentPlan table?

Private Sub pillarTeam_AfterUpdate()
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim deploymentSteps As DAO.Recordset

Set db = CurrentDb

strSQL = "SELECT PillarTeamDeploymentSteps.pillarTeam, PillarTeamDeploymentSteps.pillarTeamStep, PillarTeamDeploymentSteps.deploymentType FROM PillarTeamDeploymentSteps WHERE (((PillarTeamDeploymentSteps.pillarTeam)=" & Me.pillarTeam & "))"

Debug.Print (strSQL)

Set RS = db.OpenRecordset(strSQL)
If Not (RS.EOF) Then
    RS.MoveLast
    RS.MoveFirst
End If



'setting visible controls
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.Tag < RS.RecordCount + 1 Or (ctl.Tag < RS.RecordCount + 21 And ctl.Tag >= 20) Then
        ctl.Visible = True
    Else
        ctl.Visible = False
    End If
Next ctl


With RS
    If Not .BOF And Not .EOF Then
    .MoveLast
    .MoveFirst
    While (Not .EOF)
        Debug.Print (RS.AbsolutePosition)
'populating deployment steps
        For Each ctl In Me.Controls
            If ctl.Tag = RS.AbsolutePosition Then
                ctl.Value = RS.Fields("pillarTeamStep")
            End If
            
         Next ctl
          
        .MoveNext
    Wend
        
        
    End If
    .Close
End With
    

    Set RS = Nothing
    Set db = Nothing