M
Momof2
I have a subform based from a "Coding" table with a combo box (Charge
Description) in which lists Charge Descriptions and Charge Codes based from
"charge code" table. When the charge description is chosen I have the control
source on the Charge Code text box to automatically populate with the
following code: =[charge description].[column](1). which works fine however
it does not save the charge code to the "coding" table.
I tried running the following code:
Private Sub Charge_Description_AfterUpdate()
Me.Charge_Code.Value = Me.Charge_Description.Column(1)
End Sub
now I'm getting a runtime error '2448'. So now i'm stuck any ideas to fix
this?
Description) in which lists Charge Descriptions and Charge Codes based from
"charge code" table. When the charge description is chosen I have the control
source on the Charge Code text box to automatically populate with the
following code: =[charge description].[column](1). which works fine however
it does not save the charge code to the "coding" table.
I tried running the following code:
Private Sub Charge_Description_AfterUpdate()
Me.Charge_Code.Value = Me.Charge_Description.Column(1)
End Sub
now I'm getting a runtime error '2448'. So now i'm stuck any ideas to fix
this?