gpt4 book ai didi

vba - 如何遍历表单中的所有控件,包括子表单中的控件-Access 2007

转载 作者:行者123 更新时间:2023-12-04 03:13:45 25 4
gpt4 key购买 nike

正如我的问题的标题所暗示的,如何遍历表单中的所有控件(包括子表单)是可能的。

例如,我使用下面的子例程来设置带有标签*的控件的背景色。

Public Sub colCtrlReq(frm As Form)
' Sets background color for required field -> Tag = *
Dim setColour As String
setColour = RGB(255, 244, 164)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
If InStr(1, ctl.Tag, "*") <> 0 Then
ctl.BackColor = setColour
End If
End If
Next ctl
Set ctl = Nothing
End Sub

如何改变它以捕获子窗体中的控件?
在此先感谢您的帮助或指点。

干杯
诺埃尔

最佳答案

您可以使用递归

Public Sub colCtrlReq(frm As Form)
'' Sets background color for required field -> Tag = *
Dim setColour As String
setColour = RGB(255, 244, 164)
Dim ctl As Control
For Each ctl In frm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox _
Or ctl.ControlType = acListBox Then
If InStr(1, ctl.Tag, "*") <> 0 Then
ctl.BackColor = setColour
End If
ElseIf ctl.ControlType = acSubform Then
colCtrlReq frm(ctl.Name).Form

End If
Next ctl
Set ctl = Nothing
End Sub

关于vba - 如何遍历表单中的所有控件,包括子表单中的控件-Access 2007,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3344649/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com