button attach file to Object OLE field

[EJaques]

(Using Access 2003)

I have a an Object OLE field in a table where users can insert Excel sheets, Word Docs, Pdfs etc.

I need to create a button on a formulaire that allows the user to browse for, select and attach the file. The file must appear as an icon that can be double clicked on to be opened. The file should be stocked in the DB.

I can make a dialog box appear and browse for the file and copy the path into the field using this code:

Private Sub AttachButton_Click()
  Dim varFile As Variant
 
  With Application.FileDialog(msoFileDialogFilePicker)
    With .Filters
      .Clear
    End With
    .AllowMultiSelect = False
    .InitialFileName = vbNullString
    .InitialView = msoFileDialogViewDetails
 
    If .Show = True Then
      For Each varFile In .SelectedItems
        Me![File] = varFile
      Next
    Else
      MsgBox "No file attached ! "
    End If
  End With
End Sub

Thanks to: ADezii
(see http://bytes.com/topic/access/answer...ord-attachment)

But it needs to be an object sitting there, not just the path to the file.
Any help or alternative suggestions would be appreciated.

e

[ADezii]

@EJaques
Rather than go into a detailed explanation, I've created a simple Database and made it available to you as an Attachment. Clicking on the Insert OLE Object Command Button will:

1. Open the Insert Object Dialog Box, from which you will:
   1. Select Create From File
   2. Browse ==> Select File to Insert ==> OK
   3. Select Display as Icon ==> OK
2. The OLE Object will now be inserted into the OLE Object Field and displayed as an Icon.
3. Double-Clicking on the Icon while in Form View will Open the File represented as an Icon in the Registered OLE Server for that File Type.
4. No need for the File Dialog since the Insert Object Dialog will simply replace it.
5. Good Luck, and Good Night!

[EJaques]

Thank you that works very well

[ADezii]

@EJaques
You are quite welcome.

[kumar215]

@ADezii
Can you pls provide the source code for the attachment, as I am new to VBA

[ADezii]

@kumar215

1. Download the Attachment
2. Set the Display Type Property of the Bound Object Frame to Icon

[kumar215]

@ADezii
Thanks for reply, How can I get the file path name of file selected by using bound control ?
I need to show the complet file location in some text box.

[ADezii]

@kumar215
Download the Attachment which should say it all.

[lfarias]

Thank you so much! This was extremely helpful!

[Hishow]

Thanks a lot. Useful for me too