Private SubApcoAir_AfterUpdate()
IfMe.ApcoAir = False Then
Me.TotalAddOnPrice= Me.TotalAddOnPrice - 850
Me.FinancedPrice= Me.FinancedPrice - 850
Me.FinancedPricetwo= Me.FinancedPricetwo - 850
Me.CashPrice= Me.CashPrice - 850
Me.CashPricetwo= Me.CashPricetwo - 850
Me.ProposalDescription= Replace(Me.ProposalDescription, vbCrLf & "INSTALL APCO AIR","")
Me.ProposalDescriptionTwo= Replace(Me.ProposalDescriptionTwo, vbCrLf & "INSTALL APCO AIR","")
Else
Me.TotalAddOnPrice= Me.TotalAddOnPrice + 850
Me.FinancedPrice= Me.FinancedPrice + 850
Me.FinancedPricetwo= Me.FinancedPricetwo + 850
Me.CashPrice= Me.CashPrice + 850
Me.CashPricetwo= Me.CashPricetwo + 850
Me.ProposalDescription= Me.ProposalDescription & vbCrLf & "INSTALL APCO AIR"
Me.ProposalDescriptionTwo= Me.ProposalDescriptionTwo & vbCrLf & "INSTALL APCO AIR"
End If
End Sub
I use theabove and it works great, but I need it not to add to “proposalDescriptionTwo “ if there is nothing in that text box . To make no changes in the “proposalDescriptionTwo “ if there is nothing in it.
Thank You
Angie