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

Question

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

附加的期望状态图像显示了我在两个选择在ConceptList中创建和四个在ProspectList中时期望的内容。当前状态显示的代码下面

Current State Image Desired State Image

Dim db As Database 
    Dim rs As Recordset 

    Set db = CurrentDb() 
    Set rs = db.OpenRecordset("tblFinal") 
    For Each itm In ConceptList.ItemsSelected 
     rs.AddNew 
     rs!ConceptID = ConceptList.ItemData(itm) 
     rs!ParkID = ParkList.ItemData(itm) 
     rs.Update 
    Next 

    rs.Close 
    Set rs = Nothing 
    Set db = Nothing 


End Sub 

Answer 1

结果你需要一个内部循环，以及：

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