Ms access 从一个列表框中的表/窗体中选择记录,并将其显示在另一个表/窗体中的列表框中
我在为一个按钮编写代码时遇到了一些问题,该按钮用于将选定记录从一个列表框(ListBoxForm2)添加到另一个列表框(ListBoxForm1)。我有一个工作按钮,可以从ListBoxForm1中删除所选记录,我将在下面介绍它。如果有人能帮忙,我们将不胜感激:-) Form1有一个列表框,它从Table1(Table2与之内部连接)读取记录,并在Table2中存在Table1中的ID时显示这些记录。可以使用按钮选择和删除它们: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
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
我希望这会有所帮助谢谢,这肯定会让我走上正轨!