如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。