MS Access表单中基于Web Browser Control实现PDF按记录动态路径显示

嘿，这个需求其实挺常见的，我帮你梳理下具体步骤，照着做就能搞定：

1. 先把Web Browser控件加到表单里 #

打开表单的设计视图，在控件工具箱里找到Web浏览器控件——要是没看到，右键工具箱选「附加控件」，找到「Microsoft Web Browser」打勾启用就行。拖个控件到表单合适位置，给它起个好记的名字，比如wbPDFViewer，后面写代码方便引用。

2. 写VBA代码动态加载PDF #

核心是在记录切换或者组合框选完值之后，自动拼接PDF路径并加载。我们可以把逻辑封装成一个子过程，然后在两个关键事件里调用：

假设你存key值的文本框叫txtKeyValue，组合框叫cboRecordSelector，代码如下：

' 表单切换到新记录时触发
Private Sub Form_Current()
    LoadMatchingPDF
End Sub

' 组合框选择新值后触发
Private Sub cboRecordSelector_AfterUpdate()
    Me.Requery ' 刷新表单加载对应记录
    LoadMatchingPDF
End Sub

' 核心逻辑：加载当前记录对应的PDF
Private Sub LoadMatchingPDF()
    Dim fullPDFPath As String
    Dim currentKey As String
    
    ' 获取当前记录的key值，用Nz处理空值避免报错
    currentKey = Nz(Me.txtKeyValue.Value, "")
    
    If currentKey <> "" Then
        ' 拼接完整路径
        fullPDFPath = "S:\FolderPath\xyz\" & currentKey & ".pdf"
        
        ' 先检查文件是否存在
        If Dir(fullPDFPath) <> "" Then
            ' 加载PDF到Web控件
            Me.wbPDFViewer.Navigate fullPDFPath
        Else
            ' 文件不存在时清空控件并提示
            Me.wbPDFViewer.Navigate "about:blank"
            MsgBox "找不到对应PDF文件：" & fullPDFPath, vbExclamation
        End If
    Else
        ' 没有key值时清空控件
        Me.wbPDFViewer.Navigate "about:blank"
    End If
End Sub

3. 几个要注意的点 #

• 权限与路径：确保Access能访问S盘的那个文件夹，不然会加载失败；路径里的文件夹必须实际存在哦。
• 空值处理：用Nz函数是为了防止key值为空时代码报错，细节很重要。
• 控件兼容性：Web Browser控件基于IE，要是你的系统IE版本太低，可能打不开PDF，这时候可以考虑用Adobe Acrobat的控件，但Web Browser是更通用的选择。
• 测试验证：切换几条记录，或者用组合框选不同值，看看PDF是不是正常加载，文件不存在的提示能不能弹出来。

这样设置完，每次切换记录或者选组合框，Web控件就会自动加载对应key的PDF啦！

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