附件示例点击此处下载

截   图:

源   码:

'删除数据表“生活健康用品”的第一条记录
Private Sub cmd_删第一条_Click()
    On Error GoTo 退出
    '跳转至第一条记录
    DoCmd.GoToRecord , , acFirst
    '删除第一条记录
    DoCmd.RunCommand acCmdDeleteRecord
'单击“否”按钮时，退出程序
退出:
End Sub