hihglighting text with multiple criteria

[smoker1]

Hello! I am trying to create code that looks at the time and highlights it if it is either under or over the goal times indicated.

Here is my code in the "On Print":

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim goal As Date
goal = CDate(Format(txtDailyMinimumGoal))
Debug.Print goal
Debug.Print Me!txtDailyMinimumGoal
If CDate(Me!txtBreak) < goal Then
Me!txtBreak.BackColor = 14935011
Else
Me!txtBreak.BackColor = 16777215
End If

Dim goal As Date
goal = CDate(Format(txtDailyMaximumGoal))
If CDate(Me!txtBreak) > goal Then
Me!txtBreak.BackColor = 14935011
Else
Me!txtBreak.BackColor = 16777215
End If

End Sub

Unfortunately, it only highlights the first set of code - so I need to somehow combine the two. Can anyone assist?

 

[braindead2]

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim goalmax As Date, GoalMin as date
goal = CDate(Format(txtDailyMinimumGoal))
goalmin = CDate(Format(txtDailyMaximumGoal))

If CDate(Me!txtBreak) < goalmax Then
Me!txtBreak.BackColor = 14935011
Else if CDate(Me!txtBreak) > goalmin Then
Me!txtBreak.BackColor = 14935011
Else
Me!txtBreak.BackColor = 16777215
End If
End Sub

 

[braindead2]

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim goalmax As Date, GoalMin as date
goalmax = CDate(Format(txtDailyMinimumGoal))
goalmin = CDate(Format(txtDailyMaximumGoal))

If CDate(Me!txtBreak) < goalmax Then
Me!txtBreak.BackColor = 14935011
Else if CDate(Me!txtBreak) > goalmin Then
Me!txtBreak.BackColor = 14935011
Else
Me!txtBreak.BackColor = 16777215
End If
End Sub

 

[smoker1]

I think you're very close to resolving this for me in your last posting. However, after I cut your code into my code builder, I receive a message highlighting the &quot;else if cdate(me!txtBreak) >goalmin Then&quot; statement and stating that it &quot;must be first statement on the line&quot;. When I separate the Else statement, it doesn't work. Any ideas?

Thanks so much for your help!!!


--Angela

 

[braindead2]

don't put space in else if needs to be elseif

If CDate(Me!txtBreak) < goalmax Then
Me!txtBreak.BackColor = 14935011
Elseif CDate(Me!txtBreak) > goalmin Then
Me!txtBreak.BackColor = 14935011
Else
Me!txtBreak.BackColor = 16777215
End If
End Sub

 

[smoker1]

Thank you very much for your great assistance! It is greatly appreciated!!!