File sharing lock... Error 3952

As shown below, this error comes up and stops the process. After I click on the Debug button, it takes me to the code window. Then, I select Debug/Step Out from the menu to continue the work. This happens about 10 times during this routin and each time I have to repeat "Debug/Step Out from the menu".

I think if I can force the routine slow down a bit, this error will go away. If I have to change some setting in Access  (not requiring this to be done on the users computer one at the time) this will be also acceptable.

I am using Access 2003.

Question: What is the best way to eliminate this error?

Thank you.
Lock.bmp
LVL 34
Mike EghtebasDatabase and Application DeveloperAsked:
Who is Participating?
 
rockiroadsCommented:
Not sure then if adding DoEvents will help out here
Maybe add that somewhere in the loop, maybe before movenext
there is this refreshcache, that forces data to be written, part of dbengine.idle I think but not sure if that is applicable here. I have never experienced your error before
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I guess using:
CurrentDB.Execute "Update..."

SHoud do the job as well, if the other alternatives weren't as easy.
 
Mike
0
 
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Why do you suppose the # of locks is being exceeded ?

mx
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I think the the original allocation of some sort is no longer to handle this many operation and very quick succession. I am shooting at the dark; it is just a guess.

Mike
0
 
rockiroadsCommented:
Mike, try the suggestions here, go for coded solution first before changng registry.

http://support.microsoft.com/kb/815281
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
From your link, I copied:

DAO.DBEngine.SetOption dbmaxlocksperfile,15000

to Immediate Window and hit return to run it. I have tried three times (running this piect of code and starting my process). But, sorry to say that all three times failed.

Do think I could increase 15000 or this is as high as it goes?

BTW, after each error, I step out until the process is completed. By the time I go to step out manually, I guess, Access gets a chance to catch up with the pending calculation and then it is able to resume the calculation as requested manually via step-out action.

So, it seems if I can force the process to slow down a bit, then all should be fine.

Now, if there is nothing more we could do with "DAO.DBEngine.SetOption dbmaxlocksperfile,15000", could you show me what is the best way to slow this code down?
 
Thank you,
 
Mike
0
 
rockiroadsCommented:
In your code are you just doubling the value for each record per component?
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
I added a messaging steps twice and there is no errors.
lblMsg.Caption = "Report Tables: " & vbNewLine & _
                     "Time elapsed: " & fnElapssedTime() & vbNewLine & _
                     "tReport_TRS_Subject..." & vbNewLine & _
                     "SubjectID: " & rs2!SubjectID & "..."
                     Me.Repaint
                     DoEvents
                     
lblMsg.Caption = "Report Tables: " & vbNewLine & _
                     "Time elapsed: " & fnElapssedTime() & vbNewLine & _
                     "tReport_TRS_Subject..." & vbNewLine & _
                     "SubjectID: " & rs2!SubjectID & "..."
                     Me.Repaint
                     DoEvents

Open in new window

0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
Thank you.
0
 
Mike EghtebasDatabase and Application DeveloperAuthor Commented:
FYI, I didn't use:

DAO.DBEngine.SetOption dbmaxlocksperfile,15000
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.