Results 1 to 7 of 7

Theme Manager for Forms

  1. #1
    davegri is offline Expert
    Windows 7 64bit Access 2010 32bit
    Join Date
    May 2012
    Location
    Denver
    Posts
    599

    Theme Manager for Forms

    Attached is an Access 2010 app that will allow you to customize the colors of all the forms in your app in a consistent fashion. This can save you literally dozens of hours over trying to modify a bunch of forms manually. The app has 70 preset schemes that you can modify (if you don't like the presets).


    You will need to copy the objects and a code module from the app into your project to try it out. Try it on a copy of your project first to be safe. When you are happy with the results, you can delete the objects and module from your project. After its done its job, it isn't required to stay in your project to retain the colors.
    The app is all VBA, no macros. It will work OK with your forms that contain embedded macros.
    If you have existing code or macros that manipulate colors, undesirable conflicts may or may not occur.
    Attached Files Attached Files

  2. #2
    cyanidem's Avatar
    cyanidem is offline Competent Performer
    Windows 10 Access 2010 64bit
    Join Date
    Nov 2015
    Location
    Consett, UK
    Posts
    270
    Nice tool, very useful indeed. But I have couple of questions:
    - I found that it adds bevel effect to buttons. Is there a way to "switch it off"? Edit: nevermind, I found out how
    - also it doesn't change colours of list box and tab controls. Can it be added?

  3. #3
    davegri is offline Expert
    Windows 7 64bit Access 2010 32bit
    Join Date
    May 2012
    Location
    Denver
    Posts
    599
    Cyanidem, I'll have to wait a while to see what others ask about or want changed before I decide what changes I might make. I'm thinking another form for Preferences might be useful. However it could get very complicated. Here's a list of all the properties available for a command button:
    EventProcPrefix = cmdListProperties
    Name = cmdListProperties
    ControlType = 104
    Caption = Props
    PictureCaptionArrangement = 0
    Visible = True
    CursorOnHover = 0
    PictureType = 0
    PictureData =
    Picture = (none)
    Width = 1080
    Height = 360
    Top = 5760
    Left = 720
    BackStyle = 1
    Transparent = False
    UseTheme = True
    Shape = 1
    Bevel = 0
    Glow = 0
    Shadow = 0
    SoftEdges = 0
    Gradient = 12
    QuickStyle = 0
    QuickStyleMask = 0
    BackColor = 12224767
    BackThemeColorIndex = 4
    BackTint = 60
    BackShade = 100
    BorderStyle = 1
    OldBorderStyle = 1
    BorderLineStyle = 0
    BorderWidth = 0
    BorderColor = 12224767
    BorderThemeColorIndex = 4
    BorderTint = 60
    BorderShade = 100
    HoverColor = 13742079
    HoverThemeColorIndex = 4
    HoverTint = 40
    HoverShade = 100
    PressedColor = 6422761
    PressedThemeColorIndex = 4
    PressedTint = 100
    PressedShade = 75
    HoverForeColor = 4210752
    HoverForeThemeColorIndex = 0
    HoverForeTint = 75
    HoverForeShade = 100
    PressedForeColor = 4210752
    PressedForeThemeColorIndex = 0
    PressedForeTint = 75
    PressedForeShade = 100
    FontName = Century Gothic
    FontSize = 11
    Alignment = 2
    FontWeight = 400
    FontUnderline = False
    FontItalic = False
    FontBold = 0
    ForeColor = 4210752
    ThemeFontIndex = 1
    ForeThemeColorIndex = 0
    ForeTint = 75
    ForeShade = 100
    HyperlinkAddress =
    HyperlinkSubAddress =
    HyperlinkTarget =
    HyperlinkBinderDescription =
    GridlineStyleTop = 0
    GridlineStyleBottom = 0
    GridlineStyleLeft = 0
    GridlineStyleRight = 0
    GridlineColor = 10921638
    GridlineWidthTop = 1
    GridlineWidthBottom = 1
    GridlineWidthLeft = 1
    GridlineWidthRight = 1
    TopPadding = 30
    BottomPadding = 30
    LeftPadding = 30
    RightPadding = 30
    HorizontalAnchor = 0
    VerticalAnchor = 0
    DisplayWhen = 0
    ReadingOrder = 0
    Enabled = True
    OnClick = [Event Procedure]
    OnClickEmMacro =
    OnGotFocus =
    OnGotFocusEmMacro =
    OnLostFocus =
    OnLostFocusEmMacro =
    OnDblClick =
    OnDblClickEmMacro =
    OnMouseDown =
    OnMouseDownEmMacro =
    OnMouseUp =
    OnMouseUpEmMacro =
    OnMouseMove =
    OnMouseMoveEmMacro =
    OnKeyDown =
    OnKeyDownEmMacro =
    OnKeyUp =
    OnKeyUpEmMacro =
    OnKeyPress =
    OnKeyPressEmMacro =
    OnEnter =
    OnEnterEmMacro =
    OnExit =
    OnExitEmMacro =
    Default = False
    Cancel = False
    ControlTipText =
    TabIndex = 63
    TabStop = True
    StatusBarText =
    ShortcutMenuBar =
    AutoRepeat = False
    HelpContextId = 0
    Tag =
    Section = 0
    ObjectPalette =
    InSelection = Only available at design time.
    TextFontCharSet = 0
    ImageData =
    Layout = 0
    LayoutID = 0
    RowStart = 0
    RowEnd = 0
    ColumnStart = 0
    ColumnEnd = 0
    GridlineThemeColorIndex = 1
    GridlineTint = 100
    GridlineShade = 65


    Davegri

  4. #4
    cyanidem's Avatar
    cyanidem is offline Competent Performer
    Windows 10 Access 2010 64bit
    Join Date
    Nov 2015
    Location
    Consett, UK
    Posts
    270
    Thanks Davegri,

    I figured out how to set command buttons as I wanted.
    Another thing I found - it doesn't change properties of labels in form header. Other labels work as intended.

  5. #5
    davegri is offline Expert
    Windows 10 Access 2010 32bit
    Join Date
    May 2012
    Location
    Denver
    Posts
    599

    Theme Manager for Forms Update

    Couldn't find a way to edit first post, so added this one. New updated Download, ver 1.1
    Enhancements:
    1. Added radio button to bevel buttons (on/off)
    2. Added code to make button hover color same as Header/Footer color.
    3. Added code to make button font (forecolor) either black or white, depending on button backcolor, to enhance readability.

    If you copied version 1.0 to your accdb and you want to upgrade, first remove from your accdb:
    frmTestTheme, frmSubfrmTheme, frmColorTuner, frmHelp, and basSetTheme.
    If you have made custom color changes, you can keep tblColors, else remove it also.
    Follow the instructions in tblHelp to install the app in your accdb.
    Attached Files Attached Files

  6. #6
    Karaline's Avatar
    Karaline is offline Advanced Beginner
    Windows 10 Access 2013 64bit
    Join Date
    Jan 2017
    Location
    Just North Of Antartica
    Posts
    38
    that took patience.

  7. #7
    lsalvucci is offline Novice
    Windows 7 64bit Access 2007
    Join Date
    Dec 2014
    Posts
    3
    Is there a way to add code to revert the changes back to the original colors schemes the DB had?

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Switchboard Manager
    By BigDoubleR in forum Access
    Replies: 2
    Last Post: 10-29-2015, 01:33 AM
  2. Design My Own Theme??
    By alanfallow in forum Access
    Replies: 2
    Last Post: 01-10-2014, 11:24 AM
  3. Replies: 4
    Last Post: 04-22-2013, 05:45 AM
  4. Replies: 3
    Last Post: 10-08-2011, 04:00 AM
  5. Replies: 7
    Last Post: 08-10-2011, 03:48 AM

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
  •  
Tech Forums: Microsoft Office Forums