[ bdrago @ 09.03.2007. 08:17 ] @
Pozdravljam clanove foruma i imam jedno pitanje.

Objasnjenje:
Ako imamo folder C:\Propisi i u njemu se nalazi baza podataka (npr. OtvoriPDF koja je data u primjeru) i svi dokumenti u PDF formatu koji su upisani u bazu (P17.20.pdf, P17.21.pdf, P17.22.pdf itd)

Potreban mi je kod za dugme OTVORI DOKUMENT koji ce da procita InternuOznaku tekuceg zapisa i da otvori taj dokument na ekranu.
I baza i dokumenti se nalaze u folderu C:\Propisi

Ako neko ima vremena da to uradi na prikacenom primjeru, unaprijed zahvaljujem!

Pozdrav
[ gordon_beneth @ 10.03.2007. 11:15 ] @
Zašto ne bi dodao još jedno polje tipa "OLE Object" u tabelu, onda u njega direktno unosiš link ka pdf-u iz forma.
Posle jednostavno otvaraš pdf dvoklikom.
[ bdrago @ 12.03.2007. 06:16 ] @
Znam, mogao bih da stavim polje Hyperlink i da preko njega pozivam dokument ali uvijek tezimo za onim sto nemamo, tj. cini mi se da bi preko dugmeta to bilo bolje. Mogla bi se ubaciti i poruka da trazenog dokumenta nema u folderu ( ako ga nema).
Pozdrav.
[ gordon_beneth @ 12.03.2007. 22:26 ] @
Možda bi moglo sledeće:
pomoću Call Shell("putanja",1) komande možeš da pokrećeš programe iz Accessa.
Napraviš .bat fajl u kome će pisati samo "%1" (bez navodnika) nazoveš ga recimo run.bat i sačuvaš u C:\Propisi
Sad dugmetu dodeliš sledeći kod:
Code:

Function OtvoriPDF()

Dim root As String
Dim file As String
Dim path As String

root = "C:\Propisi\"
file = Forms!frmPropisi.InternaOznaka
path = root & "run.bat " & root & file & ".pdf"
    Call Shell(path, 1)


End Function 


Ja sam ovo probao kod mene i radi, samo je problem što imena .pdf fajlova ne mogu da imaju razmak, možda neko ko se bolje razume u .bat komande može da pomogne. Verovatno i kod može da bude bolji, a možda može i bez .bat fajla, tj da se odmah poziva Adobe Reader sa odgovarajućim argumentom, odnosno putanjom ka pdf-u.
[ srdjan ub @ 12.03.2007. 23:04 ] @
Ovo ti je poslao ZXZ:

Code:

Const MAX_FILENAME_LEN = 260
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

'OTVARANJE FAJLOVA SA IZVRSNIM PROGRAMOM


Function OtvoriFajl(SFile)
Dim Izvrsni As String
Dim i As Integer, s2 As String



If Dir(SFile) = "" Or SFile = "" Then
MsgBox "File not found!", vbCritical
Exit Function
End If

s2 = String(MAX_FILENAME_LEN, 32)

i = FindExecutable(SFile, vbNullString, s2)
If i > 32 Then
Izvrsni = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
MsgBox "Nije povezano"
End If
Shell Izvrsni & " " & SFile
End Function



Citat:
Ako to radis na neki taster (comandno dugme) onda na on click napises ovo.

OtvoriFajl(ImeFajlaSaputanjom_do_njega)

Ako nemas putanju imas i funkciju Db_Putanja koja cita putanju do baze pa vjerovatno su i slike tu.

by ZXZ
[ bdrago @ 13.03.2007. 06:18 ] @
Hvala na odgovorima!
Probacu da to primjenim.