求助：如何用整数变量设置Access标签控件的Caption属性？

看起来你是想通过整数变量动态定位标签控件并修改它的Caption属性，我来帮你梳理下问题和正确的写法：

先修正几个基础错误 #

• 变量声明里的Interger拼写错误，应该是Integer，这个小失误可能导致变量无法正常工作：

  Public Int_Company_Chosen As Integer ' 修正拼写错误
  

• 你的代码里Int_Company_Chosen = 12是在拼接控件名字符串之后才赋值的，这会导致拼接时变量用的是默认初始值（0），生成的控件名会变成Label_Company_-1——显然不存在这个控件，这是核心问题之一！

正确的实现代码 #

你需要先给变量赋值，再拼接控件名，然后用Forms!窗体名(控件名)的方式引用控件，具体代码如下：

Public Int_Company_Chosen As Integer

Sub SetDynamicLabelCaption()
    ' 先给变量赋值，再进行控件名拼接
    Int_Company_Chosen = 12
    Dim strTest1 As String
    
    ' 注意加括号确保减号运算优先执行，避免字符串拼接干扰计算
    strTest1 = "Label_Company_" & (Int_Company_Chosen - 1) ' 最终生成控件名：Label_Company_11
    
    ' 正确引用控件并设置Caption
    Forms!StartUp(strTest1).Caption = "TrueeAZ"
    
    ' 如果这段代码写在StartUp窗体的模块里，也可以用更简洁的Me引用
    ' Me(strTest1).Caption = "TrueeAZ"
End Sub

分析你之前的错误写法 #

1. ("Forms!StartUp.Label_Company_" & Int_Company_Chosen - 1 & ".Caption")：这只是生成了一段字符串文本，并没有执行任何属性赋值操作，相当于你只是写了一段描述，没有告诉VBA要修改这个属性。
2. Forms!StartUp.[(strTest1)].Caption：这种写法会把strTest1当成字面量控件名，VBA会去找名为strTest1的控件，而不是读取变量里的内容，自然找不到目标控件。
3. 变量赋值顺序颠倒：先拼接字符串再给变量赋值，导致拼接时变量值为0，生成了无效的控件名。

修正这些问题后，就能正常通过变量动态设置标签的Caption属性啦！

内容的提问来源于stack exchange，提问作者SparkChaserJoe