从一个ListBox中的表格/表格中选择记录，并以另一个表格/表格的形式在列表框中显示它

Question

我在编写按钮代码时遇到了一些麻烦，要将选定记录从一个列表框（ListBoxForm2）添加到另一个列表框（ListBoxForm1）。我有一个工作按钮来从ListBoxForm1中删除选定的记录，我将在下面包含这些记录。如果任何人能够帮助它，将不胜感激:-)

Form1有一个列表框从Table1读取记录（Table2是内部加入的）并显示它们，如果Table1中的ID存在Table2中。他们可以选择和删除使用按钮：

Private Sub RemoveMember_Callouts_Click() 

Dim lngID As Long 
Dim strSQL As String 


If IsNull(ListBoxForm1) Then 
    Exit Sub 
End If 

'get selected record's ID 
lngID = ListBoxForm1.Value 
strSQL = "DELETE * FROM [Table2] WHERE Table2ID = " & lngID 
CurrentDb.Execute strSQL 

'refresh the list 
ListBoxForm1.Requery 

End Sub 

但我挣扎，当涉及到编程添加表2中（窗体2）表1到选定的记录。我可以对我的删除点击事件做类似的代码吗？有没有人有任何想法？

谢谢

Answer 1

在执行删除语句之前。写语句从表2

"INSERT INTO Table1(col1, col2) SELECT col1, col2 FROM Table2 WHERE Table2ID=" & lngID 

插入记录到表1我希望这将有助于