Question

是否可以使用VBA以编程方式访问标签。我想使用for循环创建一些标签，如下所示，将所有名为“Label1”的标签设置为“Label20”为可见

for a_counter = 1 to 20
Me.Label(a_counter).Visible = True
next a_counter

上述内容是否可能？

Answer 1

您可以从表单的Controls集合中按名称引用每个标签控件，“Label1”至“Label20”。

For a_counter = 1 To 20
    Me.Controls("Label" & a_counter).Visible = True
Next a_counter

Answer 2

标签是访问表单中的一种特定控件。您应该能够写下这样的代码：

function listLabels()
dim m_ctl as control

for each m_ctl in screen.activeForm.controls
    if m_ctl.type = ....   'please check the control types available!
        debug.print m_ctl.name
    end if
next m_ctl

end function

小心点。我甚至不确定控件的属性（.type，.name），但您可以在帮助中轻松找到它们。寻找'控制'对象。

MS Access vba以编程方式访问和设置标签属性

2 个答案: