image paths in access 2010

[oldtiredjeffro]

I want an image to display in an Access 2010 form. Rather than OLE, I want to use the path name in a table to load the image, however I want to make the database "portable", so the question is "How do I keep the path directed to where the images are relative to the table so the database will function on numerous machines?". For example, if the path is C:...\...\Image1, the image will not display if I burn the database to disc and try to open it on my CD drive, "D".

[John_G]

Hi -

I think the only way to do this would be to prompt the user to either type in or much better, navigate to the required directory, and then keep the directory in a small table. You could have a button on a form to allow them to change it if they wanted to.

Here is a function I use to do just that:

Function Change_File_Location(Current_Location As Variant, Dialog_Title As String) As Variant
  Dim CurrentProcedure As String
  On Error GoTo ErrProc
  CurrentProcedure = "Change_File_Location"
  Dim fd As FileDialog
  Dim ReturnPath As Variant, ReturnValue As Integer
  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  '
  '  Initialize the directory with the current value
  '
  If IsNull(Current_Location) Then
    fd.InitialFileName = "C:\"
  Else
    fd.InitialFileName = Current_Location
  End If
  fd.title = "Select a folder for " & Dialog_Title
  ReturnValue = fd.Show
  If ReturnValue <> 0 Then
    '
    ' Dialog was not closed with "Cancel"
    '
'    MsgBox "Returned Value = " & ReturnValue
    Change_File_Location = fd.SelectedItems(1)
  Else
    '
    ' Return value is the same as the initial value
    '
    Change_File_Location = Current_Location
  End If
  Set fd = Nothing
   
  Exit Function
ErrProc:
   Process_Error CurrentForm, CurrentProcedure, Err.Description
End Function

Process_Error is code I use to display any errors - you don't need it here

John

[June7]

Are these images moved with the database into the same folder?

Could grab the folder path with:

CurrentProject.Path