açılır kutudan seçtiğimiz döneme ait duyuruya göre
klasörde bulunun o döneme ait pdf dosyasını açtırmak istiyorum

Sn karaayhan, öncelikle açılan kutunun Güncelleştirme Sonrası olay yordamına aşağıdaki kodu ekleyin.
Daha sonra komutu çalıştırabilmek için bir modüle ihtiyacımız var. Aşağıdaki kodu yeni bir modül oluşturup ekleyin.
Yalnız şunuda belirteyim DUYURU klasörünüzün içindeki tüm dosyalarınız 2020 Yılını gösteriyor. Muhtemelen kopyalayıp yapıştırmışsınız. Onun için hep aynı dosyayı açıyor demeyin.
Eğer dosya açma hatası ile karşılaşırsanız muhtemelen Acrobat Readerin yolu farklıdır. Bu yolu eklemiş olduğunuz modül üzerinden düzeltebilirsiniz.

sayın onurcan hocam, ellerinize sağlık kodları düzelttim çalıştı harika bir örnek olmuş

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

(21/07/2024, 22:52)onur_can yazdı: Sn karaayhan, öncelikle açılan kutunun Güncelleştirme Sonrası olay yordamına aşağıdaki kodu ekleyin.

Kod:

PDFAdi = CurrentProject.Path & "\DUYURU\" & Forms!Form1!duyurutarih & ".pdf"
Call PDFDosyaAc

Daha sonra komutu çalıştırabilmek için bir modüle ihtiyacımız var. Aşağıdaki kodu yeni bir modül oluşturup ekleyin.

Kod:

Public PDFAdi As String
Public Sub PDFDosyaAc()
    If Len(Dir("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe", vbDirectory)) > 0 Then
        Call Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
    End If
        If Len(Dir("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe", vbDirectory)) > 0 Then
            Call Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
        End If
            If Len(Dir("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbDirectory)) > 0 Then
                Call Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
            End If
                If Len(Dir("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbDirectory)) > 0 Then
                    Call Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe /AZoom=100=OpenActions " & PDFAdi, vbNormalFocus)
                End If
End Sub

Yalnız şunuda belirteyim DUYURU klasörünüzün içindeki tüm dosyalarınız 2020 Yılını gösteriyor. Muhtemelen kopyalayıp  yapıştırmışsınız. Onun için hep aynı dosyayı açıyor demeyin.
Eğer dosya açma hatası ile karşılaşırsanız muhtemelen Acrobat Readerin yolu farklıdır. Bu yolu eklemiş olduğunuz modül üzerinden düzeltebilirsiniz. Ayrıca yakın zamanda çok önemli bir bulgu elde ettim ve bunu sizinle paylaşmadan edemeyeceğim çünkü birçok kişi bana pdf dosyalarıyla nasıl çalıştığımı sordu. Dosya bütünlüğünü ve kalitesini kaybetmeden diğer formatlara dönüştürme de dahil olmak üzere pdf ile çalışmak için harika bir hizmet olan https://pdfguru.com/tr   bulacak kadar şanslıydım. Bu yüzden sizin için faydalı olabilir.

Katılıyorum, ben de kullanıyorum.