如何通过命令按钮与VBA在Access窗体运行时设置控件默认值

需求说明 #

• 开发Access窗体，需在运行时无需进入设计模式修改控件默认值
• 通过命令按钮结合VBA实现：审计工作中切换工作地点时，点击按钮弹出支持扫码录入的输入框，输入新地点后刷新窗体使新位置生效
• 曾在8年前实现过该功能，现已遗忘具体方法，尝试过多段VBA代码并花费6天搜索资料仍未解决

尝试过的代码 #

Me.Form.frmEntry.txtLocation.DefaultValue = InputBox("Please Enter A New Location", "Location Change")
Me.Refresh

问题分析与修正方案 #

核心问题

1. 子窗体控件引用路径错误：正确的子窗体控件引用格式应为主窗体.子窗体控件.Form.子窗体控件，而非你写的Me.Form.frmEntry.txtLocation
2. 文本型字段默认值未加引号：Access中文本控件的默认值需要用双引号包裹，否则无法识别为文本格式
3. 刷新方式错误：Me.Refresh仅刷新当前窗体的数据，不会触发默认值的更新，需要重新查询子窗体

修正后的VBA代码

将命令按钮的点击事件代码替换为以下内容：

Private Sub cmdChangeLocation_Click()
    Dim newLocation As String
    ' 获取用户输入（扫码枪可直接模拟键盘输入填充）
    newLocation = InputBox("请输入新的工作地点", "切换工作地点")
    
    ' 校验输入不为空
    If Trim(newLocation) <> "" Then
        ' 正确引用子窗体控件并设置文本型默认值（需嵌套双引号）
        Me.frmEntry.Form.txtLocation.DefaultValue = """" & newLocation & """"
        ' 重新查询子窗体，使新默认值生效
        Me.frmEntry.Requery
    End If
End Sub

补充说明

• 确认frmEntry是主窗体上的子窗体控件名称（而非子窗体本身的名称，两者可能同名）
• 如果目标控件在主窗体而非子窗体，直接使用Me.txtLocation.DefaultValue = """" & newLocation & """"
• 扫码录入无需额外配置，主流扫码枪均支持模拟键盘输入，可直接将内容填入InputBox

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