Ms access 使用按钮删除MS Access表单中的记录

最近开始学习Access，我一直在删除表单中的记录。我有一个带有以下代码的列表：

Private Sub lstPickList_AfterUpdate()
Dim rst As DAO.Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "OrderID=" & lstPickList.Column(0) & ""
If rst.NoMatch Then
    MsgBox "The selected record can not be displayed." _
        & "To display this record, you must first turn off record filtering.", _
        vbInformation
Else
    Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub

---

还有一个按钮，我想用它来删除列表中当前选择的任何顺序。“DeleteRecord”宏只是给我一个“命令或操作'DeleteRecord'现在不可用”错误。搜索给了我一大堆根本不适合我的代码

您可以直接从克隆中删除：

If rst.NoMatch Then
    MsgBox "The selected record can not be displayed." _
        & "To display this record, you must first turn off record filtering.", _
        vbInformation
Else
    rst.Delete
End If

---

如果将else语句更改为：Me.RecordSet.Bookmark=rst.Bookmark，则代码将根据列表中选定的记录运行表单搜索。搜索后只需删除：

DoCmd.RunCommnd acCmdDeleteRecord

。