RecordExit 事件

       

就在用户退出当前记录前,该事件发生。

Private Sub Form_RecordExit(Cancel As Integer)

Cancel   将该参数设为 True,可以禁止用户退出当前记录。

说明

在用户执行某些操作(如浏览到其他记录、关闭窗体、刷新窗体或重新查询窗体),以便从当前记录上移走之后,且当前记录的视图尚未清除之前,该事件发生。可以使用该事件在记录不再是当前记录之前对其进行检查,以确保其符合数据有效性规则。

注意   当包含子窗体的窗体关闭时,主窗体在子窗体之前关闭。任何由子窗体触发的事件,包括 RecordExit,都在主窗体已经关闭后发生。因此,Cancel 参数将无效,而窗体则会关闭。所以,事件驱动的验证应该在窗体级执行。

示例

下面的示例说明了捕获 RecordExit 事件的子程序的语法。

Private Sub Form_RecordExit(Cancel As Integer)
    Dim booValidated As Boolean

    ' Perform some sort of data validation.

    If booValidated = True Then
        Cancel = False
    Else
        MsgBox "Data validation failed!"
        Cancel = True
    End If

End Sub