[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