遍历查询字段名时触发Type Mismatch Error问题求助

错误原因 #

你遇到的Type Mismatch类型不匹配错误，核心问题是变量fld的类型声明未明确指定DAO库。Access环境中同时存在DAO（Data Access Objects）和ADO（ActiveX Data Objects）两种数据访问模型，两者都有Field对象。如果代码中没有显式指定dao.Field，VBA可能默认引用ADO的Field类型，而你打开的是DAO类型的Recordset，导致循环时类型不兼容。

修复步骤 #

1. 直接修正变量声明 #

将原代码中的Dim fld As Field改为**Dim fld As dao.Field**，明确指定使用DAO的Field对象，确保和DAO类型的Recordset匹配：

Dim fld As dao.Field

2. 可选优化：改用TableDef/QueryDef替代Recordset（更高效） #

你的需求仅需对比字段名，不需要打开记录集读取数据，直接操作QueryDef（查询）或TableDef（表）性能更好，还能避免因记录集打开失败引发的其他问题。修改后的完整函数如下：

Public Function fnCompareTableHeaders(strFirstQuery As String, strSecondQuery As String) As Boolean
On Error GoTo ErrHandler

    Dim db As dao.Database
    Dim objFirst As Object
    Dim objSecond As Object
    Dim strFirstString As String
    Dim strSecondString As String
    Dim fld As dao.Field

    DoCmd.Hourglass True
    DoCmd.SetWarnings False
    
    Set db = CurrentDb
    
    ' 获取查询或表的定义对象
    Set objFirst = GetDbObject(db, strFirstQuery)
    Set objSecond = GetDbObject(db, strSecondQuery)
    
    ' 若任一对象不存在，直接返回False
    If objFirst Is Nothing Or objSecond Is Nothing Then
        GoTo ExitFunct
    End If
    
    ' 拼接第一个查询/表的字段名
    For Each fld In objFirst.Fields
        strFirstString = strFirstString & "|" & fld.Name
    Next
    ' 移除开头的分隔符
    If Len(strFirstString) > 0 Then strFirstString = Mid(strFirstString, 2)
    
    ' 拼接第二个查询/表的字段名
    For Each fld In objSecond.Fields
        strSecondString = strSecondString & "|" & fld.Name
    Next
    If Len(strSecondString) > 0 Then strSecondString = Mid(strSecondString, 2)
    
    ' 对比字段名字符串
    fnCompareTableHeaders = (strFirstString = strSecondString)
    
ExitFunct:
  DoCmd.Hourglass False
  DoCmd.SetWarnings True
  Set objFirst = Nothing
  Set objSecond = Nothing
  Set db = Nothing
  Exit Function
      
ErrHandler:
    MsgBox Err.Description, vbExclamation, Err.Number & " - Error Message"
    Err.Clear
    fnCompareTableHeaders = False
    Resume ExitFunct

End Function

' 辅助函数：获取查询或表的定义对象
Private Function GetDbObject(db As dao.Database, strName As String) As Object
    On Error Resume Next
    ' 先尝试查询
    Set GetDbObject = db.QueryDefs(strName)
    ' 查询不存在则尝试表
    If GetDbObject Is Nothing Then
        Set GetDbObject = db.TableDefs(strName)
    End If
    On Error GoTo 0
End Function

额外注意事项 #

• 确保VBA项目引用了Microsoft DAO x.x Object Library（打开VBA编辑器→工具→引用，勾选对应库）。
• 原代码中的db.Close属于冗余操作：CurrentDb返回的是临时数据库对象，不需要手动关闭，直接Set db = Nothing即可。

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