Phantom Records Even After Delete

[CCHDGeek]

I have a client-server DB, main tables in back-end, forms in front-end. The front-end is on each person's individual PC. I'm using the following code to declare a recordset and an instance of Powerpoint.

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * From WEEKLY_UPDATE_TABLE ORDER BY WEEKLY_UPDATE_TABLE.ENTRY_DATE DESC , WEEKLY_UPDATE_TABLE.ENTRY_TIME", dbOpenDynaset)
rs.Requery
 
Set ppt = New PowerPoint.Application
ppt.Activate
Set Presentation = ppt.Presentations.Open("C:\WeeklyStatReport.pot")

Then I am assigning records in the table to objects on the Powerpoint.

For some reason, there are records that have been deleted from the tables that are still being printed on the presentation. Does anyone have any idea of why this might be happening? I thought I had fixed the problem, but they are back.

Thanks for any help.
CC

[NeoPa]

Having added [ CODE ] tags to make your code legible (please remember to use them in future), I still couldn't see any connection in the code between the recordset and the presentation.

You also don't say when the deletions are being done. Is this while the presentation is open?

[CCHDGeek]

The deletions could potentially happen at anytime and the same thing happens. My apologies regarding the code tags, I will remember that in the future.

I'm not sure if I understand your question regardin the connection, but I am using lines like:

 
With ppt
    With Presentation
.Slides(CurrentSlide).Shapes(4).Table.Cell(TestNum, 1).Shape.TextFrame.TextRange.Text = rs![MER_DEPT_NBR]
    End with
End with
 
 

to add the text to the tables in the presentation. Is this helpful?

[NeoPa]

I'm afraid I can be of little help on the PowerPoint side of things (I don't even use it as an operator, let alone code in it).

As general advice though, I would look at dumping a list of the contents of your recordset to the Immediate Pane (Call Debug.Print(...)) to determine if the problem lies on the recordset side of things or the PowerPoint side.