如何在Access VBA中通过Tempvars标签在窗体加载时管控控件锁定状态

首先，咱们先搞清楚错误438的根源：对象不支持该属性或方法。你遍历Me.Controls的时候，窗体里的所有控件都会被扫一遍——包括标签（Label）、线条（Line）、图像（Image）这些控件，它们根本没有Locked属性，当代码尝试给这些控件设置Locked值时，自然就会报错。

另外还要确认TempVars!addAltTag是否正确加载了预期的值，有没有拼写错误（Access里一般不区分大小写，但最好检查一下）。

给你两个修正方案，按需选择：

方案1：仅处理指定类型的控件 #

既然你只需要处理TextBox、ComboBox、CheckBox，那咱们就在遍历的时候先判断控件类型，跳过那些不支持Locked属性的控件：

Dim ctl As Control
' 先确认TempVars存在且有值，避免空匹配
If Not TempVars.Exists("addAltTag") Or TempVars("addAltTag") = "" Then
    MsgBox "TempVars!addAltTag 未设置有效值", vbExclamation
    Exit Sub
End If

For Each ctl In Me.Controls
    ' 只处理你需要的三种控件类型
    If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is CheckBox Then
        If ctl.Tag = TempVars("addAltTag") Then
            ctl.Locked = False
        Else
            ctl.Locked = True
        End If
    End If
Next ctl

方案2：通用判断控件是否支持Locked属性 #

如果以后可能新增其他支持Locked的控件类型，可以用On Error Resume Next来跳过不支持的控件（不过这种方式不如类型判断直观，适合通用场景）：

Dim ctl As Control
If Not TempVars.Exists("addAltTag") Or TempVars("addAltTag") = "" Then
    MsgBox "TempVars!addAltTag 未设置有效值", vbExclamation
    Exit Sub
End If

For Each ctl In Me.Controls
    On Error Resume Next ' 遇到不支持Locked的控件时跳过错误
    If ctl.Tag = TempVars("addAltTag") Then
        ctl.Locked = False
    Else
        ctl.Locked = True
    End If
    On Error GoTo 0 ' 恢复错误捕获
Next ctl

额外调试小技巧 #

如果还是不确定问题出在哪，可以先加一行代码输出控件信息，看看哪个控件触发了错误：

For Each ctl In Me.Controls
    Debug.Print "控件名称：" & ctl.Name & "，类型：" & TypeName(ctl)
    ' 后面的逻辑...
Next ctl

打开VBA编辑器的立即窗口（Ctrl+G），就能看到所有控件的类型，很容易找到那些没有Locked属性的控件。

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