MajP
You've got your good things, and you've got mine.
- Local time
- Today, 09:34
- Joined
- May 21, 2018
- Messages
- 8,605
I have a large table and I read through the recordset. I am numbering groups of information based on the records in between the groups. I get a File Sharing Locks Exceeded. Can anyone explain this error and why?
Thanks.
Code:
Private Sub UpdateKeyWords()
Dim rs As DAO.Recordset
Dim KeyWord
Dim FoundWord As String
Dim i As Long
i = 1
Set rs = CurrentDb.OpenRecordset("Select * from tblAllWords Order by WordID")
Do While Not rs.EOF
If rs!IsStop Then
i = i + 1
Else
rs.Edit
rs!keywordid = i
rs.Update
If rs!isBreak Then i = i + 1
End If
rs.MoveNext
Loop
End Sub