MS-Access：为表中的每个不同值循环遍历代码

问题描述

我的访问数据库中有一个名为Table_Example_1的表。当前，我有一个循环，该循环根据我表中的[Flag]字段循环执行代码，因此，如果将所有内容都设置为'Flag_1'，它将循环遍历这些记录并执行代码以创建字符串输出。

但是，有些项目具有相同的标志，例如'Flag_1'，但是它们需要与具有相同值的其他记录分开执行。我添加了一个名为[Grouped]的字段，而我想要做的就是使用该字段在同一标记中遍历该分组中的所有内容。

因此，如果有2条记录设置为Flag_1并且都属于组1，则这些记录将在同一循环中运行。组2中带有Flag_1的记录将在单独的循环中运行。（这些结果将在最后合并）

我的相关数据表如下：

Business        Type            TableName   FieldName   Flag    Grouped
Red             Residential     RedTable    [Field_1]   Flag_1      1
Red             Residential     RedTable    [Field_1]   Flag_1      1
Red             Residential     RedTable    [Field_1]   Flag_1      1
Red             Residential     RedTable    [Field_2]   Flag_1      2
Red             Residential     RedTable    [Field_2]   Flag_1      2

下面是我当前的代码，该代码当前仅循环访问具有相同Flag的记录，而没有考虑它们的分组。

它使用Flag_1设置记录集并过滤所有内容
然后循环遍历记录集并执行代码以设置结果变量。

所以我想对下面的代码做些什么，添加一个部分来检查分组并查看所有组，然后将我的below循环嵌套在其中。

我首先需要从记录集中获取不同数量的组。我提供的示例仅包含第1组和第2组，但是每次都会有所不同。

然后我想在此循环下面嵌套。我当时在考虑使用for循环，但是我不确定如何检查记录集中的组数，并对每个组执行此操作。

 Public Function CreateFilterString(Business As String,Type As String,TableName As String)
        'Define variables
        Dim resultString_1 As String
        Dim resultStringFinal As String
        Dim recSet As Recordset
        
        'Flag_1 Related Flag RecordSet
        Set recSet = CurrentDb.OpenRecordset("SELECT * FROM Table_Example_1 WHERE Table_Example_1.TableName = '" & TableName & "' AND Table_Example_1.Business = '" & Business & "' AND Table_Example_1.Type = '" & Type & "' AND Table_Example_1.Flag = 'Flag_1' ")
        
        'If there is no data in the recordset,then set the resultString_1 to blank
        If recSet.RecordCount = 0 Then
            resultString_1 = ""
        'Otherwise execut the following
        Else
            
            'If there is data in the recordset and the Flag field is Flag_1
            If recSet.RecordCount > 0 And recSet.Fields(7).Value = "Flag_1" Then
            
            'Set the resultString variable
            recSet.MoveFirst ' recSet Now contains first record from the query
            While Not (recSet.EOF)
                'If it is the first case in the recordset
                If recSet.RecordCount = 1 Then
                    'code executed here that sets value of resultString_1
                Else
                    'code executed here that sets value of resultString_1
                End If
            'moves to next record
            recSet.MoveNext
            Wend 'end while
            
            recSet.Close 'close recordset when done
            
            'End of Flag_1 Related Flag
            End If
        End If
        
        'Set the result variable returned by the function
        CreateFilterString = resultStringFinal
        
        End Function

编辑：因此，总结一下并希望阐明我想要的是什么：

我希望能够从GROUPING字段中获得不同的值，然后遍历每个这些值。我需要一个循环，遍历“分组”字段中的每个唯一值。因此，它将对分组为1的任何记录执行一次，然后到达循环末尾，并为分组为2的任何记录重新运行。

我知道我可以使用
创建记录集 CurrentDb.OpenRecordset("SELECT disTINCT Grouped FROM Table_Example_1 WHERE ...是为了获取唯一值，但我不知道如何使用此信息来创建循环以遍历GROUPED字段中的每个值。

预先感谢

解决方法

如果我理解您的问题，则需要两个循环。一个将检索唯一的组，一个将检索特定组的数据。

类似这样的东西：

Public Sub T()
    On Error GoTo Trap
    
    Dim rGroup As DAO.Recordset,rData As DAO.Recordset
    Dim idx As Long
    
    'Get groups
    Set rGroup = CurrentDb().OpenRecordset("SELECT DISTINCT Grouped FROM Table",dbOpenSnapshot)
    If rGroup.EOF Then GoTo Leave
    With rGroup
        .MoveLast
        .MoveFirst
    End With
    
    'Loop through unique groups and get data for each group
    For idx = 1 To rGroup.RecordCount
        Set rData = CurrentDb().OpenRecordset("SELECT * FROM Table WHERE Grouped=" & rGroup![Grouped],dbOpenSnapshot)
        
        'Now the rData holds data specific to a group
        'Do more work
        
        rData.Close
        rGroup.MoveNext
    Next idx
    
Leave:
   If Not rData Is Nothing Then rData.Close
   If Not rGroup Is Nothing Then rGroup.Close
   Exit Sub
   
Trap:
    MsgBox Err.Description,vbCritical
    Resume Leave
End Sub

ms-access