Automatic change of values in a form

[asmusdk]

I am setting up a database for entering sales.

The form has a combobox based on the product table (ID, description, colour).

When I select the product from the drop down menu I would like another field "price" to display the value automatic.

Hope this makes sence and someone can help me.

Thanks!

asmusdk

[Stwange]

I am setting up a database for entering sales.

The form has a combobox based on the product table (ID, description, colour).

When I select the product from the drop down menu I would like another field "price" to display the value automatic.

Hope this makes sence and someone can help me.

Thanks!

asmusdk

Assuming that your combobox is called cmbProduct, your price field is a textbox called txtPrice, and the price is stored somewhere in the product table, the ID is stored as the value of cmbProduct, and the ID is numeric, then:

Private Sub cmbProduct_afterUpdate()
     Dim rs as DAO.recordSet
     Set rs = DBEngine(0)(0).openRecordSet("SELECT price FROM product WHERE ID = " & cmbProduct.value & ";")
     txtPrice.value = rs!price
End Sub
 

Hope this helps.