從一個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我希望這將有助於