how to run SQL query with VBA

[questionit]

I havea combo box. If i select any value , i want to do the following.

Run a sql query that would fetch a value from a table

For example:
If Combo2.Value = "1"

getResult = Run sql query

[JKing]

You can use the DLookup function.

getResult = DLookup("[fieldName]", "YourTable", "[fieldID] = " & Me.ComboBox1)
 

[questionit]

Hi

i am getting runtime error: First of all, in code line below, can you tell me what does fieldID do - i mean is it refering to field in the table - same as the fieldName? "list" is name of my table

getResult = DLookup("[fieldName]", "list", "[fieldID] = " & Me.Combo0)

please clarify

You can use the DLookup function.

getResult = DLookup("[fieldName]", "YourTable", "[fieldID] = " & Me.ComboBox1)
 

[JKing]

fieldName is the value you want to look up and fieldID would be the primary key for that row. The third parameter acts as your where criteria so you're not limited to only searching on primary keys.

Let's say I have a table called tblFruit.
In that table is the following
fruitID------fruitName------fruitColor
....1.................Apple................Red
....2................Orange............Orange
....3................Banana............Yellow

getResult = Dlookup("[fruitName]", "tblFruit", "[fruitID] = " & Combo0)
 

If Combo0 = 1 getResult would be "Apple"

For more examples or a more indepth look at Dlookup just open up Visual Basic Help. To do this you simply put the cursor on the word Dlookup in your code and hit F1 to bring up the helpfile for that keyword.

[abolos]

I havea combo box. If i select any value , i want to do the following.

Run a sql query that would fetch a value from a table

For example:
If Combo2.Value = "1"

getResult = Run sql query

You may use:
Form.RecordSource = "select stname from tblnameage where stage = " & Combo0.value
Me.Requery

But first open the form in a design mode and put in Data | Record Source: SELECT [tblNameAge].[stName], [tblNameAge].[stAge] FROM tblNameAge;