You've got your good things, and you've got mine.
- Local time
- Today, 02:36
- May 21, 2018
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?
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