Merhaba,
Ben Access 2016 Türkçe kullaniyorum. Form üzerinde bir buton ekledim. Butona basınca açık olan "c:\bbb.pdf" dosyasını kapatmasını istiyorum.
(not:Bir çok kod araştırdım denedim olmadı, Access kütüphanesinde neleri aktif etmeliyim?, Public Function dosyaKapat()
Workbooks("c:\bbb.pdf").Close SaveChanges:=False
End Function)

Saygılarımla,
teşekkür ederim.

Merhaba sn ssdestekk,
belirtmiş olduğunuz işlem sıradan bir işlem olmadığı için bazı fonksiyonlar tanıtmanız gerekmektedir. Aşağıdaki kodu Uygulamanız içerisinde boş bir modül oluşturup kopyalayınız.
Ardından nasıl kullanılacağını açıklayacağım.



PDF yi kapatma butonunuzun Click olayına aşağıdaki ifadeyi yazın.



Eğer sorun olursa tekrar bakarım.

(15-11-2018, 14:34)onur_can demiş ki: Merhaba sn ssdestekk,
belirtmiş olduğunuz işlem sıradan bir işlem olmadığı için bazı fonksiyonlar tanıtmanız gerekmektedir. Aşağıdaki kodu Uygulamanız içerisinde boş bir modül oluşturup kopyalayınız.
Ardından nasıl kullanılacağını açıklayacağım.

Visual Basic

Private Const WM_CLOSE = &H10
Private Const INFINITE = &HFFFFFFFF
 
Private Declare Function apiPostMessage _
    Lib "user32" Alias "PostMessageA" _
    (ByVal Hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
    As Long
 
Private Declare Function apiFindWindow _
    Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassname As String, _
    ByVal lpWindowName As String) _
    As Long
 
Private Declare Function apiWaitForSingleObject _
    Lib "kernel32" Alias "WaitForSingleObject" _
    (ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) _
    As Long
 
Private Declare Function apiIsWindow _
    Lib "user32" Alias "IsWindow" _
    (ByVal Hwnd As Long) _
    As Long
 
Private Declare Function apiGetWindowThreadProcessId _
    Lib "user32" Alias "GetWindowThreadProcessId" _
    (ByVal Hwnd As Long, _
    lpdwProcessID As Long) _
    As Long
 
Function UygulamaKapat(lpClassname As String) As Boolean
Dim lngRet As Long, Hwnd As Long, pID As Long
 
    Hwnd = apiFindWindow(lpClassname, vbNullString)
    If (Hwnd) Then
        lngRet = apiPostMessage(Hwnd, WM_CLOSE, 0, ByVal 0&)
        Call apiGetWindowThreadProcessId(Hwnd, pID)
        Call apiWaitForSingleObject(pID, INFINITE)
        fCloseApp = Not (apiIsWindow(Hwnd) = 0)
    End If
End Function

PDF yi kapatma butonunuzun Click olayına aşağıdaki ifadeyi yazın.

Visual Basic

UygulamaKapat("AcrobatSDIWindow")

Eğer sorun olursa tekrar bakarım.

-------------------------

MERHABA, DENEDİM OLMADI.
DOSYAYI EKLEYIP GÖNDRIYORUM. DOSYA ÜZERİNDE YAPIP DENEYEBİLİRSİN

---

MERHABA, DENEDİM OLMADI.
DOSYAYI EKLEYIP GÖNDRIYORUM. DOSYA ÜZERİNDE YAPIP DENEYEBİLİRSİN

Merhaba,
verdiğiniz kodu sonunda çalıştırabildim, benim hatam. Teşekkür ederim.

Fakat birden fazla PDF dosya açık ise soru soruyor hangisini kapatalım diye, soru sormadan tümü PDF dosyaları kapatsın istiyorum, bunun için nasıl bir kod ilave etmek gerekir ?

Bir kaç tane PDF dosyası açın daha sonra bir tanesini kapatın bu esnada size Her zaman tüm sekmeleri kapat penceresi çıkacaktır. Burada onay kutusunu işaretleyin. kod içinde ayrıca bir süzenleme yapmanıza gerek yok. Bundan sonra kod çalıştığında tüm PDF ler kapanacaktır.

dosyadaki hatalar giderildi