Run-Time error '2465'

[hawkins]

I have been trying to write vba for conditionals but I got down three groupings and then it gets a Run-Time error '2465' which cant find the field but it worked before adding the third grouping. The code looks like:
If [PhaseImbal] < 2 Then [AmpsKwAApr].BackColor = vbYellow
If [PhaseImbal] > 2 Then [AmpsKWAApr].BackColor = vbRed
If [PhaseImbal] = 8 Then [AmpsKWAApr].BackColor= vbWhite

Then that is repeated 3 times with different AmpsKWAAPr's. The first 2 times it worked then the third it received that error. I was wondering how I can get it to recognize the field again and having three Then statements so I can only have 3 rows instead of 9. Any suggestions will be greatly appreciated!

**changed up- now my question is:
Ive actually changed it up completely, but I have another question. I finally just used a text box to obtain a value that i was getting that error from, AmpacityRefence. I am wanting to divide AmpacityReference by AmpsA and do conditions from there but I am not getting the correct values from the divisions I dont think. Here is my code I have:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


Dim AmpacA As Double
Dim AmpacB As Double
Dim AmpacC As Double

AmpacA = Me![AmpacityReference] / [AmpsA]
AmpacB = Me![AmpacityReference] / [AmpsB]
AmpacC = Me![AmpacityReference] / [AmpsC]

If AmpacA > 0.6699 And AmpacA < 0.90001 Then
AmpsKWAL.BackColor = vbYellow
ElseIf AmpacA > 0.9 Then
AmpsKWAL.BackColor = vbRed
ElseIf AmpacA < 0.67 Then
AmpsKWAL.BackColor = vbWhite
End If

End Sub

The AmpacB and AmpacC will just be used in replicated if elseif statements. Somethings going wrong with my division but I dont know how. All suggestions will help greatly!

[rpeare]

If [PhaseImbal] < 2 Then [AmpsKwAApr].BackColor = vbYellow
If [PhaseImbal] > 2 and [PhaseImbal] <> 8 Then [AmpsKWAApr].BackColor = vbRed
If [PhaseImbal] = 8 Then [AmpsKWAApr].BackColor= vbWhite

[hawkins]

Ive actually changed it up completely, but I have another question. I finally just used a text box to obtain a value that i was getting that error from, AmpacityRefence. I am wanting to divide AmpacityReference by AmpsA and do conditions from there but I am not getting the correct values from the divisions I dont think. Here is my code I have:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim AmpacA As Double
Dim AmpacB As Double
Dim AmpacC As Double

AmpacA = Me![AmpacityReference] / [AmpsA]
AmpacB = Me![AmpacityReference] / [AmpsB]
AmpacC = Me![AmpacityReference] / [AmpsC]

If AmpacA > 0.6699 And AmpacA < 0.90001 Then
AmpsKWAL.BackColor = vbYellow
ElseIf AmpacA > 0.9 Then
AmpsKWAL.BackColor = vbRed
ElseIf AmpacA < 0.67 Then
AmpsKWAL.BackColor = vbWhite
End If

End Sub

The AmpacB and AmpacC will just be used in replicated if elseif statements. Somethings going wrong with my division but I dont know how. All suggestions will help greatly!

[rpeare]

If AmpacA > 0.6699 And AmpacA < 0.90001 Then
AmpsKWAL.BackColor = vbYellow
ElseIf AmpacA > 0.9 Then
AmpsKWAL.BackColor = vbRed
ElseIf AmpacA < 0.67 Then
AmpsKWAL.BackColor = vbWhite
End If

There are overlaps in your division

it should be

If AmpacA > 0.6699 And AmpacA < 0.90001 Then
AmpsKWAL.BackColor = vbYellow
ElseIf AmpacA >= 0.90001 Then
AmpsKWAL.BackColor = vbRed
ElseIf AmpacA <= 0.6699 Then
AmpsKWAL.BackColor = vbWhite
End If

[hawkins]

**It worked perfectly for about 10 minutes and I didnt changed anything involving the query or anything that is reference from the query and I get the run-time error again. I dont understand why I get this error after a bit because thats what happened before to me with my other ways to solve it.

Thanks for the help, I stupidly switched the fields i divided by so i was alwyas getting over 0.9. Do you by any chance know how to make a If Else Statement outside the If ELSEIF statements? I Need to create a condition for nulls right off the bat so if AmpsA or Me![AmpacityReference] is null it just fill the backcolor white. I had received a null error when I tried to run it. I have altered the code some so heres what I have now:
Dim AmpacA As Double
Dim AmpacB As Double
Dim AmpacC As Double

AmpacA = [AmpsA] / Me![AmpacityReference]
AmpacB = [AmpsB] / Me![AmpacityReference]
AmpacC = [AmpsC] / Me![AmpacityReference]

If AmpacA >= 0.67 And AmpacA <= 0.9 Then
AmpsKWAL.BackColor = vbYellow
ElseIf AmpacA > 0.9 Then
AmpsKWAL.BackColor = vbRed
ElseIf AmpacA < 0.67 Then
AmpsKWAL.BackColor = vbWhite
End If

If AmpacB >= 0.67 And AmpacB <= 0.9 Then
AmpsKWB.BackColor = vbYellow
ElseIf AmpacB > 0.9 Then
AmpsKWB.BackColor = vbRed
ElseIf AmpacB < 0.67 Then
AmpsKWB.BackColor = vbWhite
End If

If AmpacC >= 0.67 And AmpacC <= 0.9 Then
AmpsKWC.BackColor = vbYellow
ElseIf AmpacC > 0.9 Then
AmpsKWC.BackColor = vbRed
ElseIf AmpacC < 0.67 Then
AmpsKWC.BackColor = vbWhite
End If

[rpeare]

Dim AmpacA As Double
Dim AmpacB As Double
Dim AmpacC As Double
 
if isnull(me![ampacityreference]) then
     AmpsKWAL.BackColor = vbWhite
     AmpsKWB.BackColor = vbWhite
     AmpsKWC.BackColor = vbWhite
else
     AmpacA = [AmpsA] / Me![AmpacityReference]
     AmpacB = [AmpsB] / Me![AmpacityReference]
     AmpacC = [AmpsC] / Me![AmpacityReference]
 
     If AmpacA >= 0.67 And AmpacA <= 0.9 Then
         AmpsKWAL.BackColor = vbYellow
         AmpsKWB.BackColor = vbYellow
          AmpsKWC.BackColor = vbYellow
     ElseIf AmpacA > 0.9 Then
         AmpsKWAL.BackColor = vbRed
         AmpsKWB.BackColor = vbRed
         AmpsKWC.BackColor = vbRed
     ElseIf AmpacA < 0.67 Then
         AmpsKWAL.BackColor = vbWhite
         AmpsKWB.BackColor = vbWhite
         AmpsKWC.BackColor = vbWhite
     End If
 End If

[hawkins]

Your a life saver! I ended up hopefully figuring out the Run-Time error as well. Instead of Me![AmpacityReference] I just used AMpacityReference. Thank you for your help, I truly appreciate it!