[Tasos]

Στην κορυφή της λειτουργικής μονάδας δεν έχεις βάλει τον παρακάτω κώδικα:

Option Compare Database
Option Explicit

Private Const SW_SHOWNORMAL = 1

Private Declare Function ShellExecute _
        Lib "shell32.dll" Alias _
        "ShellExecuteA" ( _
        ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Ο κώδικας αυτός υπάρχει στον παρακάτω σύνδεσμο: http://www.ms-office.gr/forum/11189-post2.html

Στον κώδικα που αντιστοιχεί στο κουμπί χρησιμοποίησε:

Private Sub Εντολή152_Click()
    Dim strFile As String
    If Not IsNull(Me.Protokollo) Then
        strFile = "C:\Office Files\Pdfiles2013\" & Me.Protokollo & ".pdf"
        If Dir(strFile, vbDirectory) <> vbNullString Then
            ShellExecute 0, "open", strFile, "", "C:\", SW_SHOWNORMAL
        Else
            MsgBox "File not Found!"
        End If
    Else
        MsgBox "Το πεδίο είναι κενό"
    End If
End Sub

Καλή συνέχεια!

Τάσος