Question

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

Form1有一个ListBox，它从Table1读取记录（Table2是内部连接的），如果Table2中的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时，我正在努力。我可以为删除点击事件执行类似的代码吗？有没有人有任何想法？

由于

Answer 1

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

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

我希望这会有所帮助

从一个ListBox中的表/表单中选择记录，并将其显示在另一个表/表单的ListBox中

1 个答案: