This is what I use in the after update event and it works but I need itto add the 850 to the amount that is already in the miscitemsprice and take itfrom it if its ture.
Private Sub ApcoAir_AfterUpdate()
If Me.ApcoAir = ture Then
Me.MiscItemsPrice = 0
Me.ProposalDescription = Replace(Me.ProposalDescription, vbCrLf &"Install Apco Air", "")
Else
Me.MiscItemsPrice = "850"
Me.ProposalDescription = Me.ProposalDescription & vbCrLf &"Install Apco Air"
End If
End Sub