如何判断窗体中的某个控件是否存在？

绿野飘香　发表于：2015-03-21 12:24:14 　

如何判断窗体中的某个控件是否存在？代码如何写？

煮江品茶发表于：2015-03-21 14:21:03

function 阁下的控件是否存在(ctrlname as string) as boolean

dim b as boolean

dim ctrl as control

b=false

for each ctrl in me.controls

if ctrl.name=ctrlname then

b=true

exit for

end if

阁下的控件是否存在=b

end if

绿野飘香发表于：2015-03-23 11:14:41

谢谢煮江品茶的热心解答，可这个怎么用呢？能否帮做个例示可以吗？

窗体1中的控件A可能有，可能没有

如果有控件A

Me.控件A.Enabled = False

我这样用不行

call 阁下的控件是否存在(控件A）

何保辛发表于：2015-03-23 11:52:45

On Error Resume Next

Me("控件A").Enabled=False

if Err >0 then

msgbox "不存在"

Err.Clear

End If

绿野飘香发表于：2015-03-23 14:28:38

套入Me.控件A.Enabled = False ，就提示方法和数据成员未找到，如附件所示用“msgbox "不存在"”就能提示