Kodu aşağıdaki şekilde değiştiriniz.. İyi çalışmalar.
Kod:
Option Explicit
Option Compare Database
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Sub Komut111_Click()
ShellExecute 0, "Open", pdf, vbNullString, "C:\", SW_SHOWNORMAL
End Sub