基于条件查询4个大型Access表中的1个的最有效方法(使用VBA模块)

Option Compare Database
Option Explicit

Sub ConditionQuery()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strCondition As String
    
    ' 设置查询条件
    strCondition = "字段名 = '条件值'"
    
    ' 创建数据库对象
    Set db = CurrentDb
    
    ' 构建查询SQL语句
    strSQL = "SELECT * FROM 表名 WHERE " & strCondition
    
    ' 执行查询
    Set rs = db.OpenRecordset(strSQL)
    
    ' 遍历查询结果
    If Not rs.EOF Then
        rs.MoveFirst
        Do Until rs.EOF
            ' 处理查询结果
            ' 例如，可以将查询结果输出到调试窗口
            Debug.Print rs.Fields("字段名").Value
            
            rs.MoveNext
        Loop
    End If
    
    ' 关闭记录集和数据库对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub