handle message when automatically opening other app

[camg12]

I am trying to automate the process of getting data from Access to PowerPoint. I am using the following code to open PowerPoint. When PowerPoint opens though I get a warning message. How do I add a function into my code to select the "Update" button?

Private Sub CmdOpenPowerPoint_Click()
'WillR - opens the specified Spreadsheet
Dim PPApp As PowerPoint.Application
Dim PPSlide As PowerPoint.Slide
Set PPApp = New PowerPoint.Application
With PPApp
.Visible = True
Set PPSlide = .Presentations.Open("test.pptx", , False)
End With
End Sub

 

[camg12]

I ended up using the SendKey function and that worked.

 

[vbaInet]

Investigate the CreateObject function. I think it's more reliable.