就在用户退出当前记录前,该事件发生。
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