带参数的Access查询导出CSV时触发Runtime Error 3828求助

这个3828错误其实是Access的一个明确限制：当你的查询同时包含多值字段，并且使用了IN子句引用外部数据库时，TransferText工具没办法处理这种组合场景——多值字段是Access独有的特殊结构，跨库IN引用又增加了复杂度，两者碰在一起就触发了这个报错。

下面给你两个可行的修复方案，你可以根据自己的需求选择：

方案一：先将查询结果存入本地临时表，再导出 #

这个方法是绕开TransferText对跨库多值查询的限制，先把查询结果落地到本地的临时表（临时表是普通的Access表，没有多值字段的特殊结构），再导出这个临时表：

Private Sub EthosRpt_Click()
    ' 先清理已存在的临时表（避免重复创建报错）
    On Error Resume Next
    DoCmd.DeleteObject acTable, "Temp_EthosSessions"
    On Error GoTo 0
    
    ' 将查询结果导入本地临时表
    DoCmd.RunSQL "SELECT * INTO Temp_EthosSessions FROM EthosSessions"
    
    ' 导出临时表到CSV
    DoCmd.TransferText acExportDelim, , "Temp_EthosSessions", "C:\[file path]\test.csv"
    
    ' 可选：导出完成后删除临时表，保持数据库整洁
    DoCmd.DeleteObject acTable, "Temp_EthosSessions"
End Sub

这个方案的好处是不需要修改原查询，直接通过VBA中转就能快速解决问题。

方案二：修改原查询，消除跨库IN和多值字段的冲突 #

如果不想用临时表，可以调整EthosSessions查询的结构：

• 展开多值字段：把多值字段拆成单独的行（比如用SELECT [你的多值字段].Value FROM EthosSessions，替换掉原来直接引用多值字段的写法）
• 替换跨库IN引用：如果查询里的IN子句是引用外部数据库的表，先把外部表的数据导入到本地数据库的一个临时表，再在查询中引用这个本地临时表，而不是直接用IN [外部数据库路径]的写法

修改后的查询不再包含跨库IN+多值字段的组合，TransferText就能正常处理导出了。

你可以先试方案一，这个最快见效；如果方案一不符合你的需求，再调整查询结构。

内容的提问来源于stack exchange，提问作者Ben H.