Can't get text string to recognize query result

[J. Keggerlord]

Private Sub cmdConfirm_Click()

Dim strMsg As String

If Me.cboApproval = "Approved" Then
strMsg = "Your meeting request has been approved." & (Chr(13))
strMsg = strMsg & "Meeting Date: " & Format([txtFTDate], "mm/dd/yyyy") &
(Chr(13))
strMsg = strMsg & "Meeting Start: " & Format([txtFTStart], "h:mm AMPM") &
(Chr(13))
strMsg = strMsg & "Meeting End: " & Format([txtFTEnd], "h:mm AMPM") &
(Chr(13))
strMsg = strMsg & "Meeting Location: " & [txtFTBldg] & "." & [txtFTRoom] &
(Chr(13))
strMsg = strMsg & "Your Facilitator will be: " &
queries.[qryPersonName].[FirstName] & (Chr(13))
Else
strMsg = "We're sorry, but your meeting request was disapproved for the
following reason: " & (Chr(13)) & [DisapCode] & (Chr(13))
End If

Where my code falls apart is trying to get the value from
"queries.[qryPersonName].[FirstName]" to provide me with a return value. Did
I completely screw up the formatting on this one? The query parameter is
from a combo box on the form, if that makes any difference. The rest of the
code works fine in debug.print mode.

 

[John W. Vinson]

Where my code falls apart is trying to get the value from
"queries.[qryPersonName].[FirstName]" to provide me with a return value. Did
I completely screw up the formatting on this one?

No, just the syntax. You can't refer to the Queries collection in this way.
Try

DLookUp("[FirstName]", "[qryPersonName]", <optional criteria>)

The criteria should be a String value which evaluates to a valid SQL WHERE
clause without the word WHERE if qryPersonName returns multiple records.

John W. Vinson [MVP]

 

[John W. Vinson]

strMsg = "Your meeting request has been approved." & (Chr(13))

Just another suggestion - use the VBA constant vbCrLf instead of Chr(13).
That's JUST a carriage return, you need both a carriage return and a linefeed.

John W. Vinson [MVP]

 

[J. Keggerlord]

Perfect on both counts! Thank you very much. Worked like a champ!