获取窗体在记录跳转时触发了多少个事件
将以下代码复制到模块中,按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函数
0条评论