Hello-
New to coding and having an issue. I'm using Visual Basic in Access reports to calculate a value, but when I form load it's calculating one value and posting that in every text box. How do I get it to run the calculation for each box? I'm pulling from several tables (total freight and LTL freight) and basing the calculation on the carrier ID. See code below:

Private Sub Report_Click()

If [Carrier Id] = 100001 Then
Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100009 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106932 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 107078 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106973 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106974 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106975 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106976 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 107121 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106977 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106840 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100008 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106895 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 107145 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100006 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100003 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100002 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100012 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100010 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100013 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100015 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106982 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106983 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106984 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106985 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106986 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106987 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106990 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106991 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106992 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 107688 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 106994 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
ElseIf [Carrier Id] = 100014 Then Text13 = ([Total Freight] * 2) + [LTL Freight]
Else:
End If
End Sub


What am I doing wrong? Any help would be greatly appreciated.

Thank you,