Recordset not looping

[cbellew]

Hi guys,

I have a problem with a dao recordset in that it won't loop my code through all the records - it only runs the loop code on the first record...

Here is the code:

Dim dbs As dao.Database
Dim rst As dao.Recordset
Dim strSQL As String

Set dbs = CurrentDb
strSQL = "Select * FROM [MNT-CORE COMPETENCIES]"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveFirst
rst.MoveLast
Dim twomonthsuntildue As Date
Do While Not rst.EOF And Not rst.BOF
rst.Edit
If Date >= [PERFORMANCE APPRAISAL DUE] Then
[DUE?] = True
Else
[DUE?] = False
End If
twomonthsuntildue = DateAdd("m", 2, Date)
If twomonthsuntildue >= [PERFORMANCE APPRAISAL DUE] Then
[duewithinonemonth] = True
Else
[duewithinonemonth] = False
End If
If [DUE?] = True Then
[duewithinonemonth] = False
End If
rst.Update
rst.MoveNext
Loop

Thanks in advance guys.

Chris

[Scott Price]

Dim dbs As dao.Database
Dim rst As dao.Recordset
Dim strSQL As String
 
Set dbs = CurrentDb
strSQL = "Select * FROM [MNT-CORE COMPETENCIES]"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveFirst
rst.MoveLast
Dim twomonthsuntildue As Date
Do While Not rst.EOF And Not rst.BOF
rst.Edit
If Date >= [PERFORMANCE APPRAISAL DUE] Then
[DUE?] = True
Else
[DUE?] = False
End If
twomonthsuntildue = DateAdd("m", 2, Date)
If twomonthsuntildue >= [PERFORMANCE APPRAISAL DUE] Then
[duewithinonemonth] = True
Else
[duewithinonemonth] = False
End If
If [DUE?] = True Then
[duewithinonemonth] = False
End If
rst.Update
rst.MoveNext
Loop

On line 11, try changing to this:

Do While Not rst.EOF

Regards,
Scott

[FishVal]

And get rid of line #9. Or at least place it before line #8. ;)

Regards,
Fish