What/how is the above used? I inherited some code that has that in it and I've never seen it before. It is used with a loop. See code below
Code:
DAO.DBEngine.SetOption dbMaxLocksPerFile, 40000
Set RS = db.OpenRecordset("QryCCUAssignOpen", DB_OPEN_DYNASET)
Set rs1 = db.OpenRecordset("QryCCUEmp", DB_OPEN_DYNASET)
' Set rs2 = db.OpenRecordset("QryCCUAssignOther", DB_OPEN_DYNASET)
' Set rs3 = db.OpenRecordset("QryCCUAssignDefaults", DB_OPEN_DYNASET)
RS.MoveFirst
rs1.MoveFirst
HoldName = RS!RACF_No
updateName = rs1!RACF_No
i = 1
Begin:
RS.Edit
RS!RACF_No = updateName
RS.Update
RS.MoveNext
If RS.EOF Then GoTo Endit
If i < [Forms]![FrmProcess]![TxtAvg] Then
i = i + 1
GoTo Begin
End If
If i > [Forms]![FrmProcess]![TxtAvg] Then
rs1.MoveNext
updateName = rs1!RACF_No
HoldName = "99999999"
i = 1
GoTo Begin
End If
Endit: