afterupdate event

[angie]

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

[alansidman]

If I am understanding your request, you wish to deduct the value 850 from the MiscItemsPrice if true and add 850 to it if false.

Private Sub ApcoAir_AfterUpdate()
If Me.ApcoAir = true Then
Me.MiscItemsPrice = Me.MiscItemsPrice -850
Me.ProposalDescription = Replace(Me.ProposalDescription, vbCrLf &"Install Apco Air", "")
Else
Me.MiscItemsPrice = Me.MiscItemsPrice + 850
Me.ProposalDescription = Me.ProposalDescription & vbCrLf &"Install Apco Air"
End If

End Sub

[angie]

Thank You so much, that works just like I needed it to. thanks again