Access列表框多选的值添加到数据表

2018-10-20 14:17:00
Henry D. Sy
原创
244

前面我们讲过用代码把数据加载到列表框中Access数据加载到列表框

反过来,有时候需要把列表框中的选中的部分数据追加到另一个表中。


如下图所示,选择需要添加的书号。




运行代码,从列表框中提取选中的数据追加到新的表中

    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

添加成功如图所示:




    分享