File sharing Lock Count Error on one machine only 
Author Message
 File sharing Lock Count Error on one machine only

I am getting the following error on one computer only.   It runs fine on 2
others.

Runtime error '3052';
File sharing lock count exceeded.  Increase MaxLocksPerFile registry entry.

I increased the MaxLocksPerFile entry and it ran OK for 1 day only.  (Saw KB
article 198633)

When I click Debug the following code is shown... see the rs.Edit statement
below.

Function FindAdjDateFirstReq()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("qrytblNET_REQUIREMENT-SORT")

Dim txtcurSTOCK_CODE As String
Dim txtnextSTOCK_CODE As String
Dim dblnextweekDEMAND_QTY As Double
Dim dblNET_RESULT As Double
Dim dteDEMAND_SUPPLY_DATE As Date

If rs.RecordCount = 0 Then
Else
   rs.MoveFirst
   txtcurSTOCK_CODE = rs!STOCK_CODE
   Do Until rs!STOCK_CODE = "ZZZZZZZZZZZZZZZ"
      txtcurSTOCK_CODE = rs!STOCK_CODE
      Do While rs!STOCK_CODE = txtcurSTOCK_CODE

        dteDEMAND_SUPPLY_DATE = rs!DEMAND_SUPPLY_DATE
        dblNET_RESULT = rs!NET_RESULT
        rs.MoveNext
        dblnextweekDEMAND_QTY = rs!DEMAND_QTY
        txtnextSTOCK_CODE = rs!STOCK_CODE
        rs.MovePrevious

        If (txtcurSTOCK_CODE = txtnextSTOCK_CODE) And (dblNET_RESULT <
dblnextweekDEMAND_QTY) Then
           rs.Edit 'This is the spot it appears to crash on
           rs!AdjDateFirstReq = dteDEMAND_SUPPLY_DATE
           rs.Update
        End If

        rs.MoveNext

      Loop

   Loop

End If

rs.Close
Set rs = Nothing

db.Close
Set db = Nothing

End Function



Tue, 09 Aug 2005 07:50:11 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Error 3052: MS-DOS file sharing lock count exceeded

2. File sharing lock count exceeded. (Error 3052)

3. Share Lock Count Exceeded Error message???

4. Repost: File Sharing Lock Count Exceeded

5. DAO file sharing lock count exceeded HELP

6. File sharing lock count exceeded

7. File Sharing Locks

8. Error 3071...Why on one machine and not on others

9. any good pages on Record locking(File sharing etc)

10. Simple Date SQL Errors on One Machine but not all the rest

11. Runtime Error on One Machine

12. Excel file opened in IE3 - on one machine starts Excel, others does not

 

 
Powered by phpBB® Forum Software