基于网络用户名的Access查询无法用于Word邮件合并的问题咨询

方法一：Access前端创建临时表存储当前用户数据 #

Word邮件合并能识别Access的表，但无法识别含自定义VBA函数的查询，因此可以先将筛选后的数据存入静态表：

• 1. 在Access前端新建临时表tblCurrentUserProjects，字段与你的关联查询一致（包含FirstName、LastName、PhoneNo、MobileNo、EmailAddress及项目相关字段）。
• 2. 添加VBA代码，在数据库启动时自动填充当前用户的项目数据：

Sub PopulateCurrentUserProjects()
    Dim db As DAO.Database
    Dim strSQL As String
    Dim strCurrentUser As String
    
    Set db = CurrentDb
    ' 获取当前登录用户名
    strCurrentUser = CreateObject("WScript.Network").UserName
    
    ' 清空临时表旧数据
    db.Execute "DELETE * FROM tblCurrentUserProjects"
    
    ' 插入当前用户的关联项目数据
    strSQL = "INSERT INTO tblCurrentUserProjects " & _
             "SELECT u.FirstName, u.LastName, u.PhoneNo, u.MobileNo, u.EmailAddress, p.* " & _
             "FROM tblUsers u INNER JOIN tblProjects p ON u.UserID = p.UserID " & _
             "WHERE u.UserName = '" & strCurrentUser & "'"
    db.Execute strSQL
    
    Set db = Nothing
End Sub

• 3. 设置自动执行：创建启动窗体，在窗体Load事件中调用该子过程；或者创建AutoExec宏运行该VBA代码。
• 4. Word邮件合并时，直接选择tblCurrentUserProjects作为数据源即可。

方法二：Word端用VBA动态获取并合并数据 #

直接在Word中写代码，跳过手动选择数据源的步骤，自动连接Access并筛选当前用户数据：

• 1. 打开目标Word文档，按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub MergeCurrentUserProjects()
    Dim objAccess As Object
    Dim strCurrentUser As String
    Dim strSQL As String
    Dim rs As Object
    
    ' 获取当前登录用户名
    strCurrentUser = CreateObject("WScript.Network").UserName
    
    ' 连接到你的Access前端数据库（替换为实际路径）
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase "C:\YourPath\YourFrontend.accdb"
    
    ' 构造筛选当前用户的SQL语句
    strSQL = "SELECT u.FirstName, u.LastName, u.PhoneNo, u.MobileNo, u.EmailAddress, p.* " & _
             "FROM tblUsers u INNER JOIN tblProjects p ON u.UserID = p.UserID " & _
             "WHERE u.UserName = '" & strCurrentUser & "'"
    Set rs = objAccess.CurrentDb.OpenRecordset(strSQL)
    
    ' 执行邮件合并并生成新文档
    With ActiveDocument.MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource Name:="C:\YourPath\YourFrontend.accdb", _
                        SQLStatement:=strSQL, _
                        SQLStatement1:=""
        .Destination = wdSendToNewDocument
        .Execute
    End With
    
    ' 清理资源
    rs.Close
    objAccess.Quit
    Set rs = Nothing
    Set objAccess = Nothing
End Sub

• 2. 替换代码中的数据库路径为你的Access前端实际路径，运行宏即可直接生成合并后的文档。

核心原因说明 #

问题本质是Word邮件合并无法识别Access模块中的自定义VBA函数，因此任何依赖这些函数的查询都不会出现在可用列表里。上述两种方法均绕开了这个限制：要么提前将筛选结果存入静态表，要么直接在Word中动态执行筛选逻辑。

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