VBA（Access）中Currency变量与数据字段类型不匹配问题问询

错误原因 #

CurrentDb.OpenRecordset()返回的是Recordset对象，并非直接的Currency类型数值。你直接将这个对象赋值给Currency类型变量TotalCredit，自然会触发类型不匹配的编译错误——哪怕你的查询结果是单个数值，也需要从Recordset对象中提取对应字段的值才能赋值。

解决方法 #

方法1：通过Recordset读取数值

Private Sub CalculateCredit_Click()
    Dim TotalCredit As Currency
    Dim rs As Recordset
    
    ' 给聚合结果起别名，方便后续引用
    Set rs = CurrentDb.OpenRecordset("SELECT SUM(Credit) AS Total FROM EmployeeCredit")
    
    ' 检查记录集是否有数据，同时处理SUM返回Null的情况（比如表为空）
    If Not rs.EOF Then
        TotalCredit = Nz(rs!Total, 0)
    Else
        TotalCredit = 0
    End If
    
    ' 关闭并释放记录集对象
    rs.Close
    Set rs = Nothing
End Sub

方法2：用DLookup直接获取数值（更简洁）

Private Sub CalculateCredit_Click()
    Dim TotalCredit As Currency
    ' 用Nz处理SUM可能返回的Null值，避免报错
    TotalCredit = Nz(DLookup("SUM(Credit)", "EmployeeCredit"), 0)
End Sub

注意事项 #

• 当EmployeeCredit表中无记录，或所有Credit字段值为Null时，SUM(Credit)会返回Null，直接赋值给Currency变量会引发错误，因此必须用Nz()函数将Null转换为0。
• 给聚合查询的结果设置别名（如AS Total），能让代码更易读，也避免引用字段时的歧义。

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