Try:
Set PowerpointApp = GetObject("""" & strDocName & """")
or
Set PowerpointApp = GetObject(Chr$(34) & strDocName & Chr$(34))
What you've got is telling Access to open a presentation named, literally,
"& strDocName &", which isn't what you want.

Signature
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)
> I'm trying to open an powerpoint presentation with this code:
> Set PowerpointApp = GetObject("& strDocName &")
[quoted text clipped - 5 lines]
>
> jokobe