Trouble Applying VB Code in Report!!!!!

[Kris Forsyth]

Hi All,

I have Created a tax table in vb code and am trying to apply it to the load function of my report. However on open it only applies to the first line and repeats the result. I want it to apply it to all results and give me unique answers. I have no idea and am competly stuck all help would be greatly appreciated!!!

Here Is my Code:

 Private Sub Report_Load()
 
    Select Case Me.TaxFreeThreshold
 
    Case True
 
        If (Me.SumOfEmployeeGross / 2) <= 198 Then
        Me.EmployeeTax = 0
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 342 Then
        Me.EmployeeTax = ((0.15 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 29.7115) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 402 Then
        Me.EmployeeTax = ((0.25 * (((Me.SumOfEmployeeGross) / 2) + 0.99)) - 63.9308) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 576 Then
        Me.EmployeeTax = ((0.165 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 29.7117) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 673 Then
        Me.EmployeeTax = ((0.185 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 41.2502) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 1225 Then
        Me.EmployeeTax = ((0.335 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 142.2117) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 1538 Then
        Me.EmployeeTax = ((0.315 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 117.6925) * 2
 
        End If
 
    Case False
 
        If (Me.SumOfEmployeeGross / 2) <= 259 Then
        Me.EmployeeTax = ((0.165 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 0.165) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 355 Then
        Me.EmployeeTax = ((0.2346 * (((Me.SumOfEmployeeGross) / 2) + 0.99)) - 18.0692) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 908 Then
        Me.EmployeeTax = ((0.335 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 53.7885) * 2
 
        ElseIf (Me.SumOfEmployeeGross / 2) <= 1221 Then
        Me.EmployeeTax = ((0.315 * ((Me.SumOfEmployeeGross / 2) + 0.99)) - 35.6154) * 2
 
        End If
 
    End Select
 
Me.EmployeeNet = SumOfEmployeeGross - EmployeeTax
 
End Sub 

[TheSmileyCoder]

The reports Load event only runs once (when the report loads....)

If you want to use it as each detail (each record) is formatted, you need to use the Detail_Format() event.

Another option would be to write it in a function, and call the function in the query behind the report.