在ACCESS VBA中检查是否具有含特定控件的子窗体

最新推荐文章于 2020-12-11 11:14:29 发布

slowgrace

最新推荐文章于 2020-12-11 11:14:29 发布

阅读量1.7k

点赞数

分类专栏：控件文章标签： vba access function each string

本文链接：https://blog.csdn.net/slowgrace/article/details/3835642

版权

控件专栏收录该内容

29 篇文章 0 订阅

订阅专栏

要在ACCESS VBA中检查是否具有含特定控件的子窗体，有两个要点。一个是要遍历主窗体的所有控件（me.controls），并检查控件的类型是否是子窗体（acSubform）。看下面的示例：

Dim ctlX As Control For Each ctlX In Me.Controls If ctlX.ControlType = acSubform Then If HasThisControl(ctlX, "sngValue") Then Debug.Print ctlX.Name Else End If End If Next ctlX

另一个要点是，要遍历子窗体的控件，检查控件名是否是要找的那个控件。注意，不能用上面得到的属性为acSubform的控件.controls来遍历（这样遍历只会有标签和子窗体两个控件），而要用.form.controls来遍历。看下面的示例：

Public Function HasThisControl(frmX As Control, strCtrlName As String) As Boolean Dim ctlX As Control HasThisControl = False For Each ctlX In frmX.Form.Controls If ctlX.Name = strCtrlName Then HasThisControl = True Exit Function End If Next ctlX End Function