Code works, but error when no records in DB

[sysr]

The following code works great when there are records in the database, but when there are NO records I get an Exception error that I can't seem to fix. Any help would be greatly appreciated.

10 sqlStringa = "SELECT OrganizationID FROM RegionalContracts WHERE Region=" & "'" & strSelectedRegion & "'"

20 Set ReportRS = Con.Execute (sqlStringa)
(I am retrieving OrganizationID's)


30 WHILE NOT ReportRS.EOF
(For each OrganizationID from line 20, I am retrieving ActiveFiles and ClosedFiles with line 40)


40 sqlStringb = "SELECT * FROM Reporting WHERE OrganizationID =" & ReportRS("OrganizationID&quot& " AND Year=" & strYear & " AND Quarter=" & strQuarter

50 Set Rst = Con.Execute (sqlStringb)

60 strActiveFiles = strActiveFiles + Rst("ActiveFiles&quot

70 strClosedFiles = strClosedFiles + Rst("ClosedFiles&quot
(In 60 and 70, I am getting a sum of ActiveFiles and ClosedFiles)

80 ReportRS.MoveNext

90 WEND

Works great when there are records, but with no records it crashes.

 

[bcoats]

Did you try trapping the error? If you do a thing like:

On Error Goto Err_Handler

< Write your Code >

exit sub <or function>
Err-Handler:
msgbox &quot;There were no records&quot;
end sub <or function>

The program won't cash but you won't have any data either.

Brian