PROBLEM WITH LOOPS

[jodym43]

Hey guys,
I'm not sure what I'm doing wrong, but when I try and run the following code.....I get the following message "compile error: Loop without Do statement". As you can see from the following code, I have a Do statement....but I'm not sure where the problem is.

I'd appreciate any help anyone can give, thanks.
jodym43


Do While rst.NoMatch = False
Set rst = dB.OpenRecordset(strSQL)
If rst.NoMatch = False Then
Set MapId = rst("MapID&quot
Debug.Print "mapID is " & MapId

rst.Edit
rst("MapNeedPurchase&quot.Value = "False"
rst("MapChkPrintOrder&quot.Value = "False"
rst("MapOrdered&quot.Value = "True"
rst("MapOrderDate&quot.Value = Date
rst.Update
Forms!Maps_Order.Refresh
Else: Exit Do
Loop

 

[jebry]

Hi!

You forgot your End If between the Else and the Loop. Access knew there was a problem but it chose the wrong one!

hth
Jeff Bridgham

 

[Databaseguy]

Yeah, I've leanred to look for end ifs when I get that message. Also, not including and End Select will generate the same behaivor. Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[jodym43]

thanks....not it works like it was supposed to---FINALLY!!!

Much appreciated-
jodym43