Just getting one return, want multiple

[2wistd]

So I am exporting my data to PowerPoint. All is working well except I am stuck on probably a simple issue. :banghead:

Dim pttestdue As String
pttestdue = DLookup("persName", "Top 5 PT Status")
Dim ptmonth As String
ptmonth = Format(Date, "mmmm")

    wnd.Selection.SlideRange.Shapes("pttestduebox").Select
    wnd.Selection.TextRange.Text = pttestdue
    wnd.Selection.SlideRange.Shapes("ptmonth").Select
    wnd.Selection.TextRange.Text = ptmonth

Are two snippets of the code I'm using. The "Top 5 PT status" is already a query that have the 5 records I need. This code only gives me one record. How can I provide multiple records rather than just the top record? Can this be done with one line of code or do I have to pull each record up individually?

 

[plog]

You should load all the records from that query into a recordset, then loop through the record set to access the values of each. Here's a link:

http://allenbrowne.com/ser-29.html