获取窗体在记录跳转时触发了多少个事件

将以下代码复制到模块中，按F5运行，然后打开“Form 1”并执行一些操作。
function setevent()
dim p as property
for forms(" form 1 ")中的每个p。属性
ifleft (p. name，2) = "On" _
或left (p. name，5) = "After" _
或Left(p.Name，6) = "Before "然后
p . Value = " = msgbox(" & p . Name & " ')"
End If
Next p
End Function
Function resume event()
Dim p as属性
Properties
if left (p.name，2) = "on" _
或left (p.name，5) = "After" _
或left (p.name，6)= " Before " Then
p . Value = " "
End If
Next p
End函数