1

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

Form1 有一个 ListBox，它从 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

但是，在以编程方式将 Table2(Form2) 中的选定记录添加到 Table1 时，我遇到了困难。我可以对我的删除点击事件执行类似的代码吗？有没有人有任何想法？

谢谢

4

1 回答 1

2

在执行 Delete 语句之前。编写一条语句，将表 2 中的记录插入表 1。

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

我希望这个能帮上忙

于 2013-04-18T03:32:26.177 回答