附件示例点击此处下载
截 图:
源 码:
'删除数据表“生活健康用品”的第一条记录 Private Sub cmd_删第一条_Click() On Error GoTo 退出 '跳转至第一条记录 DoCmd.GoToRecord , , acFirst '删除第一条记录 DoCmd.RunCommand acCmdDeleteRecord '单击“否”按钮时,退出程序 退出: End Sub