aşağıdaki kodu dener misiniz?

Dim shell_app As Object

Dim pdfYol As String

pdfYol = CurrentProject.Path & "\DUYURU\" & duyurutarih.Value & ".pdf"

'Ref. için Shell32.dll kütüphanesine bakın.

Set shell_app = CreateObject("Shell.Application")

Debug.Print pdfYol

shell_app.Open "" & pdfYol

 

Set shell_app = Nothing