MaxLocksPerFile exceeded error - how to correct

[Paul Doree]

Hi,

I'm opening a table and deleting all the records (about 120.000 rows) using
the following:

Dim db As DAO.Database, mytable As DAO.Recordset
Set db = CurrentDb()
Set mytable = db.OpenRecordset("Trent Sickness", DB_OPEN_DYNASET)
Do Until mytable.EOF
mytable.Delete
mytable.MoveNext
Loop

I get the error message "File sharing lock count exceeded. Increase
MaxLocksPerFile registry entry."

I've found the registry entry, and the value is set to 251c. I'm not sure
what this means so am reluctant to amend it.

Can anyone help?

 

[Ron Weiner]

Wow that's the Long way around. Try one of these instead:

DoCmd.SetWarnings False
DoCmd.RunSql "Delete * from [Trent Sickness]"
DoCmd.SetWarnings True

OR

CurrentDb.Execute "Delete * from [Trent Sickness]", dbFailOnError

120K records deleted no muss no fuss.