ms-access - 单击按钮时如何删除子窗体中的记录

Question

我收到运行时错误 3131 FROM 中的语法错误条款。谁能告诉我我做错了什么？

Dim strSQL
If Not (Me.PlantTransactionQuery.Form.Recordset.EOF And Me.PlantTransactionQuery.Form.Recordset.BOF) Then
If MsgBox("Are you sure you want to delete", vbYesNo) = vbYes Then
strSQL = "Delete * FROM PlantTransactionQuery" & _
"WHERE TransactionID=" & Me![TransactionID] & Me.PlantTransactionQuery.Form.Recordset.Fields("TransactionID")
CurrentDb.Execute strSQL
Me.PlantTransactionQuery.Form.Requery
End If
End If
End Sub

Answer 1

我不建议使用 SQL 语句来删除记录，除非确实没有其他选择。

您可以将按钮放在子窗体本身上吗？我认为除了数据 TableView 之外的所有子表单都允许您在其上设置按钮。然后只需运行正常代码即可删除一条记录。

DoCmd.RunCommand acCmdDeleteRecord

编辑1:
由于您使用的是数据 TableView ，因此您基本上有两个选择。

1)数据 TableView 提供了一个右键菜单来删除记录，如果你去最左边的行。

2)您的另一个选择是在运行我上面列出的代码的子窗体上创建一个公共(public)函数，然后当用户单击主窗体上的按钮时从主窗体调用它。