Form Query field not updating table

[Thompyt]

I am attempting to update the base table with a Form. where I reference tables the fields in the base table update. The fields where I have a bit of code in them do not update.
Tbl_Consolidate fields not updating and stay as the default value if there is one assigned:
Flight: IIf([SLeg]<>1,0,[FLCost])
Bag: IIf([GNDTVL]=False And ([SLeg])=1,160,0)
H2Air: IIf([Sleg]<>1 Or [GNDTVL]=True,0,([H2Airmiles]*0.56)*4)
Taxi: IIf([SLeg]=1,150,0)
Tolls: IIf([SLeg]=1,100,0)

On the form the query works and the Qry_Test query works to update the fields

I have tried the following with no errors, but still does not update the fields.
Private Sub H2Air_AfterUpdate()
TBL_Consolidate.H2AirM = Me.H2Air
End Sub
Private Sub H2Air_Change()
TBL_Consolidate.H2AirM = Me.H2Air
End Sub

Travel_Testbed.zip


What am I doing wrong? I think if 1 is solved the others can be solved int he same way.

[June7]

Saving calculated values (data dependent on other data) is usually not necessary and can be risky. Calculate when needed. Your form RecordSource is doing this calculation. Your code is attempting to enter value into that field which is not possible because it is a calculated field. If you want to save value, then don't do calculation in query, just pull table field into RecordSource query.

Qry_Test is just a SELECT query with calculations - it does not update anything, i.e. nothing in table is changed when this query is opened.

I would probably not have this form RecordSource include lookup tables (simplify and just bind to Tbl_Consolidate). Alternative for displaying related lookup values is to have textboxes reference columns of comboboxes.

[Thompyt]

Thanks June7, twice your explanations have set me on the right course.