列表框在访问MS

Question

我可以通过使用组合框用下面的代码保存在数据库中记录。 这里单一部件号被选择并部分号码相关的数据被存储在数据库表。

但我想为列表框的代码...当我选择多个partnumbers我..how可以存储在数据库中的表？

Case "Pn ADDED to Wrapper", _ 
      "Pn REMOVED from Wrapper" 
      If Me!PartNumber <> "All" And Me!PartNumber <> "Select" Then ' a proper part number has been selected in combo box 
       strNewSq5 = _ 
        "INSERT INTO tblTmpEventLog (TrackingNumber,PartNumber,PartNumberChgLvl,EnteredBy,EventTypeSelected,EventDate)" 
       strNewSq5 = strNewSq5 & " VALUES ('" & tempTrackingNumber & "','" & _ 
        tempPartNumber & "','" & _ 
        tempPartNumberChgLvl & "','" & _ 
        tempEnteredBy & "','" & _ 
        tempEventTypeSelected & "'," & _ 
        "#" & Forms!frmEventLog_Input.EventDate & "#)" 
       dbs.Execute strNewSq5, dbFailOnError 

       TrnsfTmpEventToEventLog 
       Else 
         displayMsgBox = MsgBox("A single part number must be specified. Please correct.", vbCritical, "System Error") 
       Exit Sub 
       End If 

Answer 1

您需要通过一个遍历选定的项目，并将其储存一个：

MS Access 2007 - Cycling through values in a list box to grab id's for a SQL statement

编辑再评论

你没有提供详细的回答足够的信息，但这里有一些笔记可能会有所帮助。

For Each itm In Me.NameOfListBox.ItemsSelected 
     If Instr("All,Select",Me.NameOfListBox.Column(0, itm))=0 Then 
      '' a proper part number has been selected in list box 

      '' Me.NameOfListBox.Column(0, itm) is the column (zero in this example 
      '' and row (itm) of the selected item in the list box. If it is the 
      '' part number, then you might like to say: 

      '' tempPartNumber = Me.NameOfListBox.Column(0, itm) 

      strNewSq5 = "INSERT INTO tblTmpEventLog " & _ 
        "(TrackingNumber,PartNumber,PartNumberChgLvl,EnteredBy," & _ 
        "EventTypeSelected,EventDate)" 
      strNewSq5 = strNewSq5 & " VALUES ('" & tempTrackingNumber & "','" & _ 
        tempPartNumber & "','" & _ 
        tempPartNumberChgLvl & "','" & _ 
        tempEnteredBy & "','" & _ 
        tempEventTypeSelected & "'," & _ 
        "#" & Forms!frmEventLog_Input.EventDate & "#)" 
      dbs.Execute strNewSq5, dbFailOnError 

      TrnsfTmpEventToEventLog 
    Else 
     ''Do not insert 
    End If 
Next