循环通过记录访问 VBA

Question

我正在尝试将某些人分类为“航班”。一个航班中的人数不能超过 10 人，我正在循环记录一个记录集，以根据现有航班中的人数来确定每个人应该乘坐的航班。

因此，理想情况下，它应该查看表格，如果该数字

记录集似乎没有指示它何时到达 EOF 并不断跳回到 Move First，并且它无休止地循环遍历记录。

Option Compare Database

Function TrampUpdate()
Dim DB As Database
Dim Session1 As DAO.Recordset
Dim Session1Master As DAO.Recordset
Dim Flight As Integer
Dim AthleteID As String
Dim FlightCount As Integer
Set DB = CurrentDb()
Dim SSql As String





Set Session1 = DB.OpenRecordset("qrySession1Tramp")

Session1.MoveFirst
 Flight = 1


Do While Not Session1.EOF
    AthleteID = Session1.Fields("AthleteID")
 SSql = "Insert Into tblSession1(AthleteID, TrampFlight) Values('" & 
AthleteID & "',  " & Flight & ")"
    DoCmd.SetWarnings False
    DoCmd.RunSQL (SSql)
    DoCmd.SetWarnings True


   FlightCount = DCount("[TrampFlight]", "tblSession1", "[TrampFlight] = " & 
Flight & "")

   If FlightCount >= 10 Then
   Flight = Flight + 1
   End If
   Session1.MoveNext

Loop



Session1.Close

End Function

我已经尝试了多种方法，但在这一点上，我不知道为什么它不能正常工作。我觉得它是非常明显的东西，但我一直在看这个，我已经无法分辨了。

在循环结束时，所有记录（大约 15 条）都应写入带有航班的新表中，其中 10 条将在航班 1 中，5 条应在航班 2 中。现在它正在复制它们并且只是一遍又一遍地添加它们1-10。

提前感谢您的帮助。

Answer 1

考虑：

Flight = 1
While Not rs.EOF
    If FlightCount = 10 Then
        Flight = Flight + 1
        FlightCount = 0
    End If
    FlightCount = FlightCount + 1
    If Not rs.EOF Then
        CurrentDb.Execute "Insert Into tblSession1(AthleteID, TrampFlight) Values('" & AthleteID & "',  " & Flight & ")"
        rs.MoveNext
    End If
Wend