If event

[angie]

I need to add to the below me.paymenttype = cash or check
me.totalamoutdue = "cashprice"
I tried to enter it before the else and before the end if.

Private SubPaymentType_AfterUpdate()
IfMe.PaymentType = "FINANCED" Then


Me.TotalAmountDue= Me.FinancedPrice
Else
Me.PaymentType= "CREDIT"
Me.TotalAmountDue= Me.FinancedPrice
End If

End Sub

[davegri]

So if the user doesn't enter into PaymentType either "Financed", "Cash" or "Check", the code will change the entry to "Credit".
From your description I assume you have a textbox named CashPrice.

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

[isladogs]

You can combine the financed and credit options whether using If...Else...End If or Select Case.
For example, using Dave's code from the previous reply

Private Sub PaymentType_AfterUpdate()
    Select Case Me.PaymentType
        Case "Financed", "Credit"    
            Me.TotalAmountDue= Me.FinancedPrice
        Case "Cash", "Check"
            Me.TotalAmountDue = Me.CashPrice  
    End Select
End Sub

[angie]

Thank You this worked great...... have a wonderful day