Recordset能否同时执行两条Select查询？数据库函数合并及压缩咨询

让我逐个帮你解答这些问题：

首先明确：一个Recordset对象没法同时执行并绑定两条独立的SELECT语句——它本质上是单个查询结果集的容器。不过有两种办法实现类似需求：

• 如果两个查询的结果结构兼容（列数、数据类型匹配），可以用UNION（或UNION ALL）把它们合并成一个SQL语句，这样一个Recordset就能获取合并后的结果。比如：

  SELECT TOP 1 [Tax Rate] As TRate FROM tblTax WHERE [Effective Date] <= #2024-06-30# ORDER BY [Effective Date] DESC
  UNION ALL
  SELECT Sum([SGROSS]) As YTDG FROM qryYTD2 WHERE [PE] Between #2024-01-01# And #2024-06-30# And [EID]=123;
  

  注意UNION会去重，UNION ALL保留所有结果，按需选择即可。
• 如果需要独立处理两个查询的结果，那就创建两个Recordset实例，分别执行各自的SELECT语句就行，互相不会干扰。

你的两个函数逻辑框架几乎一模一样：都是拼接SQL字符串、打开Recordset、读取字段值返回。完全可以把重复的操作抽成通用函数，这样代码会精简很多，后续维护也更方便。

优化后的代码示例：

Option Compare Database
Option Explicit

' 通用工具函数：执行SQL查询并返回数值结果（无数据时默认返回0）
Private Function GetNumericQueryResult(sql As String) As Double
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(sql)
    
    If Not (rs.BOF And rs.EOF) Then
        ' 用Nz处理Null值，避免运行时错误
        GetNumericQueryResult = Nz(rs.Fields(0).Value, 0)
    Else
        GetNumericQueryResult = 0
    End If
    
    rs.Close
    Set rs = Nothing
End Function

Public Function fncTRate(ByVal PEnd As Date) As Double
    Dim sql As String
    ' 统一日期格式为yyyy-mm-dd，避免区域设置导致的解析错误
    sql = "SELECT TOP 1 [Tax Rate] As TRate FROM tblTax WHERE [Effective Date] <= #" & Format(PEnd, "yyyy-mm-dd") & "# ORDER BY [Effective Date] DESC;"
    fncTRate = GetNumericQueryResult(sql)
End Function

Public Function fncYTDG(EmpN As Integer, PEnd As Date) As Double
    Dim sql As String
    sql = "SELECT Sum([SGROSS]) As YTDG FROM qryYTD2 WHERE [PE] Between #" & Format(DateSerial(Year(PEnd), 1, 1), "yyyy-mm-dd") & "# And #" & Format(PEnd, "yyyy-mm-dd") & "# And [EID]=" & EmpN
    fncYTDG = GetNumericQueryResult(sql)
End Function

几点关键优化：

• 删掉了不必要的全局变量strTaxR和strYTDG，改用局部变量避免全局污染。
• 新增Nz函数处理查询结果为Null的情况，防止出现运行时错误。
• 用Format统一日期格式，避免不同区域设置下的日期解析问题。
• 通用函数封装了重复的Recordset操作，后续要修改逻辑（比如加错误处理）只需要改这一处。

完全不用慌！Access的压缩和修复数据库操作只是做数据库文件的“大扫除”：回收删除数据占用的空空间、整理表和索引的物理存储、修复微小的文件损坏。它不会修改你的VBA代码、查询定义或者表结构——只要tblTax、qryYTD2这些对象还存在，你的函数就能正常运行。

当然，压缩前建议先备份数据库（这是任何维护操作的好习惯），但正常操作下不会对这些函数产生负面影响。你完全可以定期压缩数据库来优化性能，不用刻意保持现状。

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