Access列表框多選的值添加到數(shù)據(jù)表

前面我們講過用代碼把數(shù)據(jù)加載到列表框中《Access數(shù)據(jù)加載到列表框》

反過來，有時(shí)候需要把列表框中的選中的部分?jǐn)?shù)據(jù)追加到另一個表中。

如下圖所示，選擇需要添加的書號。

運(yùn)行代碼，從列表框中提取選中的數(shù)據(jù)追加到新的表中

    Dim strWhere As String
    Dim varI As Variant
    Dim strSQL As String
    If Me.lstBook.ItemsSelected.Count = 0 Then
        MsgBox "請先選擇記錄！"
        Exit Sub
    End If
    For Each varI In Me.lstBook.ItemsSelected
        strWhere = strWhere & "'" & Me.lstBook.ItemData(varI) & "',"
    Next
    strSQL = "INSERT INTO Newtbl (ISBN, Book) SELECT ISBN, Bname FROM tblBook WHERE ISBN In (" & strWhere & ")"
    
    
    CurrentDb.Execute strSQL

添加成功如圖所示：