MaxLocksPerFile Registry Error

[roaml]

Hello,

Can someone tell me what this message means? I am trying to copy 14,522 records which includes 14 columns.

Error:

"File sharing lock count exceeded. Increase MaxLocksPerFile registry entry".

Is this something I can increase without jeopardizing my database?

Thanks a bunch!

 

[KenReay]

Hi

The most frequent situation in which I have seen this error message is when upgrading databases from A97 to A2K and above where the database includes large (many row) update queries. Access 97 emplyed page locking, A2K and above gives the option of row level locking

you can increase the registry setting without harm, but I belive there is also a code solution to this, on the microsoft web site. I have forgotten what it is , I will rummage in my 'filing' system and get back to you if I can find it!

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[KenReay]

Hi

See KB articles 198633, 173006

also try a search on google on "File sharing lock count exceeded. Increase MaxLocksPerFile registry entry"

there are a few articles on it

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[roaml]

Thanks a bunch Ken. I will search the web for the suggested articles.

 

[cmmrfrds]

I have seen this error where a recordset was being updated in vba code and the recordset was not closed and destroyed.

Scenario. programmer creates a recordset and updates several thousand records, but does not destroy the recordset, then goes back and runs the code a couple of more times.

Solution.
rs.close
Set rs = Nothing

 

[roaml]

Hi cmmrfrds,

How would I implement the close recordset in the following code?

Private Sub PreviewButton_Click()

Dim StrCriterion As String
Dim StrDocName As String

'Certeria
Select Case Me![Criteria]

Case 1
StrCriterion = "[assigned_date] >=#" & Me![BeginDate] & "# And [assigned_date] <=#" & [EndDate] & "#"
End Select

'Preview Reports

StrDocName = "map_request_report"
PreviewOnly StrDocName, StrCriterion, "map_request_report"
Forms!criteria_request_dialog.Visible = False

End Sub

Thank you.