前面我们讲过用代码把数据加载到列表框中《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
添加成功如图所示:
学习更多的Access技巧源码请关注Office交流网:http://www.office-cn.net