PPT Difficulties

[Thompyt]

I am starting out with the following code for PPT interface. I get it to open, display a title and a field, but it makes a new slide each time. I can change the while next loop so that only the Field changes and 1 slide is made. BUT the field swaps until it gets to EOF. I would like it to insert a new line for each record. I would like to have 5 fields to insert.

Title
Levels
CR_No
Change Requested


Status

Sub cmdPPT_Click()
    Dim db As Database, rs As Recordset
    Dim ppObj As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    
    On Error GoTo err_cmdOLEPowerPoint
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Copy of Weekly Closed", dbOpenDynaset)
    
    Set ppObj = New PowerPoint.Application
    Set ppPres = ppObj.Presentations.Add
     
    With ppPres
        With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
                .Shapes(1).TextFrame.TextRange.Text = CStr(rs.Fields("[Levels]").Value)
                .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 30
        While Not rs.EOF
                .Shapes(2).TextFrame.TextRange.Text = CStr(rs.Fields("[Closed]").Value)
           rs.MoveNext
        Wend
    Exit Sub
err_cmdOLEPowerPoint:
    MsgBox Err.Number & " " & Err.Description
    End With
    End With
End Sub

I am trying to make the below example on PPT:

[rpeare]

[QUOTE=Thompyt;266845]I am starting out with the following code for PPT interface. I get it to open, display a title and a field, but it makes a new slide each time. I can change the while next loop so that only the Field changes and 1 slide is made. BUT the field swaps until it gets to EOF. I would like it to insert a new line for each record. I would like to have 5 fields to insert.

Title
Levels
CR_No
Change Requested
Status

Sub cmdPPT_Click()
    Dim db As Database, rs As Recordset
    Dim ppObj As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    
    On Error GoTo err_cmdOLEPowerPoint
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Copy of Weekly Closed", dbOpenDynaset)
    
    Set ppObj = New PowerPoint.Application
    Set ppPres = ppObj.Presentations.Add
     
    With ppPres
        With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
                .Shapes(1).TextFrame.TextRange.Text = CStr(rs.Fields("[Levels]").Value)
                .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 30
                do While rs.eof <> true
                     .Shapes(2).TextFrame.TextRange.Text = CStr(rs.Fields("[Closed]").Value)
                     rs.MoveNext
                loop
        Wend
    wend
    Exit Sub
err_cmdOLEPowerPoint:
    MsgBox Err.Number & " " & Err.Description
    End With
    End With
End Sub

I don't see how you're looping in your recordset currently you can try the above code or in your recordset loop use something like

debug.print rs!closed

to see if your code is actually cycling through all the records.

[rpeare]

note, it also looks like you're not closing your loops properly

You have two WITH statements and a DO loop and you only have one Wend statement so I'm not sure how this code would run at all without bombing out.