J
jmv
Hi,
I amuncesfull trying to open an Access 2003 database using DAO 3.6 within
Outlook 2003 VBA. The error.description says:
You do not have the necessary permissions to use the
<.../name/mdb> object. Have your system administrator or the person who
created this object establish the appropriate permissions for you.
The err.Number is 3033
I have tried several options such as:
1-mdb with and without admin password
2-mdb with specific mdw file while setting the filepathname.mdw to
DBEngine.SystemDB
Any idea what I should look for?
Follows a stripped down version of the code with no password set for admin:
Private Sub cmdImport_Click_Test()
On Error GoTo ErrorHandler
Dim dbe As DAO.DBEngine
Dim wks As DAO.Workspace
Dim dbs As DAO.Database
Dim strAccessPath As String
strAccessPath = "C:\tmp\test.mdb"
Set dbe = DAO.DBEngine
Set wks = dbe.Workspaces(0)
Set dbs = wks.OpenDatabase("C:\tmp\test.mdb", False, False)
ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End Sub
I amuncesfull trying to open an Access 2003 database using DAO 3.6 within
Outlook 2003 VBA. The error.description says:
You do not have the necessary permissions to use the
<.../name/mdb> object. Have your system administrator or the person who
created this object establish the appropriate permissions for you.
The err.Number is 3033
I have tried several options such as:
1-mdb with and without admin password
2-mdb with specific mdw file while setting the filepathname.mdw to
DBEngine.SystemDB
Any idea what I should look for?
Follows a stripped down version of the code with no password set for admin:
Private Sub cmdImport_Click_Test()
On Error GoTo ErrorHandler
Dim dbe As DAO.DBEngine
Dim wks As DAO.Workspace
Dim dbs As DAO.Database
Dim strAccessPath As String
strAccessPath = "C:\tmp\test.mdb"
Set dbe = DAO.DBEngine
Set wks = dbe.Workspaces(0)
Set dbs = wks.OpenDatabase("C:\tmp\test.mdb", False, False)
ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End Sub