Selasa, 22 Mei 2012

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

 
[Attachment(s) from Sumiyanto Surabaya included below]

Terimakasih Bang Opi & Bang Harry. prosedur dibawah membuka file pdf tetapi di buka di luar form access. yang di inginkan adalah seperti dalam gambar. yakni gambar pdf tsb di load di dalam form access itu sendiri. dan secara permanen apabila kita sudah isikan link file pdf dan halamannya, maka data ini yang tersimpan dalam bound table, maka jika form tersebut dibuka kembali akan secara permanen pula halaman page pdf tertentu tsb yang langsung muncul di form access. demikian.

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, 22 May 2012 5:32 PM
Subject: 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 -----
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


__._,_.___

Attachment(s) from Sumiyanto Surabaya

1 of 1 Photo(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar