PPT Presentation generated in access is not updated

[easycode]

Hello all,

I have developed an app. to generate a presentation with 30 presentations in access, all of the are charts.
If i open a form in access of chart 3 it display the correct result, but if i display the slide 3 in the ppt generated by access i get the chart of last month is not updating the info and i dont know why because what i do is copy and paste in access to power point (automated process)

Here is the code

Any help is appreciated


Do While Not rchart.EOF'open the table with all charts info)
fform = rchart![Chartform]
ftitle = rchart![Charttitle]
fname = rchart![Chartname]
fslidenumber = fslidenumber + 1
Set ppSlide = .Slides.Add(fslidenumber, ppLayoutTitleOnly)
With ppSlide
'From Access
DoCmd.OpenForm fform
Forms(fform).Controls(fname).SetFocus
DoCmd.RunCommand acCmdCopy

'To PP
.Shapes.Paste
End With
rchart.MoveNext
Loop