Saving look up information

[keiath]

Hi Guys



Hope someone can help

I have a combo (Exp Code) that looks up in a form from another table, which saves in the current form table, in a txt box it the auto fills the description:-

Private Sub Expense_Code1_Change()
Private Sub Combo163_AfterUpdate()
Me.Text169 = Me.Combo163.Column(1)
End Sub

this works fine, but how to i get it to save in the form table because when ever i return to the form the information has disappeared.

Any ideas?

[ItsMe]

In your VBA editor have you tried compiling the code? From the tool bar, Debug > Compile

[keiath]

its working fine just not saving in the current form so i think i am missing some code

[June7]

Why are you saving the descriptive value? If you are saving the ID then should not save descriptor.

As already suggested, run Debug > Compile. It will reveal that your code structure is bad. You have two Sub declaration lines when there should be only one.

[keiath]

Why are you saving the descriptive value? If you are saving the ID then should not save descriptor.

As already suggested, run Debug > Compile. It will reveal that your code structure is bad. You have two Sub declaration lines when there should be only one.

Private Sub Combo163_AfterUpdate() Me.Text169 = Me.Combo163.Column(1)End Sub
this is now corrected, but it at the moment its saving the description field on every form, whereas the exp code (the combo from which the auto-fill gets its information) because its saved only shows on that record

Hope that all makes sense now

[June7]

Do not understand last post.

Also, you did not answer question about why saving descriptor.

[keiath]

Private Sub Combo163_AfterUpdate()
Me.Text169 = Me.Combo163.Column(1)End Sub

the code is corrected.

when i select code '55' it displays All Grounds Maintenance, but it displays 'All Grounds Maintenance' on every record, if I go to another record and select '63' 'Cleaning General' then shows on every record including the previous record that has code '55' now says 'Cleaning General'

where one record should say '55' All Grounds Maintenance and the next record '63' 'Cleaning General' what am i doing wrong~?

Thanks for taking time to look at this problem

[June7]

Because Text169 is not bound to a field of the form RecordSource. Unbound controls and controls without dynamic expression will display same value for all records.

Only use code to populate data control if you want to save value into a field of record. The data control must also be bound to the field.

If you only want to display the descriptor then use expression in the textbox ControlSource:
=[Combo163].[Column](1)

[keiath]

Because Text169 is not bound to a field of the form RecordSource. Unbound controls and controls without dynamic expression will display same value for all records.

Only use code to populate data control if you want to save value into a field of record. The data control must also be bound to the field.

If you only want to display the descriptor then use expression in the textbox ControlSource:
=[Combo163].[Column](1)

THANK YOU

I don't know why i didn't see that! Duh!

[June7]

Again, saving the descriptor value is unnecessary and against basic relational database principles.