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

会计考友

获取窗体在记录跳转时触发了多少个事件
9 q2 h! h/ N. a' R将下列代码复制到模块中，并按F5运行，然后打开“窗体1”，做一些动作即可。
　　Function setEvent()
  m6 a8 _2 p% x. u1 ]- F  S. }　　Dim p As Property
. h" F5 F$ G! K+ ]7 C9 r　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
; b' f& I) A" ]: j- \　　Or Left(p.Name, 5) = "After" _
# O4 C' A+ g0 H　　Or Left(p.Name, 6) = "Before" Then
　　p.Value = "=msgbox('" & p.Name & "')"
" M* ?+ c: d# ?　　End If
/ c! y9 V+ ?+ t3 s　　Next p
+ m) X6 j) m/ `' p" H( p# a# v　　End Function
3 ^! A5 u" e, F8 r8 J/ e* D* [0 H　　Function resumeEvent()
# s# g/ |; ?  v+ R1 Z8 n+ }9 [, U　　Dim p As Property
+ \' Z8 W9 B: Y; j  C　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
　　Or Left(p.Name, 5) = "After" _
　　Or Left(p.Name, 6) = "Before" Then
　　p.Value = ""
' U7 P( ~5 U  E& ~) E8 a8 ^* Q# `　　End If
, }; |( ^- [, n+ c$ p. d9 Z# X　　Next p
　　End Function