Example 13-1. Finding the First Integer field Sub FindFirstIntegerField( )Dim i As Integer Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Objects") For i = 0 To rs.Fields.Count - 1 If rs.Fields(i).Type = dbInteger Then Exit For Next If i < rs.Fields.Count Then ' First Integer field found Else ' No such field exists End If rs.Close End SubWe can also control the step size and direction for the counter in a For loop using the Step keyword. For instance, in the following code, the counter i is incremented by 2 each time the block of code is executed:For i = 1 to 10 Step 2 ' code block goes here Next iThe following loop counts down from 10 to 1 in increments of -1. This can be useful when we want to examine a collection (such as the cells in a row or column) from the bottom up.For i = 10 to 1 Step -1 ' code block goes here Next i13.4 The For Each LoopThe For Each loop is a variation on the For loop that was designed to iterate through a collection of objects (as well as through elements in an array) and is generally much more efficient than using the traditional For loop. The general syntax is:For Each ObjectVar In CollectionName ' block of code goes here . . . Next ObjectVarwhere ObjectVar is a variable of the same object type as the objects within the collection. The code block will execute once for each object in the collection.
