通过表单和子表单添加记录

Question

我有两张表，其中包含以下信息。

    PatientTestData     [ ID, PatientID, TestDate, PrimaryTestID ]
    PatientTestResults  [ PatientTestDataID, SubTestID, Result ]

然后有一个带有子表单的表单，其中包含以下相关信息。

MainForm     [  TestDataID, TestDate, PatientID, PrimaryTestID  ]
subform      [  PrimaryTestID, PatientTestDataID, SubTestID, Result  ]

使用主窗体中的“PrimaryTestID”字段过滤子窗体，并在“结果”字段中手动输入结果，以将其添加到表PatientTestResults中。

我使用以下代码将字段更新为表格。

Private Sub Update_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("PatientTestResults")
    rs.AddNew
    rs!SubTestID = Me.frm_TestResults!ID
    rs!Result = Me.frm_TestResults!Result
    rs!PatientTestDataID = Me.ID.Value
    rs.Update
    rs.MoveNext
    rs.Clone
    Set rs = Nothing
    db.Close
End Sub

我有两个问题

1. PatientTestDataID字段值应该在表的每一行中。
2. 在表格中重复出现PatientTestDataID字段值的行。