Access表单按钮优化：按[type]字段自动匹配打开对应报表

完全可以实现这个需求，步骤如下：

1. 删除表单上原有的semi和spring两个按钮
2. 新增一个按钮（建议命名为PrintCert）
3. 给这个新按钮绑定以下VBA代码：

Private Sub PrintCert_Click()
    Dim reportName As String
    Dim typeValue As String
    
    ' 读取当前记录的[type]字段值，转小写消除大小写差异
    typeValue = LCase(Nz(Me![type], ""))
    
    ' 根据字段内容匹配对应报表
    If InStr(typeValue, "semi") > 0 Then
        reportName = "Quick Hitch (SEMI) Certificate"
    ElseIf InStr(typeValue, "spring") > 0 Then
        reportName = "Quick Hitch (SPRING) Certificate"
    Else
        ' 字段不匹配时弹出提示，终止操作
        MsgBox "未识别的证书类型，请检查[type]字段值！", vbExclamation
        Exit Sub
    End If
    
    ' 执行报表打开、打印、关闭操作，与原逻辑一致
    DoCmd.OpenReport reportName, acViewPreview, , "[no] = " & Me![no]
    DoCmd.PrintOut
    DoCmd.Close
End Sub

细节说明： #

• LCase()：将[type]字段值转为小写，确保不管是SEMI、Semi还是semi都能正确匹配
• Nz()：处理[type]字段为空的情况，避免因空值导致代码报错
• 新增异常提示：当[type]字段既不含semi也不含spring时，给用户明确提示，避免无效操作
• 保留原有核心逻辑：打开报表、自动打印、关闭的流程和你之前的代码完全一致，确保功能不变

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