VBA - 用于添加相同ID下的记录的循环

Question

所以基本上在本程序中我需要在相同的材料请求ID（PRID）下添加多个记录。当我插入所有数据时，当我按下提交时，它会要求添加另一个产品。

因此，当我单击是以添加其他产品时，应将先前的记录添加到表（tblProductRequest）以及添加新记录，还应清除组合框和txt框。

我已经清除了如何在文本框和组合框中清除数据，但是下次当我按下提交时，它应该将记录保存在相同的材料请求ID下，它应该继续下去。

我不知道如何插入循环以继续在同一材料请求ID（PRID）下向表中添加项目的过程

产品名称组合框=“cmbProductName”

产品ID组合框=“cmbProductID”

购买数量=“txtQTYPurchase”

Dim rsProduceMRN As New ADODB.Recordset

rsProduceMRN.Open "select * from tblProductRequest where PRID = '" & txtPRID & "' ", CurrentProject.Connection

If rsProduceMRN.EOF Then

    CurrentProject.Connection.Execute "Insert into tblProductRequest(PRID, ProductID, QtyReq,DateRequested) values " _
    & " ('" & txtPRID & "', '" & cmbProductID & "'," & txtQTYPurchase & ", #" & txtDOP & "#) "

    res = MsgBox("Product Addeded to the MRN. Do you want to add a New Product?", vbYesNo, "Save Record")
    If res = vbYes Then

    cmbProductID = ""
    txtQTYPurchase = ""
    cmbProductName = ""

  Else

  DoCmd.Close
  DoCmd.OpenReport "rptMRN", acViewPreview

        End If

   End If

End Sub