Kod:
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\msaccess.EXE"
Call Shell(stAppName & " " & CurrentProject.FullName & " /runtime", 1)

Yardımlarınızı bekliyorum. Ekte sorunlu örnek vardır.
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\msaccess.EXE"
Call Shell(stAppName & " " & CurrentProject.FullName & " /runtime", 1)