Access - link - pdf

napravila sam u tabeli polje hyperlink.
Kad postavim bilo koji office program klikom na njega otvori se ali ne i pdf.
Posedujem acrobat reader 7. Samo se na blic otvori i odmah zatvori.
Kako da rešim ovaj problem...
Pokušala sam na drugom računaru gde je acrobat reader 6 i tu funkcioniše...


heelp

Imao sam slican problem, dok nisam shvatio da imam instalirana dva (koliko se secam) Adobe Acrobat 6 i Adobe Acrobat 7 pro, tek kada sam ih deinstalirao oba pa instalirao samo Adobe Acrobat Reader (8 cini mi se) mogao sam da pozovem preko linka kog opisujes i PDF fajl. Procitao sam da imas samo Adobe Acrobat Reader 7. Hteo sam da ti prenesem moje iskustvo i dam pravac za razmisljanje.

pravo da ti kažem nisam kući sad ali mislim da mi je samo jedan reader instaliran.

Možda možeš da pokušaš i old fashion way :

Private Sub StartPDF(PDFFile as String)
Dim I As Byte
Dim TPath As String
Dim APath As String
For I = 6 To 15 ' Treba misliti i na budućnost
TPath = "C:\Program Files\Adobe\Reader " & I & ".0\Reader\AcroRd32.exe"
If Dir(TPath) <> "" Then APath = TPath
Next I
Shell APath & " """ & PDFFile & """", vbMaximizedFocus
End Sub

Potpis

Ozbiljan i odgovoran mladić

a kako da primenim to u programu. tj, kad će da se aktivira to?

OK, onda ću malo modifikovati kod. Recimo da imaš Text Box na formi koje se zove PDFFile koje sadrži putanju do PDF fajla. U dizajnu forme klikneš na properties za to polje, izabereš Events, zatim klikneš na tri tačkice pored Click i unutar te procedure (Private Sub PDFFile_Click()) prekopiraš sledeće linije:

Dim I As Byte
Dim TPath As String
Dim APath As String
For I = 6 To 15 ' Treba misliti i na budućnost
TPath = "C:\Program Files\Adobe\Reader " & I & ".0\Reader\AcroRd32.exe"
If Dir(TPath) <> "" Then APath = TPath
Next I
Shell APath & " """ & PDFFile & """", vbMaximizedFocus

Potpis

Ozbiljan i odgovoran mladić

ok, probaću a reci mi da li će raditi to polje ako bude neki link u wordu ili excellu?

Uh, ono prvo što sam pisao nije baš najbolja metoda, hteo sam da ispadnem pametan (a retko u tome uspevam ) nudeći nekonvencionalno rešenje. Generalno možeš koristiti Windows API da startuješ program koji je predviđen kao default za određeni tip fajla. Recimo da se Text Box koji sadrži putanju do fajla koji želiš da otvoriš zove Putanja

' Kod iskopiraš na samom vrhu u kodu forme
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
Const SHOWMAXIMIZED = 3

Private Sub Putanja_Click
ShellExecute Me.hwnd, "open", Putanja, vbNullString, vbNullString, SW_SHOWMAXIMIZED
End Sub

Eto, sada će windows otvoriti default program za bilo koji tip podataka. Bilo je moguće malo modifikovati onaj kod i prilagoditi ga da otvara office, ali što da komplikujemo za džabe.

Potpis

Ozbiljan i odgovoran mladić

hvala na trudu, probaću ovu varijantu

@ domaci_a_nas

Molim te dodaj kod iz svog zadnjeg posta u Top temu Access Baza Znanja, opiši postupak budućim korisnicima za upotrebu i eventualno prokomentariši korake koda. Cenim da će mnogima biti interesantno jedno ovako uneverzalno rešenje.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

da li je neverovatno ili ne dešava se isto kao i pre. Otvori se acrobat reader i odmah se ugasi.
Interesantno je i to da kad u excelu napravi link ka pdf-u on se normalno otvori.
Šta bi to moglo da bude u odnosu između accessa i pdf-a odnosno acrobat readera???

Jesi li probala obe varijante koje sam poslao...? Ako jesi onda... Reinstaliraj Acrobat ?

Potpis

Ozbiljan i odgovoran mladić

pokušala i ne može.
Instaliraću verziju 6..... pa cemo da vidimo

Najnovija verzija Acrobat Readera je 8 i sa njom kod sigurno radi. Možda da prvo uvedeš proveru da li fajl postoji, sasvim dobro u tu svrhu služi
If Dir(Putanja) <> "" Then ShellExecute...

Potpis

Ozbiljan i odgovoran mladić