如何在 Access VBA 中运行双循环

Question

我正在学习 Access 几天，我遇到了一些问题，进入了双循环。我做错了什么，因为我不是 Access 专家。看来我陷入了无限循环（或其他一些错误）。我的目标是从同一个表中检索一些数据。这是一个例子：

Table1

Field1     Field2
AAA        1
BBB        2
CCC        3
CCC        4
AAA        5
BBB        6

我想检索字段 2 中 Field1= x 的所有记录（但如果找到相同的记录，则不重复该操作）

这是我的代码：

Dim strSQL as String, rs as DAO.Recordset, rs2 as Dao.Recordset, result as String

strSQL = "SELECT * FROM Table1"
strSQL2 = "SELECT DISTINCT Field1 FROM Table1"
Set rs = Currentdb.OpenRecordset(strSQL)
Set rs2 = Currentdb.OpenRecordset(strSQL2)


rs2.movefirst

While not rs2.EOF
rs.movefirst
result = ""
While not rs.EOF
If rs.Fields("Field1") = rs2.Fields("Field1") Then
result = result & rs.fields("Field2") & "   "
rs.movenext
End if
Wend
rs2.movenext
Debug.print result
Wend

Set rs=Nothing
Set rs2 = Nothing

我想要的结果应该是：

• 结果（第一个循环）= 1 5

• 结果（第二个循环）= 2 6

• 结果（第三个循环）= 3 4

编辑： 我正在运行循环，因为我需要使用我找到的数据生成电子邮件。我知道如何生成电子邮件，但我只是堆在这个循环中。电子邮件示例应如下所示：

电子邮件数量 = [table1].[field1] 中唯一值的数量（在前面提到的示例中为 3）

对于每封电子邮件，字段 2 中所有记录的列表在字段 1 中具有循环值。

Answer 1

假设 Field2 实际上包含唯一的数值，请考虑：

TRANSFORM Max(Table1.Field2) AS MaxOfField2
SELECT Table1.Field1
FROM Table1
GROUP BY Table1.Field1
PIVOT DCount("*","Table1","Field1='" & Field1 & "' AND Field2<" & Field2)+1;

但是，如果 CROSSTAB 需要处理的值太多，或者如果您确实需要 Field2 中的单个值字符串用于 Field1 中的每个值，请使用 VBA 连接数据。一个版本http://allenbrowne.com/func-concat.html

Answer 2

另一个使用 ado 记录集的 getstring 方法的选项。

a) 粘贴到 sql 视图中的新查询并保存：select field1,field2list(field1) from table1

b) 在 vba 模块中，粘贴 field2list 函数：

Function field2list(field1) As String
Dim rs As New adodb.Recordset
Dim ColumnSeparator
Dim RowSeparator
Dim sql
ColumnSeparator = ""
RowSeparator = ","
sql = "select field2 from table1 where field1='" & field1 & "'"
Set rs = CurrentProject.Connection.Execute(sql)
If rs.RecordCount > 0 Then
    field2list = rs.GetString(, -1, ColumnSeparator, RowSeparator)
End If
End Function

c) 打开在步骤 a 中创建的查询。