MS Access数据库录入Form动态功能实现相关问题咨询

1. Number文本框输入联动自动赋值 #

优先推荐用Label展示结果，美观度更高，实现逻辑如下：

• 打开窗体的设计视图，添加名为lbl_TypeResult的标签控件，删除原有ComboBox（保留ComboBox的话只需要修改赋值对象即可）
• 选中文本框Number，打开属性表→「事件」选项卡，找到「更新后」事件，选择「事件过程」，点击后方的「...」进入VBA编辑界面，输入以下代码：

Private Sub Number_AfterUpdate()
    ' 自定义规则：例如1开头对应分类A，2开头对应分类B，3开头对应分类C
    Select Case Left(Me.Number.Value, 1)
        Case "1"
            Me.lbl_TypeResult.Caption = "分类A"
            ' 如果保留ComboBox，替换上一行为：Me.ComboBox名称.Value = "分类A"
        Case "2"
            Me.lbl_TypeResult.Caption = "分类B"
        Case "3"
            Me.lbl_TypeResult.Caption = "分类C"
        Case Else
            Me.lbl_TypeResult.Caption = "未知分类"
    End Select
End Sub

• 若需要输入过程中实时更新结果，可将相同逻辑复制到Number_Change()事件中即可。

2. 响应码为0的案例自动统计 #

你之前的DCount失效的核心原因：DCount的第二个参数为「域」参数，需要填写表名/查询名，不能直接填子窗体控件名，同时要匹配Response code字段的类型调整判断条件：

方案1：整表统计（统计所有符合条件的历史记录） #

如果统计的是整张表中响应码为0的记录数，将文本框的控件来源改为：

• 若Response code为数字类型：=DCount("*","你的实际表名","[Response code] = 0")
• 若Response code为文本类型：=DCount("*","你的实际表名","[Response code] = '0'")

方案2：子窗体当前录入记录统计（仅统计当前子窗体加载的记录） #

更稳定的统计方式，适合统计子窗体中用户刚录入的记录：

• 在子窗体的页脚区域添加一个隐藏的文本框，控件来源填写：=Count(IIf([Response code]=0,1,Null))，命名为txt_ApprovedCount
• 在主窗体的统计文本框的控件来源填写：=[Information Subform].[Form]![txt_ApprovedCount]
  该方案会自动跟随子窗体的记录筛选、新增操作实时更新计数，不会受表名修改影响。

3. 列表选中后自动填充预置脚本 #

实现逻辑如下：

• 选中列表框控件，打开属性表→「事件」选项卡，找到「单击」/「更新后」事件，选择「事件过程」进入VBA编辑界面，输入以下代码：

Private Sub 列表框名称_Click()
    Select Case Me.列表框名称.Value
        Case "已通过"
            Me.目标文本框名称.Value = "您好，您提交的申请已审核通过，相关材料会在3个工作日内寄出，请您留意查收。"
        Case "已驳回"
            Me.目标文本框名称.Value = "您好，您的申请因材料不全被驳回，请补充完整后重新提交。"
        Case "待补充"
            Me.目标文本框名称.Value = "您好，请您补充提交XXX证明材料后再次提交申请。"
        ' 可自行添加更多Case分支匹配对应预置内容
        Case Else
            Me.目标文本框名称.Value = ""
    End Select
End Sub

配置完成后点击列表框内的选项，就会自动将对应的预置脚本填充到指定文本框中，可直接根据业务需求修改内容使用。

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