AfterUpdate Combobox, TextBox = Query (1 Viewer)

[sargon]

I have this query:

SELECT CMP.CMP
FROM CMP LEFT JOIN Products ON CMP.ProductID = Products.ProductID
WHERE (((Products.ProductID)=[Forms]![Outputs]![cmbProduct]));

and one form (Outputs) that have one combobox (cmbProduct) and one textbox (txtPrice).

txtPrice must be equal to query result after update cmbProduct



Private Sub cmbProduct_AfterUpdate()

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT CMP.CMP
FROM CMP LEFT JOIN Products ON CMP.ProductID = Products.ProductID
WHERE (((Products.ProductID)=[Forms]![Outputs]![cmbProduct]));"

Set rs = CurrentDb.OpenRecordset(strSQL)
Me!txtPrice = rs


End Sub

 

[pbaldy]

If you can add the price to the combo's row source, this would be more efficient:

http://www.baldyweb.com/Autofill.htm