Anonymous

Dim Scripts As Integer
Dim Rate As Integer
Dim Adminpay As Integer
Dim Current As Integer
Dim Temp As Integer



Private Sub Form_Load()

    Adminpay = 95

    Do Until Data1.Recordset.EOF   
        Scripts = Data1.Recordset.Fields("Scripts Total").Value
        Rate = Data1.Recordset.Fields("Script Rate").Value

        If Data1.Recordset.Fields("Tax Deduction Flag").Value = True
            Then
                 Current = (Scripts * Rate + Adminpay) - ((Scripts * Rate + Adminpay) / 100 * 22)
            Else
                 Current = Scripts * Rate + Adminpay
        End If
    
        Current = Current + Temp
        Temp = Current
    
        Data1.Recordset.MoveNext

    Loop

End Sub