[AccessD] Access 2003 database in Access 2007

David Emerson newsgrps at dalyn.co.nz
Wed Mar 23 17:56:41 CDT 2011


Yes - that is the menu in the menu bar property.

Could I send you the file off line to test to see if you have the 
same result?  It is a basic app with no tables and four forms?

David

At 24/03/2011, Carolyn Johnson wrote:
>And one of them is called MenuBarMenus?  That's the menu bar on the 
>first form?
>
>Carolyn
>
>   ----- Original Message -----
>   From: David Emerson
>   To: Access Developers discussion and problem solving
>   Sent: Wednesday, March 23, 2011 5:36 PM
>   Subject: Re: [AccessD] Access 2003 database in Access 2007
>
>
>   I have a number of custom menus but all forms and reports have a
>   custom menu assigned to them.
>
>   David
>
>   At 24/03/2011, Carolyn Johnson wrote:
>   >That looks like what I use.
>   >
>   >Do all your forms have your custom menu bar assigned to them?
>   >
>   >Carolyn Johnson
>   >
>   >
>   >----- Original Message -----
>   >   From: David Emerson
>   >   To: Access Developers discussion and problem solving
>   >   Sent: Wednesday, March 23, 2011 5:10 PM
>   >   Subject: Re: [AccessD] Access 2003 database in Access 2007
>   >
>   >
>   >   I call the code below from the Open event of the first form that
>   >   opens when the app starts.  I have just tested it on Access 2007 and
>   >   am still seeing the ribbon.  My custom menu is showing in the Add In
>   >   tab.  Am I doing something wrong?
>   >
>   >   Public Sub basSetProperties()
>   >
>   >        basSetProperty "StartupShowDBWindow", dbBoolean, False
>   >        basSetProperty "AllowShortcutMenus", dbBoolean, True
>   >        basSetProperty "AllowFullMenus", dbBoolean, False
>   >        basSetProperty "AllowBuiltinToolbars", dbBoolean, False
>   >        basSetProperty "AllowToolbarChanges", dbBoolean, False
>   >
>   >        basSetProperty "AllowSpecialKeys", dbBoolean, True
>   >        basSetProperty "StartupShowStatusBar", dbBoolean, True
>   >        basSetProperty "UseAppIconForFrmRpt", dbBoolean, True
>   >
>   >        basSetProperty "AppTitle", dbText, "Ribbon Test"
>   >        basSetProperty "StartUpMenuBar", dbText, "MenuBarMenus"
>   >     '   basSetProperty "AppIcon", dbText, "C:Prog\LTD.ico"
>   >
>   >   End Sub
>   >
>   >   Public Function basSetProperty(strPropName As String, varPropType As
>   >   Variant, varPropValue As Variant) As Long
>   >
>   >        On Error GoTo Err_basSetProperty
>   >
>   >        Dim db As DAO.Database, prp As DAO.Property
>   >        Set db = CurrentDb
>   >        db.Properties(strPropName) = varPropValue
>   >        basSetProperty = True
>   >        Set db = Nothing
>   >
>   >   Exit_basSetProperty:
>   >        Exit Function
>   >
>   >   Err_basSetProperty:
>   >        If Err = 3270 Then        'Property not found
>   >            Set prp = db.CreateProperty(strPropName, varPropType,
>   > varPropValue)
>   >            db.Properties.Append prp
>   >            Resume Next
>   >        Else
>   >            basSetProperty = False
>   >            MsgBox "SetProperties", Err.Number, Err.Description
>   >            Resume Exit_basSetProperty
>   >        End If
>   >
>   >   End Function
>   >
>   >
>   >   Regards
>   >
>   >   David Emerson
>   >   Dalyn Software Ltd
>   >   Wellington, New Zealand
>   >
>   >   At 11/03/2011, Carolyn Johnson wrote:
>   >   >Well, it seems to be working on 2010 now.  Maybe I'm thinking of
>   >   >times when I bypassed the startup form and then had to deal with the
>   >   >ribbon.  But I thought it was enough of a problem to put on my To Do
>   >   >list.  Guess I'll cross it off!
>   >   >
>   >   >Carolyn Johnson
>
>   --
>   AccessD mailing list
>   AccessD at databaseadvisors.com
>   http://databaseadvisors.com/mailman/listinfo/accessd
>   Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




More information about the AccessD mailing list