ACCESS FEED: Re: [MS_AccessPros] Re: Working with PDFS in Access 2013

Kamis, 29 Mei 2014

Re: [MS_AccessPros] Re: Working with PDFS in Access 2013

Art - replace the image control with an OLEBound control. Keep the same name so you have less work to do.

Change this line where ever it exists:

Me.imgMember.Picture = strPath

to this:

Me.OLEBound1.SourceDoc = strPath

Me.OLEBound1.Action = acOLECreateLink

Also, if you are using a common dialog to get the path, change the filter/extension to PDF

With New ComDlg

' Don't allow multiple files

.AllowMultiSelect = False

' Set the title of the dialog

.DialogTitle = "Locate Member picture File"

' Set the default directory

.Directory = CurrentProject.Path & "\Pictures\"

' .. and file extension

.Extension = "pdf"

' .. but show all PDF files just in case

.Filter = "PDF Files (.pdf)|*.pdf"

' Tell the common dialog that the file and path must exist

.ExistFlags = FileMustExist + PathMustExist

If .ShowOpen Then

strPath = .FileName

Else

Exit Sub

End If

End With

Regards,

Bill Mosca

From: "Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>
To: "MS Access Professionals" <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, May 29, 2014 11:06:31 AM
Subject: Re: [MS_AccessPros] Re: Working with PDFS in Access 2013

Bill,
I am sorry but I don't even know where to begin with that. I have attached a screen shot of what it looks like right now. Like this is based off images and not PDF files.

With Warm Regards,

Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265 Ext. 130
Fax (605)964-1070
alorenzini@crhanetwork.org
"Only those who will risk going too far can possibly find out how far one can go."

On Thursday, May 29, 2014 12:40 PM, "wrmosca@comcast.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

Art
Use a bound OLE control.

Private Sub Command1_Click()
Me.OLEBound4.SourceDoc = "C:\MyFolder\MyPDFfile.pdf"
Me.OLEBound4.Action = acOLECreateLink

End Sub

-Bill

[Non-text portions of this message have been removed]