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]

__._,_.___

Posted by: wrmosca@comcast.net
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)

.

__,_._,___

Tidak ada komentar:

Posting Komentar