AfterInsert 事件

expandtri全部显示

AfterInsert 事件在添加新记录之后发生。

注释  通过使用或 Visual Basic 设置控件的值不会触发这些事件。

Private Sub Form_AfterInsert()

说明

每当添加新记录时,都可以使用 AfterInsert 事件过程或宏对记录集进行重新查询

若要在发生 AfterInsert 事件时运行事件过程,请将 OnAfterInsert 属性设为该宏的名称或设为 [事件过程]。

可以使用这些宏显示消息或有用信息。例如,可以让 BeforeInsert 宏在用户输入新记录时显示用户需要的数据。

可以在 BeforeInsert 宏中使用 CancelEvent 操作来取消新建记录操作。在 BeforeInsert 宏中使用 CancelEvent 操作时,焦点会返回到新记录(该记录为空,用户在该记录中键入的字符已被删除)。

不能在 AfterInsert 宏中使用 CancelEvent 操作。

示例

此示例显示了如何使用 BeforeInsert 事件过程来验证用户是否新建记录,并且在添加新记录之后,使用 AfterInsert 事件过程来重新查询“雇员”窗体的记录源。

若要试用该示例,请将下列事件过程添加到基于表或查询的、名为“雇员”的窗体中。切换到窗体“数据表”视图并且试着插入一条记录。

Private Sub Form_BeforeInsert(Cancel As Integer)

    If MsgBox("Insert new record here?", _

        vbOKCancel) = vbCancel Then

        Cancel = True

    End If

End Sub

Private Sub Form_AfterInsert()

    Forms!Employees.Requery

End Sub