If code to auto fill

[angie]

I would like to add “credit” to the second line with the “financed”I tried “financed” or “credit” but it did not work..


Private Sub Payment_Type_AfterUpdate()
If Me.Payment_Type = "financed" Then
Me.Projected_Cost = Nz(Me.Financed_Price, 0)
Else
Me.Projected_Cost = Nz(Me.Cash_Price, 0)
End If
End Sub

[isladogs]

I would like to add “credit” to the second line with the “financed”I tried “financed” or “credit” but it did not work..

Private Sub Payment_Type_AfterUpdate()
If Me.Payment_Type = "financed" Or Me.Payment_Type ="credit" Then
Me.Projected_Cost = Nz(Me.Financed_Price, 0)
Else
Me.Projected_Cost = Nz(Me.Cash_Price, 0)
End If
End Sub

[angie]

Private Sub Payment_Type_AfterUpdate()
If Me.Payment_Type = "financed" Or Me.Payment_Type ="credit" Then
Me.Projected_Cost = Nz(Me.Financed_Price, 0)
Else
Me.Projected_Cost = Nz(Me.Cash_Price, 0)
End If
End Sub

this works great thank you so much.