Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 从一个列表框中的表/窗体中选择记录,并将其显示在另一个表/窗体中的列表框中_Ms Access_Vba_Ms Access 2010 - Fatal编程技术网

Ms access 从一个列表框中的表/窗体中选择记录,并将其显示在另一个表/窗体中的列表框中

Ms access 从一个列表框中的表/窗体中选择记录,并将其显示在另一个表/窗体中的列表框中,ms-access,vba,ms-access-2010,Ms Access,Vba,Ms Access 2010,我在为一个按钮编写代码时遇到了一些问题,该按钮用于将选定记录从一个列表框(ListBoxForm2)添加到另一个列表框(ListBoxForm1)。我有一个工作按钮,可以从ListBoxForm1中删除所选记录,我将在下面介绍它。如果有人能帮忙,我们将不胜感激:-) Form1有一个列表框,它从Table1(Table2与之内部连接)读取记录,并在Table2中存在Table1中的ID时显示这些记录。可以使用按钮选择和删除它们: Private Sub RemoveMember_Callouts

我在为一个按钮编写代码时遇到了一些问题,该按钮用于将选定记录从一个列表框(ListBoxForm2)添加到另一个列表框(ListBoxForm1)。我有一个工作按钮,可以从ListBoxForm1中删除所选记录,我将在下面介绍它。如果有人能帮忙,我们将不胜感激:-)

Form1有一个列表框,它从Table1(Table2与之内部连接)读取记录,并在Table2中存在Table1中的ID时显示这些记录。可以使用按钮选择和删除它们:

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中的选定记录(Form2)添加到表1时,我感到很困难。我是否可以执行与“删除单击”事件类似的代码?有人有什么想法吗


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

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

我希望这会有所帮助

谢谢,这肯定会让我走上正轨!