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

会计考友

获取窗体在记录跳转时触发了多少个事件
将下列代码复制到模块中，并按F5运行，然后打开“窗体1”，做一些动作即可。
　　Function setEvent()
　　Dim p As Property
　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
3 {) r. y3 m, v7 b& U  f. r! |　　Or Left(p.Name, 5) = "After" _
　　Or Left(p.Name, 6) = "Before" Then
　　p.Value = "=msgbox('" & p.Name & "')"
　　End If
; Q$ I; W1 l/ z* U& r　　Next p
　　End Function
# t8 O$ _% p5 r/ t) z$ U3 I& o, }　　Function resumeEvent()
! J3 p0 z$ p. l! J+ w8 G1 S　　Dim p As Property
　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
" y& X9 y% Q0 s9 r* F% ^9 j" n　　Or Left(p.Name, 5) = "After" _
0 L- H' W- z' E　　Or Left(p.Name, 6) = "Before" Then
9 J+ H: k: B, k% b+ F8 D( B　　p.Value = ""
7 D& l9 U4 m4 k, C, w　　End If
　　Next p
　　End Function