How do I write an expression for SetTempVar to = the value of a field in an open qry?

[Paul Howarth]

In my macro....

First I OpenQuery
Then I GoToRecord (First)
Next, I would like to set the Expression of SetTempVar to equal the value of a field in the first record of the open query... but I am stumped on how to do this.

[ADezii]

Is your request to set the Value of a Variable to a specific Field in the 1st Record of a Query?

[Paul Howarth]

Yes. For example, the field value may be 99991. I want to set the Value of the Variable to 99991.

First I OpenQuery
Then I GoToRecord (First)
Next, I would like to set the Expression of SetTempVar to equal the value of a field in the first record of the open query... but I am stumped on how to do this.

[ADezii]

Dim strQueryName As String
Dim strFieldName As String
Dim rst As DAO.Recordset
Dim varRetVal As Variant
 
'*************** Make your own substitutions here ***************
strQueryName = "qryOrderDetails"
strFieldName = "OrderID"
'****************************************************************
 
Set rst = CurrentDb.OpenRecordset(strQueryName, dbOpenSnapshot)
 
'Make sure that there is at least 1 Record
If Not rst.BOF And Not rst.EOF Then
  varRetVal = rst(strFieldName)
  Debug.Print "The Value of the [" & strFieldName & "] Field in the 1st Record " & _
            "of the Query " & strQueryName & " is " & varRetVal & "."
End If