Results 1 to 5 of 5
  1. #1
    Join Date
    May 2013
    Posts
    9

    Unanswered: Upgrading 2003 mde to 2013 accde

    Our organisation is about to embark on a computer refresh. We'll be moving from Office 2003 to Office 2013. I've tested an existing MDE file within the Access 2013 environment and in the main appears to function.

    Under Access 2003 I was able to hide the Access front end application so users would not have access to any of Access's menus. They only use the MDE application itself.

    When running the MDE (or converted to ACCDE) the code that use to hide the underlying Access application doesn't work. An error is not thrown.

    What is the code or property to hide the underlying Access 2013 application so only the MDE (or converted ACCDE) program is displayed?

    Any help appreicated.

    Cheers,

    Steve.

    ps. I have the mdb file that created the mde file.

  2. #2
    Join Date
    May 2013
    Posts
    9
    Additional Info:

    At Start of Application the following functions run:

    Code:
    Sub SetStartupProperties()
        
        If Not IsItMDE(CurrentDb) Then
            ChangeProperty "StartupShowDBWindow", dbBoolean, True
            ChangeProperty "StartupShowStatusBar", dbBoolean, True
            ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
            ChangeProperty "AllowFullMenus", dbBoolean, True
            ChangeProperty "AllowBreakIntoCode", dbBoolean, True
            ChangeProperty "AllowSpecialKeys", dbBoolean, True
            ChangeProperty "AllowBypassKey", dbBoolean, True
        Else
            ChangeProperty "StartupShowDBWindow", dbBoolean, False
            ChangeProperty "StartupShowStatusBar", dbBoolean, False
            ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
            ChangeProperty "AllowFullMenus", dbBoolean, False
            ChangeProperty "AllowBreakIntoCode", dbBoolean, False
            ChangeProperty "AllowSpecialKeys", dbBoolean, False
            ChangeProperty "AllowBypassKey", dbBoolean, False
        End If
    
    End Sub
    And the ChangeProperty function is as follows:

    Code:
    Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Boolean
        Dim dbs As Database, prp As Property
        Const conPropNotFoundError = 3270
        Set dbs = CurrentDb
        On Error GoTo Change_Err
        dbs.Properties(strPropName) = varPropValue
        ChangeProperty = True
        
    Change_Bye:
        Exit Function
        
    Change_Err:
        If Err = conPropNotFoundError Then
            Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
            dbs.Properties.Append prp
            Resume Next
        Else
            ' unknown error.
            ChangeProperty = False
            Resume Change_Bye
        End If
    
    End Function
    So it's the StartupShowDBWindow property that is not working as intended under Access 2013 where it did under Access 2003. I haven't checked whether the other properties are set or not. The function IsItMDE() is a user defined function, it's purpose to detect if the application is an MDE or not.

    Any help really appreciated.

  3. #3
    Join Date
    May 2013
    Posts
    9
    Bump. Anyway?

  4. #4
    Join Date
    May 2013
    Posts
    9
    Anybody got any clues on this?

  5. #5
    Join Date
    May 2013
    Posts
    9
    Bump, bump and bump.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •