Synchronization between '<Replica1.mdb>' and '<Replica2.mdb>' failed.
File sharing lock count exceeded (Error 3052).
File sharing lock count exceeded (Error 3052).
Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
Table: tblTable1 --------------------------- Field Name: ID Data Type: Number Field Size: Long Integer Field Name: Field1 Data Type: Text Field Size: 50 Field Name: Field2 Date Type: Text Field Size: 50 Field Name: Field3 Date Type: Text Field Size: 50 Field Name: Field4 Date Type: Text Field Size: 50
Function Filler(lngNumRecs As Long)
Dim lngLoopCount As Long
Dim strFillerString As String
Dim db As Database
Dim rs As Recordset
strFillerString = ""
For lngLoopCount = 1 To 40
strFillerString = strFillerString & "x"
Next lngLoopCount
Set db = CurrentDb
Set rs = db.OpenRecordset("tblTable1")
For lngLoopCount = 1 To lngNumRecs
rs.AddNew
rs![ID] = lngLoopCount
rs![Field1] = strFillerString
rs![Field2] = strFillerString
rs![Field3] = strFillerString
rs![Field4] = strFillerString
rs.Update
Next lngLoopCount
db.Close
End Function
Keywords: kbbug, kberrmsg, KB173006