Carolyn Johnson
cjlabs at att.net
Mon Mar 14 13:10:54 CDT 2011
I have a module with the 2 subs -- SetAppProperties and ChangeAppProperties. When my start up form opens, it calls SetAppProperties which uses ChangeAppProperties to set them the way I want (original post), which includes showing my own menu bars. Because some properties have boolean values and some have text values, you need to treat them differently. Stuart posted a sub that handles both. HTH, Carolyn Johnson ----- Original Message ----- From: Kaup, Chester To: Access Developers discussion and problem solving Sent: Monday, March 14, 2011 1:05 PM Subject: Re: [AccessD] Access 2003 database in Access 2007 I know I should know this but cannot seem to recall it now. How do I put the two parts together? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Carolyn Johnson Sent: Thursday, March 10, 2011 4:41 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Access 2003 database in Access 2007 Public Sub ChangeAppProperty(ByVal sName As String, ByVal bValue As Boolean) Dim prp As DAO.Property On Error Resume Next CurrentDb.Properties(sName) = bValue If Err.Number = 3270 Then Set prp = CurrentDb.CreateProperty(sName, dbBoolean, bValue) CurrentDb.Properties.Append prp End If End Sub I have a comparable sub for properties that have text values rather than boolean values. 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 ----- Original Message ----- From: David Emerson To: Access Developers discussion and problem solving Sent: Thursday, March 10, 2011 3:38 PM Subject: Re: [AccessD] Access 2003 database in Access 2007 Carolyn, What is your code for the ChangeAppProperty routine? What does show in Access 2010 when your code is run? Regards David Emerson Dalyn Software Ltd Wellington, New Zealand At 11/03/2011, Carolyn Johnson wrote: >I have Access2000 format databases that run in 2000, 2002, 2003 and >2007 -- and the following shows my custom toolbars and does not show >the ribbon. HOWEVER, it does not work in 2010 -- haven't had time >to find out what is different. > > >These are the properties I set when I my start up form opens (using >the routine ChangeAppProperty to set the values): > > ChangeAppProperty "StartupShowDBWindow", False > ChangeAppProperty "AllowShortcutMenus", True > ChangeAppProperty "AllowFullMenus", False > ChangeAppProperty "AllowBuiltinToolbars", False > ChangeAppProperty "AllowToolbarChanges", False > > ChangeAppProperty "AllowSpecialKeys", True > ChangeAppProperty "StartupShowStatusBar", True > ChangeAppProperty "UseAppIconForFrmRpt", True > > ChangeAppPropertyText "AppTitle", "LTD Solution" > ChangeAppPropertyText "StartUpMenuBar", "mnuMain" > ChangeAppPropertyText "AppIcon", RetrievePathFile & "\LTD.ico" > > >"mnuMain" is my default menu bar, but I have 3 others that all work >as they should in 2007. > > >Carolyn Johnson >St Louis, MO > > ----- Original Message ----- > From: Kaup, Chester > To: Access Developers discussion and problem solving > Sent: Thursday, March 10, 2011 3:20 PM > Subject: [AccessD] Access 2003 database in Access 2007 > > > Finally figured out how to get rid of the Microsoft Office Button > and the ribbon in Access 2007. Under access options current > database mark the checkboxes allow full menus, allow default > shortcut menus and allow built in toolbars. Then run the code line > DoCmd .ShowToolbar "Ribbon", acToolbarNo when opening the > database. Now how do I make the custom toolbars (that I have for > the forms and reports) in my Access 2003 database show in Access 2007. Thanks > > > Chester Kaup > > Engineering Technician > > Kinder Morgan CO2 Company, LLP > > Office (432) 688-3797 -- 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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com