How to create a code for a button in order to show the results of a querry?

[Iridaki]

Hello, i am new with access vba, and i have a certain question about a specific code.
I want to create a list of buttons on a form (or one button),that each one represent a pollutant of the atmosfere.This is the easy part.Now i want to create a code, that by clicking on one of these pollutants (aka on one of these buttons)access creates a box on the same form which shows the results that correspond to each pollutant.
The results are querries for each pollutant, and by clicking on NO2 for example it will show the results from the NO2 querry on a box .
Here is the coding i have done so far, which basically is only the action when clicking on the pollutants button that opens the querry.


Private Sub button17_GotFocus()
DoCmd.OpenQuery "Metrics CO"
End Sub

Private Sub button18_GotFocus()
DoCmd.OpenQuery "Metrics NO2"
End Sub

Private Sub button19_GotFocus()
DoCmd.OpenQuery "Metrics NOX"
End Sub

Private Sub button20_GotFocus()
DoCmd.OpenQuery "Metrics O3"
End Sub

I dont want access to open the querries but display instead a box with the results from the querries.

[Stewart Ross]

(1) Place an unbound textbox on your form (that is, one whose Control Source property is blank).

(2) Rename this unbound textbox to something meaningful, such as txtResult

(3) In place of the DoCmd.OpenQuery statements set the textbox value to the result of a DLookup on each query. You will need to provide the name of the field from each query that contains the result, which you don't tell us in your post. I will call it QueryResult below, but you must supply the correct name yourself in the DLookup statement or it will not work. Also, it is normal to place such code in the On Click event of a button, not the Got Focus event.

(4) Give the label of the textbox a suitable name such as lblResult and set its initial value to, say, "Result" beside the textbox.

(5) Change the label's Caption property in each of the OnClick events to give the user a meaningful clue as to what result is being shown:

Private Sub button17_OnClick()
  Me!txtResult = DLookup("[QueryResult]", "[Metrics CO]")
  Me!lblResult.Caption = "CO Result"
End Sub
 
Private Sub button18_OnClick()
  Me!txtResult = DLookup("[QueryResult]", "[Metrics NO2]")
  Me!lblResult = "NO2 Result"
End Sub
 
...

Clearly you need to ensure that the names you use in your own versions match the names you give to the textbox, its label, and the DLookup elements or the above example may not compile at all, or may give an immediate run-time error if the DLookup can't find what it is being asked to look up.

-Stewart