如何根据Access窗体中另一个选项卡的主键在表中创建新记录？

Private Sub CreateNewRecord_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim selectedID As Integer
    
    ' 获取"选项卡1"中当前选中记录的主键值
    selectedID = Forms("窗体名称")("选项卡1名称").Form("ID").Value
    
    ' 构建插入新记录的SQL语句
    strSQL = "INSERT INTO 表名 (外键ID) VALUES (" & selectedID & ")"
    
    ' 执行SQL语句插入新记录
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    
    ' 清空记录集和数据库对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    ' 刷新"选项卡2"中的数据
    Forms("窗体名称")("选项卡2名称").Form.Requery
End Sub