Access VBA教程:AfterDelConfirm事件

AfterDelConfirm事件在用户确认删除操作,并且记录确实已被删除或者删除操作已被取消之后发生。

说明

若要在这些事件发生时执行一个宏或事件过程,请将AfterDelConfirm属性设置为宏的名称或 [事件过程]。

当记录被删除后,它其实保存在临时缓冲区中。

AfterDelConfirm事件发生在一条或多条记录被真正删除之后,或者一个或多个删除操作被取消之后。如果 BeforeDelConfirm事件未被取消,则“删除确认”对话框显示之后 AfterDelConfirm事件即发生。即使 BeforeDelConfirm事件已被取消,AfterDelConfirm事件仍将发生。AfterDelConfirm事件过程将返回有关删除的状态信息。例如,可以使用与 AfterDelConfirm事件相关的宏或事件过程来重新计算受删除记录影响的总计。

如果取消 Delete事件,AfterDelConfirm事件将不会发生,“删除确认”对话框也不会显示。

注意   如果清除“选项”对话框(通过单击“工具”菜单上的“选项”打开)中“编辑/查找”选项卡上“确认”下面的“记录更改”复选框,AfterDelConfirm事件将不会发生,而“删除确认”对话框也不会显示。

Delete事件发生时,可以通过运行宏或事件过程来阻止删除记录或只允许在特定条件下删除记录。也可以使用 Delete事件来显示一个对话框,在记录被删除之前询问用户是否要删除该记录。

若要删除一条记录,可以单击“编辑”菜单上的“删除记录”。这将删除当前记录(记录选定器所指定的记录)。也可以单击记录选定器或单击“编辑”菜单上的“选择记录”来选择记录,然后按 Del 删除它。如果单击“删除记录”、当前记录的记录选定器或“选择记录”,则焦点所在的控件的ExitLostFocus事件将会发生。如果已经更改了记录中的任意数据,则记录的BeforeUpdateAfterUpdate事件将在 Exit 和 LostFocus事件之前发生。如果单击了另一个记录的记录选定器,则该选定记录的Current事件也会发生。

删除记录之后,焦点将移到被删除记录的下一条记录,并且这条记录的 Current事件将会发生,随后将发生该记录中第一个控件的EnterGotFocus事件。

接着在 Microsoft Access 显示“删除确认”对话框询问用户确认删除之前,BeforeDelConfirm事件将发生。在确认删除或取消删除响应了对话框之后,AfterDelConfirm事件发生。

可以同时删除一条或多条记录。Delete事件是在每条记录被删除之后发生,这使用户可以在记录被真正删除之前访问每条记录中的数据,并且可以在 Delete 宏或事件过程中有选择地确认或取消每个删除操作。删除多条记录时,对于最后一条被删除记录的下一条记录,其 Current事件和该记录中第一个控件的 Enter 和 GotFocus事件直到所有记录都被删除后才发生。也就是说,每条选定记录的 Delete事件都会发生,而且必须所有的选定记录都被删除后其他事件才会发生。BeforeDelConfirm 和 AfterDelConfirm事件也在所有选定记录被删除之后才发生。

VBA示例

以下示例演示了如何使用 AfterDelConfirm事件过程来显示消息,以指出删除操作是否按通常的方法进行,以及是否在 Visual Basic 中取消删除或被用户取消删除。


Private Sub Form_AfterDelConfirm(Status As Integer)     Select Case Status
        Case acDeleteOK
            MsgBox "Deletion occurred normally."
        Case acDeleteCancel
            MsgBox "Programmer canceled the deletion."
        Case acDeleteUserCancel
            MsgBox "User canceled the deletion."     End Select
End Sub

上页:Access VBA教程:AfterCommitTransaction事件 下页:Access VBA教程:AfterFinalRender事件

Access VBA教程:AfterDelConfirm事件

Access VBA教程:AfterFinalRender事件 Access VBA教程:AfterInsert事件
Access VBA教程:AfterLayout事件 Access VBA教程:AfterRender事件
Access VBA教程:AfterUpdate事件 Access VBA教程:ApplyFilter事件
Access VBA教程:BeforeBeginTransaction事件 Access VBA教程:BeforeCommitTransaction事件
Access VBA教程:BeforeDelConfirm事件 Access VBA教程:BeforeInsert事件
Access VBA教程:BeforeQuery事件 Access VBA教程:BeforeRender事件
Access VBA教程:BeforeScreenTip事件 Access VBA教程:BeforeUpdate事件
Access VBA教程:BeginBatchEdit事件 Access VBA教程:Change事件
Access VBA教程:Click事件 Access VBA教程:Close事件
Access VBA教程:CommandBeforeExecute事件 Access VBA教程:CommandChecked事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号