Access 2019部署.accde时遇错误3625：文本文件规范‘X’不存在

问题根源 #

ACCDE是编译后的数据库文件，链接文本表依赖的导入规范（存储在MSYSImexSpecs系统表）可能在编译过程中丢失，或因权限、加载机制问题无法被识别，导致报错"The text file specification 'X' does not exist"。

具体解决步骤 #

1. 重新保存导入规范后编译ACCDE #

• 在正常运行的ACCDB文件中，打开外部数据选项卡，选择文本文件，重新执行链接.tab文件的流程：
  • 选择目标.tab文件，按向导完成链接，确保在最后一步勾选保存导入步骤，并将规范命名为报错中提到的"X"。
• 显示系统对象（导航栏→选项→导航选项→显示系统对象），确认MSYSImexSpecs表中存在名为"X"的规范记录。
• 执行压缩修复数据库，再重新编译为ACCDE。

2. 手动在ACCDE中导入规范记录 #

如果编译后规范仍丢失，可通过VBA在启动时手动插入规范：

Public Function checkVer()
    Dim db As DAO.Database
    Set db = CurrentDb
    
    ' 检查规范是否存在
    On Error Resume Next
    db.TableDefs("MSYSImexSpecs").OpenRecordset.FindFirst "SpecName='X'"
    If Err.Number = 3021 Then ' 未找到规范记录
        ' 从ACCDB的MSYSImexSpecs表复制对应字段值替换下方占位符
        db.Execute "INSERT INTO MSYSImexSpecs (SpecName, SpecType, FileFormat, Delimiter) " & _
                   "VALUES ('X', 0, 1, '	')" ' Delimiter为制表符，用`Chr(9)`也可
    End If
    On Error GoTo 0
    
    ' 原检查逻辑
    Dim ind As Boolean
    ind = DLookup("[ACTIVE]", "Ver", "Ver = '9'")
    If Not ind Then
        MsgBox "This version is obsolete. You may get the latest version from the shared folder."
        Application.Quit acSaveNo
    End If
End Function

注意：MSYSImexSpecs的字段需与ACCDB中的记录完全匹配，可直接从ACCDB的系统表中复制字段值。

3. 绕开链接表，直接用ADODB读取文本文件 #

彻底避免依赖导入规范，改用ADODB直接读取.tab文件：

Public Function checkVer()
    Dim conn As Object
    Dim rs As Object
    Dim strFolderPath As String
    Dim ind As Boolean
    
    strFolderPath = "共享文件夹的完整路径" ' 替换为实际路径
    
    ' 建立文本文件连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFolderPath & _
              ";Extended Properties='text;HDR=Yes;FMT=TabDelimited;'"
    
    ' 执行查询
    Set rs = conn.Execute("SELECT ACTIVE FROM Ver.tab WHERE Ver = '9'")
    
    ind = Not rs.EOF And rs("ACTIVE").Value ' 存在记录且ACTIVE为真
    rs.Close: conn.Close
    
    If Not ind Then
        MsgBox "This version is obsolete. You may get the latest version from the shared folder."
        Application.Quit acSaveNo
    End If
End Function

若.tab文件无法被识别，可在共享文件夹中创建schema.ini文件，指定文件格式：

[Ver.tab]
Format=TabDelimited
ColNameHeader=True

4. 权限与环境检查 #

• 确保运行ACCDE的用户对共享文件夹有读取权限，对ACCDE所在目录有写入权限（Access需临时存储配置）。
• 检查杀毒软件或组策略是否拦截了ACCDE访问系统表或共享文件。

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