Access VBA模块修改子窗体按钮Caption属性遇438错误求助

你的问题核心是错误地将变量名作为控件名称直接引用，而非解析变量的实际值来定位按钮控件。以下是具体的修复方案：

关键错误点 #

原代码中：

Forms![001_frm_Home]![Subform01]![Subform02].['uTargetButton'].Caption = Trim(rs!Itemkey)

这里的['uTargetButton']是把字符串"uTargetButton"当成了控件名称，而不是读取变量uTargetButton的实际值（比如"Command16"），导致Access找不到对应控件，触发438错误。

修复步骤 #

1. 通过Controls集合定位控件：必须通过子窗体的Form属性访问其内部控件集合，再用变量值匹配目标按钮名称。
2. 显式声明按钮类型：将按钮变量声明为CommandButton，确保能正常访问Caption等专属属性。

修正后的完整代码片段 #

Dim rs As ADODB.Recordset
Dim btn As CommandButton
Dim uButtonNumber As Integer, uCount As Integer, uStartButton As Integer
Dim uTargetButton As String
Dim strsql As String, con As ADODB.Connection

Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = 2 ' adOpenDynamic
rs.LockType = 2 ' adLockPessimistic
rs.Open strsql, con, 1 ' adOpenKeyset

If rs.RecordCount > 0 Then
    rs.MoveFirst
    uButtonNumber = uStartButton
    uCount = 0
    Do While Not rs.EOF
        uButtonNumber = uButtonNumber + 1
        uCount = uCount + 1
        uTargetButton = "Command" & uButtonNumber
        
        ' 正确获取嵌套子窗体中的按钮控件
        Set btn = Forms![001_frm_Home]![Subform01].Form![Subform02].Form.Controls(uTargetButton)
        btn.Caption = Trim(rs!Itemkey)
        
        rs.MoveNext
    Loop
Else
    ' 无记录时的处理逻辑
    MsgBox "未找到匹配记录"
End If

' 清理资源
rs.Close
Set rs = Nothing
Set btn = Nothing

额外注意事项 #

• 确保嵌套子窗体Subform01和Subform02已完全加载，否则会出现控件找不到的问题。
• 验证uStartButton的初始值是否合理，避免生成超出范围的按钮名称（比如超出Command1-30的设定）。
• 若使用早期绑定，需在VBA编辑器中勾选工具→引用→Microsoft ActiveX Data Objects x.x Library，获得更严谨的类型检查。

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