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.
İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#1
dosya.rar
(Dosya Boyutu: 62,1 KB | İndirme Sayısı: 6)
