如何在同一MS Access文件的Web Browser控件内嵌HTML中打开MS Access表单

嘿，这个需求确实有点冷门，但完全能搞定！我来给你一步步拆解实现方法：

关键是利用Access Web Browser控件的ObjectForScripting属性，让加载的HTML页面能调用Access的VBA代码，以此触发打开内部表单的操作。

1. 配置Web Browser控件的脚本访问权限 #

假设你的Web Browser控件名叫wbMain，在它所在的Access表单的Load事件里，添加以下VBA代码，把当前表单对象绑定给控件的脚本访问对象：

Private Sub Form_Load()
    ' 允许Web Browser控件调用当前表单的公开VBA方法
    Me.wbMain.ObjectForScripting = Me
End Sub

2. 编写打开表单的公开VBA方法 #

在同一个表单的VBA模块中，添加一个Public方法，用来处理打开表单的逻辑：

Public Sub OpenAccessForm(formName As String)
    ' 先检查表单是否已加载，避免重复打开
    If Not CurrentProject.AllForms(formName).IsLoaded Then
        ' 这里可以根据需求设置打开模式，比如只读
        DoCmd.OpenForm formName, , , , acFormReadOnly
    Else
        ' 如果表单已打开，直接激活它
        DoCmd.SelectObject acForm, formName, True
    End If
End Sub

⚠️ 这个方法必须是Public的，否则HTML无法调用到！

3. 在HTML中添加触发按钮 #

现在你可以在Web Browser控件加载的HTML里，添加按钮或链接，通过window.external调用刚才写的VBA方法：

<!-- 替换成你实际要打开的表单名称 -->
<button onclick="window.external.OpenAccessForm('客户信息表单')">打开客户信息表单</button>

• 确保Access的信任中心允许运行VBA代码，否则ObjectForScripting会被安全策略阻止；
• 如果HTML是本地文件，要保证Access有该文件的读取权限；如果是通过VBA动态生成的HTML内容，直接使用即可；
• 如果你需要传递更多参数（比如打开表单时筛选特定记录），可以修改OpenAccessForm方法，增加参数并在DoCmd.OpenForm里添加筛选条件。

内容的提问来源于stack exchange，提问作者Ian J.