'*******************************************************
'*函数功能:判断控件是否存在的函数
'*参 数:frmObject 窗体名
'* strControlsName 待判断的控件名
'* lngIndex 控件Index 非数组控件可省略该参数
'*返 回 值:True 存在 False 不存在
'*******************************************************
Function fChkControls(frmObject As Form, strControlsName As String, Optional lngIndex As Long = -1) As Boolean
On Error GoTo Err
Dim strContrName As String
If lngIndex >= 0 Then
strContrName = frmObject.Controls(strControlsName)(lngIndex).Name
Else
strContrName = frmObject.Controls(strControlsName).Name
End If
fChkControls = True
Exit Function
Err:
fChkControls = False
End Function
转载于:https://www.cnblogs.com/topboy168/archive/2007/07/19/823709.html