Cascading combo to list to txtbox calculation?

[GraemeG]

Hi,

I have a form with the following:

Combobox One - cboFloorCode (cascades to another
combo)
Private Sub cboFloorCode_AfterUpdate()
Dim strSource As String

strSource = "SELECT SORdescription " & _
"FROM
SORV4_BR_FLOOR " & _
"WHERE SORshortdesc = '" &
Me.cboFloorCode & "' ORDER BY SORshortdesc"
Me.cboFloorDesc.RowSource =
strSource
Me.cboFloorDesc = vbNullString
End Sub

Combobox Two - cboFloorDesc (cascades to a
listbox)



Private Sub cboFloorDesc_AfterUpdate()
Dim strSource As String

strSource = "SELECT baseprice " & _
"FROM SORV4_BR_FLOOR "
& _
"WHERE SORdescription = '" & Me.cboFloorDesc &
"' ORDER BY SORdescription"
Me.txtFloorBase.RowSource = strSource

Me.txtFloorBase = vbNullString
End Sub


But then in this txtFloorBase is a cost which then I want another txtbox to
calculate this cost times the quantity entered in another textbox.

Thanks

[GraemeG]

I have solved this by doing a query then using the control source to view the
query. However how can I get the calculation to refresh live on update. i.e. it
updates once the form is closed and reopened.

Thanks