MS Access/VBA：设计模式下如何为其他表单控件设置焦点？

我之前也踩过这个坑——在Access的设计模式下，常规运行时用的SetFocus完全不管用，因为设计视图的交互逻辑和正常运行模式根本不是一套体系。不过别担心，有两种靠谱的方法可以实现你要的效果：

方法1：使用表单Designer的SelectControl方法 #

这是最直接的方式，通过访问表单的设计器对象来选中指定控件：

Sub SelectControlInDesignMode()
    Dim targetFormName As String
    Dim targetControlName As String
    targetFormName = "你的表单名称"
    targetControlName = "要转换的TextBox名称"
    
    ' 确保表单处于设计模式打开状态
    If Not CurrentProject.AllForms(targetFormName).IsLoaded Then
        DoCmd.OpenForm targetFormName, acDesign
    Else
        If Forms(targetFormName).CurrentView <> acDesign Then
            DoCmd.Close acForm, targetFormName
            DoCmd.OpenForm targetFormName, acDesign
        End If
    End If
    
    ' 获取表单对象并选中目标控件
    Dim frm As Form
    Set frm = Forms(targetFormName)
    frm.Designer.SelectControl frm.Controls(targetControlName)
    
    ' 可选：直接转换为Combobox
    DoCmd.RunCommand acCmdChangeToComboBox
End Sub

方法2：使用DoCmd.SelectObject #

这种方法更简洁，直接通过命令选中指定控件：

Sub SelectControlWithDoCmd()
    Dim targetFormName As String
    Dim targetControlName As String
    targetFormName = "你的表单名称"
    targetControlName = "要转换的TextBox名称"
    
    ' 确保表单在设计模式打开
    If Forms(targetFormName).CurrentView <> acDesign Then
        DoCmd.OpenForm targetFormName, acDesign
    End If
    
    ' 选中控件
    DoCmd.SelectObject acControl, targetFormName & "." & targetControlName, acDesign
    
    ' 转换为Combobox
    DoCmd.RunCommand acCmdChangeToComboBox
End Sub

关键说明 #

• 为什么SetFocus无效？因为SetFocus是针对运行时控件的焦点设置，而设计模式下的控件属于Access的设计界面元素，需要用设计器专属的选择方法来操作。
• 选中控件后，你可以直接用DoCmd.RunCommand执行设计模式下的命令，比如转换控件类型、修改属性等，和手动操作的效果完全一致。

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