Ciao John,
no I've to use 2003 and because of many limitation on shared permission folders (many different roles of people have to use the db) I would like to use the ole method.
First version was (MsA 2003) with links to the pdf, but many people linked to local disk (!) so the next step user couldn't get the file so I decided to attach a subform with ole, that it is also confortable because the drag and drop on the pdf on the ole field.
Any idea how to get the ole obj, rename and save?
Luigi
--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> Luigi-
>
> Which version of Access are you using? If 2007 or later, consider storing
> the PDF in an Attachment field. You can then open a Recordset on your table
> and use the SaveToFile method to export the file.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of bondurri.luigi
> Sent: Sunday, September 22, 2013 9:35 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Work with PDF in ole fields
>
> Hi all, here a nice sun (North Italy).
>
> I'm working on ole field where people drag and drop PDF. I know it is not an
> elegant solution, but it is fast simple for my people up to now.
> Now, I was looking to work with the ole field, and in particular I would
> like to take the object inside (a pdf), rename it, and save it in a specific
> path.
> I found some solution thnaks to the BigBrotherGoogle, but only one make
> sense and it need a DLL to extract the object
> [http://www.lebans.com/DownloadFiles/ExtractInventoryOLEver89.zip]
> To rename and move the file I usually use this procedure:
> code renamingProcedure-START----------------------------------------
> Dim OldName, NewName
> ' checking if file exist already
> If Len(Dir([Newdir] & "\" & [NewNomeFile0])) > 0 Then ' delete the file if
> exist Kill ([Newdir] & "\" & [NewNomeFile0]) ' REnrename and move the file
> nowd If OldName = [DocPath]: NewName = [Newdir] & "\" & [NewNomeFile0]
> Name OldName As NewName
> DoCmd.RepaintObject acForm, "FileRinomina"
> If Len(Dir([Newdir] & "\" & [NewNomeFile0])) > 0 Then VerificaFile0.Visible
> = True DocPath = ""
> End If
> code renamingProcedure-END----------------------------------------
> but I need the file, and if I try to work with OLE, of course it is not
> working...
>
> Any idea or experience on files in OLE field?
> Thanks in advance.
> Ciao!
>
>
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar