Hello!
I have a problem with setting a DBEngine.SystemDB property.
I am using Excel and want to make connection to secured
Access .mdb file.

Every time when I set DBEngine.SystemDB property, it does not work:

My setting in Excel VBA:
DBEngine.SystemDB="Q:\ham\Companies_database\HAIDA TA\DATA\Testimine\HAIEquitySecutiry.mdw"

But after executing Debug.Print DBEngine.SystemDB
I receive:
"C:\Documents and Settings\jyrik\Application Data\Microsoft\Access\System.mdw"

It means DBEngine.SystemDB proprty remains to default value!
What is wrong?







Jüri Kuusik.
[email protected]

The SystemDB is the Database work group file, i.e. the file that normally is used for security purposes.

What does your code look like?
I am assuming you are setting a reference to DAO in your code?

Usually you just use the OpenDatabase method to open a database.


Database Agreements

Code:

Public Sub ActionSecDBAdmin(strAction As String, _
                            strPrimaryTab As String, _
                            strForeignTab As String, _
                            Optional strRelName As String, _
                            Optional ForeignFieldName As String)

    Dim wrkspTempWorkspace As DAO.Workspace
    Dim strSecureDB As String
    Dim strUserName As String
    Dim strPassword As String
    Dim strGroupFile As String

    On Error GoTo Errors

    strGroupFile = PublicFolder & DatabaseGroup
    'PublicFolder - folder
    'DatabaseGroup - .mdw file


    'Workgroup file:
        DBEngine.SystemDB="Q:\ham\Companies_database\HAIDA TA\DATA\Testimine\HAIEquitySecutiry.mdw"

 ' !!! Problem is here: DBEngine.SystemDB remains default .mdw file
       ' (System.mdw file in C: drive)

    'User
        strUserName = "UserX"
        strPassword = "PasswordX"

    'New temporary workspace

        Set wrkspTempWorkspace = DBEngine.CreateWorkspace("New", strUserName, strPassword)

        DBEngine.Workspaces.Append wrkspTempWorkspace

    'Open secured database
        strSecureDB = PublicFolder & DatabaseFile
        Set dbSecureDB = _
            DBEngine.Workspaces("New").OpenDatabase(strSecureD B)

    'Action with database...

End Sub

Jüri Kuusik.
[email protected]