在VBA MS Access中运行两个SQL查询。第二个记录集依赖于第一个记录集

在VBA MS Access中运行两个SQL查询，第二个记录集依赖于第一个记录集的情况下，可以按照以下步骤进行操作：

1. 首先，你需要创建一个函数或者子过程来执行这两个SQL查询。可以在VBA模块中创建一个新的函数或者子过程。
2. 在函数或者子过程中，你需要使用ADODB对象来连接到数据库并执行SQL查询。首先，你需要创建一个ADODB.Connection对象来建立与数据库的连接。可以使用以下代码创建连接对象：

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb"
conn.Open

请注意，上述代码中的"YourDatabase.accdb"应替换为你实际使用的数据库文件名和路径。

1. 接下来，你需要创建两个ADODB.Recordset对象来存储查询结果。可以使用以下代码创建两个记录集对象：

Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

1. 然后，你可以使用ADODB.Recordset对象的Open方法执行第一个SQL查询，并将结果存储在第一个记录集对象中。可以使用以下代码执行第一个查询：

Dim sql1 As String
sql1 = "SELECT * FROM Table1"
rs1.Open sql1, conn

请注意，上述代码中的"Table1"应替换为你实际使用的表名。

1. 接下来，你可以使用第一个记录集对象的字段值来构建第二个SQL查询，并执行该查询，将结果存储在第二个记录集对象中。可以使用以下代码执行第二个查询：

Dim sql2 As String
sql2 = "SELECT * FROM Table2 WHERE Field1 = " & rs1.Fields("Field1").Value
rs2.Open sql2, conn

请注意，上述代码中的"Table2"和"Field1"应替换为你实际使用的表名和字段名。

1. 最后，你可以使用两个记录集对象来处理查询结果。可以使用以下代码遍历记录集并获取字段值：

Do Until rs1.EOF
    ' 处理第一个记录集的字段值
    MsgBox rs1.Fields("Field1").Value
    
    ' 处理第二个记录集的字段值
    Do Until rs2.EOF
        MsgBox rs2.Fields("Field2").Value
        rs2.MoveNext
    Loop
    
    rs1.MoveNext
Loop

请注意，上述代码中的"Field1"和"Field2"应替换为你实际使用的字段名。

1. 最后，记得在完成查询后关闭记录集和连接对象，以释放资源。可以使用以下代码关闭记录集和连接对象：

rs1.Close
rs2.Close
conn.Close

以上就是在VBA MS Access中运行两个SQL查询，第二个记录集依赖于第一个记录集的完整步骤。在实际应用中，你可以根据具体需求进行适当的修改和扩展。