B
Box666
I have a report that will colour certain boxes depending on its content
(code below). I have now been asked to add 2 more colours to the scheme
( I already use Green, red, blue, white and yellow. I did try to use
grey but that comes out as black and as such does not look very
attractive on the report.)
Could somebody please advise me of any other colours available and how
I would then code them in to the program below. ( I would have thought
that most shades would be available as I see Access gives "code
numbers" to all colours when used on say a form, but I do not know how
to translate that into what i gues is VB code.)
with thanks
Bob
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Jan = "Excd" Then
Box146.BackColor = vbGreen
ElseIf Jan = "Miss" Then
Box146.BackColor = vbRed
ElseIf Jan = "Met" Then
Box146.BackColor = vbBlue
ElseIf Jan = "New" Then
Box146.BackColor = vbYellow
ElseIf Jan = "N.L.R." Then
Box146.BackColor = vbYellow
ElseIf Jan = "HO" Then
Box146.BackColor = vbgrey
ElseIf Jan = "HB" Then
Box146.BackColor = vbgrey
Else: Box146.BackColor = vbWhite
(code below). I have now been asked to add 2 more colours to the scheme
( I already use Green, red, blue, white and yellow. I did try to use
grey but that comes out as black and as such does not look very
attractive on the report.)
Could somebody please advise me of any other colours available and how
I would then code them in to the program below. ( I would have thought
that most shades would be available as I see Access gives "code
numbers" to all colours when used on say a form, but I do not know how
to translate that into what i gues is VB code.)
with thanks
Bob
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Jan = "Excd" Then
Box146.BackColor = vbGreen
ElseIf Jan = "Miss" Then
Box146.BackColor = vbRed
ElseIf Jan = "Met" Then
Box146.BackColor = vbBlue
ElseIf Jan = "New" Then
Box146.BackColor = vbYellow
ElseIf Jan = "N.L.R." Then
Box146.BackColor = vbYellow
ElseIf Jan = "HO" Then
Box146.BackColor = vbgrey
ElseIf Jan = "HB" Then
Box146.BackColor = vbgrey
Else: Box146.BackColor = vbWhite