View Full Version : Defining global constants?


jobro
11-18-2007, 10:39 PM
So I have a set of colors and font names I must rely on when displaying my forms. I know how to create a form and how to asign new colors to a component, but defining these global constants, how do I do that?

Dennisk
11-19-2007, 12:23 AM
Here is an example

Public Const MY_NUMBER = 2

Put this in a module. I use a module for constants only, called basConstants

The_Doc_Man
11-19-2007, 08:48 AM
If you want to use this on multiple forms, it must go into a GENERAL module, not a class module. I've done the same thing many times. In fact, I went so far as to export the text of the module so I could re-use it in other Access projects.

Here is an example of what I used. My convention was "VL" in the name for "Very Light" and "Lt" for "Light." I also had "Dk" for "Dark" and "VD" for "Very Dark" - plus no prefix at all for the saturated versions of the colors. Plus I had a couple of favorites for things like "flame orange" and "chartreuse" and similar color mixes.


Public Const clrVLBlue As Long = &HFFEEEE 'FF for Blue, EE for red and green
Public Const clrVLGreen As Long = &HEEFFEE 'FF for green, EE for red and blue
Public Const clrVLYellow As Long = &HEEFFFF 'FF for red and green, EE for blue
Public Const clrVLGray As Long = &HEEEEEE 'EE for everything
Public Const clrVLMagenta As Long = &HFFEEFF 'FF for red and blue, EE for green
Public Const clrVLRed As Long = &HEEEEFF 'FF for red, EE for blue and green
Public Const clrVLCyan As Long = &HFFFFEE 'FF for blue and green, EE for red

Public Const clrLtBlue As Long = &HFFCCCC 'FF for Blue, CC for Red, Green
Public Const clrLtGreen As Long = &HCCFFCC 'FF for Green, CC for Red, Blue
Public Const clrLtYellow As Long = &HCCFFFF 'FF for Green, Red, CC for Blue
Public Const clrLtGray As Long = &HCCCCCC 'CC for Red, Green, Blue
Public Const clrLtMagenta As Long = &HFFCCFF 'FF for Red, Blue, CC for Green
Public Const clrLtRed As Long = &HCCCCFF 'FF for Red, CC for Blue, Green
Public Const clrLtCyan As Long = &HFFFFCC 'FF for Green, Blue, CC for Red

Public Const clrMidGreen As Long = &H8800 '88 for green, 00 for Red, Blue
Public Const clrMidRed As Long = &H88 '88 for red, 00 for green, blue
Public Const clrMidBlue As Long = &H880000 '88 for blue, 00 for red, green
Public Const clrMidCyan As Long = &H888800 '88 for blue, green, 00 for red
Public Const clrMidYellow As Long = &H8888 '88 for red, green, 00 for blue
Public Const clrMidMagenta As Long = &H880088 '88 for red, blue, 00 for green
Public Const clrMidGray As Long = &H888888 '88 for red, blue, and green