add to vb code

[angie]

Private Sub PaymentType_AfterUpdate()
Select Case Me.PaymentType
Case"Financed"
Me.TotalAmountDue =Me.FinancedPrice
Case "Cash orcheck"
Me.TotalAmountDue =Me.CashPrice
Case Else
Me.PaymentType ="CREDIT"
Me.TotalAmountDue =Me.FinancedPrice
End Select


End Sub

I need to add the following to the aboveIf there is an amount in the textbox CostForSystem than the amount inthat text box is what I would like to show in the totalamoutdue text box nomatter what payment type is selected.Thank you

[ranman256]

1st you need to add the html markups : 'code' - '/code' to your post so we can read the code.

2nd

Private Sub PaymentType_AfterUpdate() 

Select Case Me.PaymentType 
Case"Financed" 
 Me.TotalAmountDue =Me.FinancedPrice 
Case "Cash orcheck" 
 Me.TotalAmountDue =Me.CashPrice 
Case Else 
 Me.PaymentType ="CREDIT"
 Me.TotalAmountDue =Me.FinancedPrice 
End Select

if val(CostForSystem) >0 then totalamoutdue = textbox

End Sub

[davegri]

I need to add the following to the aboveIf there is an amount in the textbox CostForSystem than the amount inthat text box is what I would like to show in the totalamoutdue text box nomatter what payment type is selected.Thank you

This is gibberish. Can you express this better?

[angie]

When the text box (costforsystem) is entered it updates the Text Box (TotalAmoutDue) but when I select the payment type is removes the amount
I still need to select the payment type but if there is an amount in the costforsystem field than the default would be that amount
Example:
Text Box (CostForSystem) 500.00
Text Box ( Total Amount Due) 500.00
Text Box (PaymentType) = you choose from (Finance) (Cash) or (Credit)

When I enter the payment type it deletes the amount in the TotalAmoutDue , I need the amount to stay in this field no matter what is selected in the paymentType

The code I am using now (see 1) works great and I still need to use it but wanted to add to it for the CostForSystem.