Need to Loop in an Index Table 1

[regava]

Access 2002 - I have the following routine:

.
.
strSql = "tblX"
set deb = currentdb()
set rec = db.OpenRecorset(strSql)
rec.index = "IndexA"
rec.Seek "=", strZ
if Not rec.nomatch then
  rec.edit
  .
  .
  rec.update
end if
rec.close
set rec = Nothing
[\code]

I want to loop thru it since the index allows duplicates.
I do not want to searche the whole table since the chance of hitting a record in the table is less than 1% and the table is rather large.
Any help is appreciated.

 

[SkipVought]

Please post MS Access questions in one of the MS Access forums like Forum705.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Golom]

Try

strSql = "Select * From tblX Where SomeField = '" & strZ & "'"

set deb = currentdb()
set rec = db.OpenRecorset(strSql)
Do Until rec.EOF
  rec.edit
  .
  .
  rec.update
  rec.MoveNext
Loop
rec.close
set rec = Nothing

Then you should get only those records where your condition is satisfied and you don't need to do the search using seek.

 

[regava]

Golom Thank you for your wonderful suggestion. I works.
Sorry I did not reply quicker but I was away for the last 3 days. You deserve a start.