http://monsoonwok.com/colors-code/
Colors Code
What is the FBML code that adds background colors on the pages of Facebook?
I want to add a background color to my Facebook page (No profile) and have added the tool FBML to the page. I need help, they do not know FBML code that will create a colored background of my page.
I google, there were a lot of results. Some made sense to me, others do not. See what works for you. Http: / / www.google.com/search?hl=en&q=facebook+ background + color & aq = 8 & q = facebook + bac
Ms Access Tutorial – Using color-coded to enhance applications
Please take a look at this powerful technique to add color advanced coding and logic to your forms.
Color coding adds value to a form easily, since it directs attention to the data user critical. This is a powerful technique that allows the user to quickly evaluate a data page errors or warning information.
Access 2000 Access 2003 has a limit of four colors that can be used for each field in a continuous form. Using the code Methos condition described in this tip, no limit the logic can be applied to establish the field conditions of the four color options.
Create a table name that ColorCoding
Enter the following fields (without the numbers)
1] CntrID as AutoNumber, make it the primary key field
2 Cntname] as text
3] WorkDesc as text – data or should be "min" or "maj"
EMR 4] as the number one – the data must be any integer between 1 and 10
5 aggdate] as the date and time
6 aggamnt] as currency
Wcompdate 7] as the date and time
8 wcompamnt] as currency
CONCODER 9] as the number, long integer of this field is left blank calculated.
Enter some data in the table for the test.
Create a form continuously in the style of the table ColorCoding as a data source.
Add a form header / footer.
Set a form's title in the header section of the form of the form (optional).
Use the information about the objects shape and give each field of the same name that is source control. Thus, the name [EMR field] "EMR" for example. You can then use the field names as variable when you create the VBA code.
Add all the fields to the table and aligned in a row with the field by labels above each field, but in the form header sectionof the form.
This should leave a row of fields in the detail section of the form.
Put a button on the foot with the updated title.
In design mode in the form, select Format / Conditional formatting.
Use command half to see a character in the condition code and set the color of their condition. Look at the field [EMR]. It is the fourth field on the left. Half Command directs access to check the field in the fourth CONCODER chracter place within a character for the value of 3.
Establish the terms of this
Leave the default format set white background and black font color.
Expression is Mid ([CONCODER], 4,1) = "3" Choose a color – red to use for three or condition not
The expression is Mid ([CONCODER], 4,1) = "2" Pick a color – I use yellow for 2 or a warning condition
The expression is Mid ([CONCODER], 4,1) = "1" Choose a color – green for one use or a condition that happens
Repeat this for each field you want to set the conditions. Note that each character of the condition code starting from left to right represent the respective field, from left to right. Therefore, a 3 in the 2nd place in the field of condition code CntName field is set to red. See above field numbers. subsequent fields are the same sequence.
A for example] the aggdate [condtional field format would look like:
The expression is Mid ([CONCODER], 5,1) = "3" Choose a color. This
Field condition code] [CONCODER, values are created with any logic you want to assign to it. In this example I am using eight fields so conidition code is eight characters wide and each character could be a 0,1,2, or 3. So it might look like this 10112321. Now, using the command top middle, the fourth character is a 1 as the condition for the fourth field, [REM], it would be a 1, that the conditions to green.
Once you have the is designed and tested, you may want to go back and set the field CONCODER to invisible. Users do not need to see this data.
After you've created how to apply the code. You can cut and paste this right in the way if you used the same field names described without writing.
Cut here ——–
Option Compare Database
Dim rec As DAO.Recordset
Dim db As Database
Civil SetConCode ()
On Error GoTo erout
Dark Xcode (10) As Integer, x As Integer, String CCODE As and As Integer
"Xcode values 1 = green 2 = yellow, red = 3, 0 = white
"Use the next line if you have hundreds of records and do not want to wait on the screen to update
'False DoCmd.Echo
'Set the counter field zero
x = 0
'Increasing the field up the fight against
x = x + 1 'Step 1
If IsNull (CntrID) Then
Xcode (x) = 0
More
Xcode (x) = 1
End If
x = x + 1 'Step 2
If IsNull (Cntname) Then
Xcode (x) = 0
More
Xcode (x) = 1
End If
x = x + 1 'Step 3
If IsNull (WorkDesc) Then
Xcode (x) = 0
More
Xcode (x) = 1
End If
x = x + 1 'Step 4
If IsNull (EMR) Then
Xcode (x) = 0
ElseIf EMR and EMR Xcode 3 (x) = 2
More
Xcode (x) = 3
End If
x = x + 1 'Step 5
If IsNull (aggdate) Then
Xcode (x) = 0
ElseIf aggdate = Now () and Xcode aggdate (X) = 2
More
Xcode (x) = 1
End If
x = X + 1 'Step 6
'You can use any amount of logic is to establish the condition you want and then drive
"Conditional formatting for the color you want.
'In this example I use Two Sets of values status based on the value of another field completely.
If IsNull (aggamnt) Then
Xcode (x) = 0
Go to aggout
End If
If WorkDesc = "min" Then
If Xcode aggamnt aggamnt = 1 and (x) = 2
More
Xcode (x) = 1
End If
Go to aggout
ElseIf WorkDesc = "maj" Then
If aggamnt = 3 and Xcode aggamnt (x) = 2
More
Xcode (x) = 1
End If
End If
aggout:
x = x + 1 'Step 7 wcompdate
If IsNull (wcompdate) Then
Xcode (x) = 0
ElseIf wcompdate = Now () Y 1 Y wcompdate
Xcode (2) = 3
End If
'Build the field values of the securities CONCODER Xcode collect the value of X, from left to right
'
y = 0
For y = 1 to 8
If y = 1 Then
Xcode CCODE = (y)
More
CCODE = CCODE and Xcode (y)
End If
Next
'MsgBox "setconcode finished"
CONCODER = CCODE
erout:
Debug.Print Err.Description
It is true DoCmd.Echo
End Function
"Run SetConCode function after of each field is updated
Private Sub addamnt_AfterUpdate ()
SetConCode
End Sub
Private Sub aggdate_AfterUpdate ()
SetConCode
End Sub
Cntname_AfterUpdate Private Sub ()
SetConCode
End Sub
EMR_AfterUpdate Private Sub ()
SetConCode
End Sub
Private Sub Form_Open (Cancel As Integer)
'Loop through all records CONCODER configuration values when the form is opened to check the date values.
Dark x As Integer
x = 1
Rec = Me.Recordset.Clone September
rec.MoveLast
If rec.RecordCount = 0 Then
MsgBox "No records Found "
End If
rec.MoveFirst
DoCmd.GoToRecord acDataForm "CondCodes" acFirst
For x = 1 To rec.RecordCount – 1
If then x = Rec.RecordCount
Go to getoutloop
More
SetConCode
DoCmd.GoToRecord acDataForm "CondCodes" acNext
End If
Next
getoutloop:
rec.Close
End Sub
Private Sub set_Click ()
'Loop through all records set the values CONCODER
Dim x As Integer
x = 1
Rec = Me.Recordset.Clone September
rec.MoveLast
If rec.RecordCount = 0 Then
MsgBox "No records found"
End If
rec.MoveFirst
DoCmd.GoToRecord acDataForm "CondCodes" acFirst
For x = 1 To rec.RecordCount – 1
If x = Then rec.RecordCount
Go to getoutloop
More
SetConCode
AcDataForm DoCmd.GoToRecord "CondCodes" acNext
End If
Next
turn "DoCmd.Echo true 'echo off again if
getoutloop:
rec.Close
End Sub
Private Sub wcompamnt_AfterUpdate ()
SetConCode
End Sub
Private Sub wcompdate_AfterUpdate ()
SetConCode
End Sub
Cut Here ————–
You can download the database file example of our site www.biomationsystems.com. Search Tips access link.
This example was created with Access 2002. You may have better ways of achieving the same, but this works well for us. You will need to set the VBA references to include Microsoft DAO 3.6
This should do it. You can find the example on our website complete with a sample database included.
Note that this is a powerful and valuable tips that can help you build your applications separate database and its users want more. We work hard to provide these tutorials and would appreciate you visiting our site and check out our site and give us some feedback.
We develop custom applications that solve complex data problems for businesses of all sizes. Our members call back, because we have a great value. We are looking for associated with process improvement.
If you know of someone who could benefit from this sort of help from Access, Please feel free to pass this message.
We have combined two of our favorite utilities in a very limited time special offer. The email tool we use to keep in touch with our customers and a backup scheduler that lets you schedule your data safely backed up in two different places.
One day …
Jon E. Watson
President, BioMation Systems, Inc.
Look for our products and services www.biomationsystems.com
About the Author
Jon Watson is the founder of Biomation Systems, Inc. With 26 years experience helping Fortune 500 companies with process improvement he formed BioMation to bring the same expertise to smaller companies that need the same improvements at an affordable price.
You can find more help for MS Access at:
www.biomationsystems.com
www.accessdatabasehelp.com
www.accesshelpebook.com
