office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access列錶框多選的值添加到數據錶

2018-10-20 14:17:00
Henry D. Sy
原創
3316

前麵我們講過用代碼把數據加載到列錶框中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

添加成功如圖所示:




    分享