ACCESS FEED: Re: [belajar-access] mengelola file pdf di form access

Selasa, 22 Mei 2012

Re: [belajar-access] mengelola file pdf di form access

Dear mas Sumiyanto, kalau saya dikantor, menggunakan Adobe Reader secara langsung, tidak via web. Fungsinya:

Private Sub Text42_Click()
    DoCmd.RunCommand acCmdRefreshPage
    If IsNull(Me!Text42) Then Exit Sub
    Dim Fl As Long
    Fl = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & Me!Text42, vbNormalFocus)
End Sub

Prosedure diatas membuka tidak hanya file PDF, tapi seluruh file gambar, video, dokumen, excel, dll yg terdaftar di PC kita.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

----- Original Message -----

From: Sumiyanto Surabaya

To: belajar-access@yahoogroups.com

Sent: Tuesday, May 22, 2012 2:55 PM

Subject: [belajar-access] mengelola file pdf di form access

Dear Master,

1. Mohon pencerahan bagaimana mengelola data paperless .pdf file agar bisa di load di form access dengan menggunakan ActiveX Adobe PDF Reader ataukah menggunakan Micosoft Web Browser.

2. membuat button command agar pindah page fiel pdf tersebut atau ganti/pindah file .pdf yang lain.

beberapa code sbb:

'---- membuka di form ms web browser/bukan adobe reader----
If Not IsNull(Me.Filename) Then
With Me.WebBrowser0
.Navigate Me.Filename
End With
End If

'---- membuka di adobe reader diluar form access ----
Dim stAppName As String
Dim MyPath As String
Dim Fname As String

MyPath = "D:\BELAJAR\New Folder"
Fname = Me.Form.Filename & ".pdf"
MsgBox (Me.Form.Filename)
'Fname = Fname
MsgBox (Fname)

stAppName = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MyPath & Fname
strMsg = "Test Output" & Chr(13) & MyPath & Chr(13) & Fname
MsgBox (strMsg)
Call Shell(stAppName, 1)

Thank you | Terima Kasih | Matur Suksema

Sumiyanto