Loops VBA在表中插入两个列表框值

我的表格上有两个列表框。 对于在ConceptList中选择的每个项目，我需要在ParkList中添加所有选择的项目

所附的所需状态图像显示了在“概念列表”中选择两个选项和在“浏览列表”中选择四个选项时所需的状态。当前状态显示以下代码的结果

---

您还需要一个内部循环：

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblFinal")

For Each concept In ConceptList.ItemsSelected
    For Each park In ParkList.ItemsSelected
        rs.AddNew
            rs!ConceptID = ConceptList.ItemData(concept)
            rs!ParkID = ParkList.ItemData(park)
        rs.Update
    Next
Next   
rs.Close

Set rs = Nothing
Set db = Nothing

---

啊。。就这样。谢谢你的帮助

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblFinal")

For Each concept In ConceptList.ItemsSelected
    For Each park In ParkList.ItemsSelected
        rs.AddNew
            rs!ConceptID = ConceptList.ItemData(concept)
            rs!ParkID = ParkList.ItemData(park)
        rs.Update
    Next
Next   
rs.Close

Set rs = Nothing
Set db = Nothing