Expand|Select|Wrap|Line Numbers
- strRstClass = "SELECT C.* FROM StdDegReqClass C INNER JOIN StdDegReqDisc D ON C.StdDegReqDiscId = " _
- & "D.StdDegReqDiscId WHERE C.StdDegReqDiscId = " & lngDiscId & " ORDER BY C.SortOrder"
- Set rstClass = CurrentDb.OpenRecordset(strRstClass, dbOpenSnapshot)
Expand|Select|Wrap|Line Numbers
- Set rstDegReqDisc = CurrentDb.OpenRecordset("SELECT * FROM DegReqDisc WHERE DegReqId = " & lngDegReqId, dbOpenSnapshot)
Expand|Select|Wrap|Line Numbers
- For intClass = 0 To rstClass.RecordCount
- If rstClass.EOF Then
- Exit For
- End If
- If sngDiscCredits >= rstDisc!CreditMin And lngDiscCourses >= rstDisc!CourseMin Then
- lngTakenDiscId = lngDiscId
- Exit For
- End If
- 'more code....
- rst.MoveNext
- Next