G
Guest
I am writing code to colour my cells in the detail panel, so far have
completed this for the calander year. My next report requires me to use
similar code but to break it down to indivual days. is their an easy way to
do this rather than copy and paste and change each of the dates??
Thanks for the help so far.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me.Jan
Case "AM"
Me![Jan].BackColor = 16764057
Case "AS"
Me![Jan].BackColor = 32768
Case "D"
Me![Jan].BackColor = 8421504
Case "IC"
Me![Jan].BackColor = 255
Case "L"
Me![Jan].BackColor = 65535
Case "P"
Me![Jan].BackColor = 8388736
Case "QS"
Me![Jan].BackColor = 16711680
Case "R"
Me![Jan].BackColor = 52377
Case "SC"
Me![Jan].BackColor = 12632256
Case "SS"
Me![Jan].BackColor = 39423
Case "CT"
Me![Jan].BackColor = 10079487
Case Else
Me.Jan.BackColor = vbWhite
End Select
Select Case Me.Feb
Case "AM"
Me![Feb].BackColor = 16764057
Case "AS"
Me![Feb].BackColor = 32768
Case "D"
Me![Feb].BackColor = 8421504
Case "IC"
Me![Feb].BackColor = 255
Case "L"
Me![Feb].BackColor = 65535
Case "P"
Me![Feb].BackColor = 8388736
Case "QS"
Me![Feb].BackColor = 16711680
Case "R"
Me![Feb].BackColor = 52377
Case "SC"
Me![Feb].BackColor = 12632256
Case "SS"
Me![Feb].BackColor = 39423
Case "CT"
Me![Feb].BackColor = 10079487
Case Else
Me.Feb.BackColor = vbWhite
End Select
completed this for the calander year. My next report requires me to use
similar code but to break it down to indivual days. is their an easy way to
do this rather than copy and paste and change each of the dates??
Thanks for the help so far.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me.Jan
Case "AM"
Me![Jan].BackColor = 16764057
Case "AS"
Me![Jan].BackColor = 32768
Case "D"
Me![Jan].BackColor = 8421504
Case "IC"
Me![Jan].BackColor = 255
Case "L"
Me![Jan].BackColor = 65535
Case "P"
Me![Jan].BackColor = 8388736
Case "QS"
Me![Jan].BackColor = 16711680
Case "R"
Me![Jan].BackColor = 52377
Case "SC"
Me![Jan].BackColor = 12632256
Case "SS"
Me![Jan].BackColor = 39423
Case "CT"
Me![Jan].BackColor = 10079487
Case Else
Me.Jan.BackColor = vbWhite
End Select
Select Case Me.Feb
Case "AM"
Me![Feb].BackColor = 16764057
Case "AS"
Me![Feb].BackColor = 32768
Case "D"
Me![Feb].BackColor = 8421504
Case "IC"
Me![Feb].BackColor = 255
Case "L"
Me![Feb].BackColor = 65535
Case "P"
Me![Feb].BackColor = 8388736
Case "QS"
Me![Feb].BackColor = 16711680
Case "R"
Me![Feb].BackColor = 52377
Case "SC"
Me![Feb].BackColor = 12632256
Case "SS"
Me![Feb].BackColor = 39423
Case "CT"
Me![Feb].BackColor = 10079487
Case Else
Me.Feb.BackColor = vbWhite
End Select