Access VBA教程:RecordExit事件

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

Private Sub Form_RecordExit(Cancel As Integer)

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

说明

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

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

VBA示例

下面的示例说明了捕获 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

上页:Access VBA教程:ReadyStateChange事件 (Snapshot Viewer) 下页:Access VBA教程:Resize事件

Access VBA教程:RecordExit事件

Access VBA教程:Resize事件 Access VBA教程:Retreat事件
Access VBA教程:RollbackTransaction事件 Access VBA教程:SelectionChange事件
Access VBA教程:Terminate事件 Access VBA教程:Timer事件
Access VBA教程:Undo事件 Access VBA教程:UndoBatchEdit事件
Access VBA教程:Unload事件 Access VBA教程:Updated事件
Access VBA教程:ViewChange事件 Access VBA教程:Command函数
Access VBA教程:DAvg函数 Access VBA教程:DCount函数
Access VBA教程:DDE函数 Access VBA教程:DDEInitiate函数
Access VBA教程:DDERequest函数 Access VBA教程:DDESend函数
Access VBA教程:DFirst、DLast函数 Access VBA教程:不同字符串值的不同格式(Format函数)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号