All,
1. Do the following codes seem ok?
2. If so, then how do I pull the value of YOE1 and YOE2 into my
report? (to do some further calculations)
*************************************************
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As
Integer)
Dim YOE1 As Double
Dim YOE2 As Double
While Me.Discipline("RN")
YOE2 = 1
If Me.YearOfEmp < 2 Then YOE1 = 1
Else: If Me.YearOfEmp >= 2 And Me.YearOfEmp < 5 Then YOE1
= 1.03
Else: If Me.YearOfEmp >= 5 And Me.YearOfEmp < 10 Then YOE1
= 1.0609
Else: If Me.YearOfEmp >= 10 And Me.YearOfEmp < 15 Then
YOE1 = 1.09
Else: If Me.YearOfEmp >= 15 Then YOE1 = 1.12
End If
Wend
While Me.Discipline(Not "RN")
YOE1 = 1
If Me.YearOfEmp < 2 Then YOE2 = 1
Else: If Me.YearOfEmp >= 2 And Me.YearOfEmp < 5 Then YOE2
= 1.05
Else: If Me.YearOfEmp >= 5 And Me.YearOfEmp < 10 Then YOE2
= 1.1025
Else: If Me.YearOfEmp >= 10 Then YOE2 = 1.16
End If
Wend
End Sub
*************************************************8
Thanks,
Perry