How can I populate a text box with queried data from a combo box on the same form?

[billelev]

Hi there.

This is probably an easy task, but I am new to Access.

I have a combo box called cboSymbol. I want to allow a user to select a symbol and then display the corresponding description of that symbol in a text box.

I think I need a way of executing an SQL statement that looks something like this:

desString = "SELECT Description from Assets WHERE Symbol = " & cboSymbol.Value & ";"

So the answer to the query is returned and stored as a string in desString. I can then set the value of the text box to display the returned query:

txtBoxDescription.Value = desString

Does anyone know how to execute a SQL command and store the returned value as a string, or know a different way of accomplishing this?

Thanks!

[NeoPa]

You need to set the ControlSource of the TextBox to point to the ComboBox required.

[ADezii]

Hi there.

This is probably an easy task, but I am new to Access.

I have a combo box called cboSymbol. I want to allow a user to select a symbol and then display the corresponding description of that symbol in a text box.

I think I need a way of executing an SQL statement that looks something like this:

desString = "SELECT Description from Assets WHERE Symbol = " & cboSymbol.Value & ";"

So the answer to the query is returned and stored as a string in desString. I can then set the value of the text box to display the returned query:

txtBoxDescription.Value = desString

Does anyone know how to execute a SQL command and store the returned value as a string, or know a different way of accomplishing this?

Thanks!

'NeoPa's approach uses the Pull Method to populate the Text Box. You can
'also 'Push' the value into the Text Box via:

'In the AfterUpdate Event of the Combo Box

Me![txtBoxDescription] = DLookup("[Description]", "Assets", "[Symbol] = '" & _
Me![cboSymbol] & "'")

[billelev]

Very nice. Thanks guys. I implemented the second method.

With the first method, I was able to link a Event Procedure to the text box [cboSymbol].[AfterUpdate]. To then update the text box, what would I do? I tried keeping the code that set the text directly...

Private Sub cboSymbol_AfterUpdate()
    txtBoxDescription.Value = DLookup("[Description]", "Assets", _ 
"[Symbol] = '" & Me![cboSymbol] & "'")
End Sub

...but I got the following error message...

"You can't assign a value to this object."

[NeoPa]

You haven't included the & before the _.