Update Value in Combo Box

[j2curtis64]

Hello,



I want to be able to update value in text box based on the value in a combo box. This would be in a Access form.

For example, I have the following values in a table.

Name Number
Johnson 1234
Curtis 5678
Jones 2468

So, I did the following....

The Row Source of the combo box needs to include both columns (fields).

=[YourComboBox].Column(1)

This worked (when entering data in name field, number field updates in the form) but now i am finding when i add data thru the form the number fields are not updating in the table. All the other fields in the form are updating.

[RuralGuy]

Use the AfterUpdate event of the ComboBox to update the TextBox that is bound to the field you want. Me.txtControl = Me.[YourComboBox].Column(1)

[j2curtis64]

Sorry for my ignorance but what does "Me" mean?

"Me.txtControl = Me.[YourComboBox].Column(1)" mean?

[RuralGuy]

It is a reference to the Form where the control is located. When you use that syntax, intellisense is activated when you type the first period and the available choices are displayed for you to choose from.

[j2curtis64]

So do I input the code below in the after update event row? Do I add to open code builder screen (VB)
Me.txtControl = Me.[YourComboBox].Column(1)

What does txtControl refer to? is that the field i am wanting to update based on the the combo box?

Thanks

[RuralGuy]

On the AfterUpdate event row on the property sheet for the ComboBox, press the "..." button and select CODE. Then you put the code before the End Sub line. Me.txtControl refers to the control that displays the value you are trying to save. You need to remove what you have as the ControlSource:
(=[YourComboBox].Column(1)) and instead make it point to the field in which you want to save the value. The name of each control is on the "Other" tabe of the respective property sheet.

[j2curtis64]

This is still not working. The .txt box is not updating the table. I updated the code to the following.

Combo box - ApprovingOfficial (control source)

After Update
Private Sub ApprovingOfficial_AfterUpdate()
Me.AO_Credit_card = Me.ApprovingOfficial.Column(2)
End Sub

Text box - AO_Credit_card
Control source - AO_CARD

When I insert name in ApprovingOfficial, it does update txt box but still does not update field in table.

What am I missing?

Thanks

[RuralGuy]

It looks right to me. The field in the table that is *not* getting changed is named AO_CARD, right?

[j2curtis64]

No, actually I want the AO_CARD field to change. The value should be updated based on ApprovingOfficial.

[RuralGuy]

The field in the table that is *not* getting changed is named AO_CARD, right?

It looks like the answer to my question is yes when you answered "No, actually I want..."

[j2curtis64]

You are correct. The question is why isn't AO_CARD being updated in the table?

[RuralGuy]

Can you type directly into this TextBox and have the change saved?

[j2curtis64]

Yes. It does save to the table.

Thanks

[RuralGuy]

The code in the AfterUpdate event of the cbo will *not* Dirty the record on its own. Use the cbo and then change another bound control to dirty the record and see if the cbo change is then saved.

[j2curtis64]

"The code in the AfterUpdate event of the cbo will *not* Dirty the record on its own. Use the cbo and then change another bound control to dirty the record and see if the cbo change is then saved."

I am sorry but you lost me. What do you mean by dirty the record?

Are you saying i need to change this?

Private Sub ApprovingOfficial_AfterUpdate()
Me.AO_Credit_card = Me.ApprovingOfficial.Column(2)
End Sub

Thanks