Capturing Recordset Values in Project 1

[jcg6]

I would like to open a recordest (from a table) and use those values in a variable string. I am using a select * statement from my table to open my recordset.

How can I capture the values of that recordset into a variable? Any info would be much appreciated. Thanks

 

[cmmrfrds]

The GetString method of ADO.

Dim cnn As New adodb.Connection
Dim rst As New adodb.Recordset
Dim mySQL as string
Dim myVar as Variant

cnn.Open CurrentProject.Connection

mySQL = "select * from mytable"

rst.Open mySQL, cnn, 3,3

if not rst.EOF Then
myVar = rst.GetString
else
msgbox "no records"
Set rst = Nothing
Set cnn = Nothing
Exit sub or function whatever?
end if

rst.close
cnn.close
Set rst = Nothing
Set cnn = Nothing

 

[jcg6]

Thanks for your help on this...I have one additional question for my full solution...

What I am doing is using the SendObject function to send a report to a list of emails - from the table I was referencing earlier.

I want to be able to send a specific page of the report based on an ID Number.

SO, if Employee1 was entering data in a form and clicked send email - it would only send a report for that particular record, not all of the records.

Is there an easy way to do this? Thanks again for your assistance.

 

[jcg6]

Never mind - I figured it out. Thanks for your help with my original question.

 

[cmmrfrds]

You are welcome. Great that you figured out the 2nd part.