I have an MS Access 2010 database with a module called bas This module reads the fields on a Microsoft Word document and then the data is loaded to a linked SQL Server 2008 R2 table. I am currently desigining this module so I am the only user using this database. I open the MS Access database, open the code for the module and click on Debug>Run. I get the following error:
-2147467259: The Database has been placed in a state by user ‘Admin’ on machine ‘JITC-PC’ that prevents it from being opened or locked.
How do I get rid of this error? Does any one have a solution? I have searched the Internet all week but haven't found a solution that works.
Here is my code:
Expand|Select|Wrap|Line Numbers
- Sub GetWordData()
- Dim appWord As Word.Application
- Dim doc As Word.Document
- Dim cnn As New ADODB.Connection
- Dim cnn2 As New ADODB.Connection
- Dim rst As New ADODB.Recordset
- Dim rst2 As New ADODB.Recordset
- Dim strDocName As String
- Dim blnQuitWord As Boolean
- On Error GoTo ErrorHandling
- strDocName = "\\JITC-PC\Users\Sharon\My Documents\GEOINT Repository\Requests\GEOINT_rep_req_form20111109 class.doc"
- Set appWord = GetObject(, "Word.Application")
- Set doc = appWord.Documents.Open(strDocName)
- cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=\\JITC-PC\Users\Sharon\Desktop\DEVELOPMENT.mdb"
- ' Open Requester table to load
- rst.Open "dbo_Requester", cnn, adOpenKeyset, adLockOptimistic
- With rst
- .AddNew
- !Requester_Organization = doc.FormFields("Req_Org").result
- .Update
- .Close
- End With
- doc.Close
- If blnQuitWord Then appWord.Quit
- cnn.Close
- MsgBox "Requestor Data Imported!"
- Cleanup:
- Set rst = Nothing
- Set cnn = Nothing
- Set doc = Nothing
- Set appWord = Nothing
- Exit Sub
- ErrorHandling:
- Select Case Err
- Case -2147022986, 429
- Set appWord = CreateObject("Word.Application")
- blnQuitWord = True
- Resume Next
- Case 5121, 5174
- MsgBox "You must select a valid Word document. " _
- & "No Data Imported.", vbOKOnly, _
- "Word Document Not Found"
- Case 5941
- MsgBox "This Field is not found in the Word Document." _
- & "No Data Imported.", vbOKOnly, _
- "Fields not found in the Word Document"
- Case Else
- MsgBox Err & ": " & Err.Description
- End Select
- GoTo Cleanup
- End Sub
Sharon Chapman