If-Then Statements In "On Change" Event

I have a database with two forms. The Products form with the account line item subform embedded in it.

In the Accounts Credited field of the Products form, I have a VB statement (below) under the "on change" event. It forces two fields in the accounts table to be changed. The Accounts Credited field is a combo box with a value list of "savings"; "Checking"; "PayPal"; etc. Every time you change that value, it should force a change in the AccountName field's text property to match it, and it should also change the AccountID field's value to the corresponding number.

The AccountName and AccountID fields are a part of the Accounts Table. AccountID links the Accounts Table and the AccountLineItem table. However I can't get the VB Code to run when the different "accounts credited" options are selected. It should change the account ID value in the subform.

It's a class project and the professor has told us that everyone in the class receive an "incomplete" for the course unless the database works by wednesday. She has not given us the tools to do what we need to do though, any help would be greatly appreciated.

Thanks!

code for "on Change" event:

Private Sub AccountCredited_Change()

If (Field_Accounts!AccountName.Text = "Savings") Then
Field_Accounts!AccountID.Value = 1
End If

If (Field_AccountName.Text = "Checking") Then
Field_AccountID.Value = 2
End If

If (Field_AccountName.Text = "PayPal") Then
Field_AccountID.Value = 3
End If

If (Field_AccountName.Text = "Building") Then
Field_AccountID.Value = 4
End If

If (Field_AccountName.Text = "Animal Control") Then
Field_AccountID.Value = 5
End If
End Sub