Condition Statement 1

[jbento]

All,
I have the following code in this section of a report: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Here is the code:

If Me![newly_opened] = "Lime" Then
Me![iecdNumber].BackColor = vbGreen
Else
Me![iecdNumber].BackColor = vbWhite
End If

If Me![newly_opened] = "Cyan" Then
Me![iecdNumber].BackColor = vbCyan
Else
Me![iecdNumber].BackColor = vbWhite
End If

The problem I have is if "Lime" is chosen from a form the formatting doesn't work on the report, but if I choose Cyan on the form the formatting shows the Cyan color on the report.

The problem is whatever the last condition is, the report captures that.

I want the condition to work if I choose Lime or Cyan.

Now if the condition for Lime was the last condition, then that would work.

How can I fix this problem?

Please help someone.

Thanks in advance.



Jerome Benton
JERPAT Web Designs

http://www.jerpat.org

GOD Is Good All The Time!!!

 

[jrbarnett]

Using a Select Case statement, you should be able to do this:

Select Case Me![newly_opened] 
  Case "Lime"
    Me![iecdNumber].BackColor = vbGreen
  Case "Cyan"
    Me![iecdNumber].BackColor = vbCyan
  Case Else
    Me![iecdNumber].BackColor = vbWhite
End Select

John

 

[jbento]

jrbarnett,
That worked beautifully!!!!

Thanks so much, and the STAR is coming.

God bless,

Jerome Benton
JERPAT Web Designs

http://www.jerpat.org

GOD Is Good All The Time!!!