OpenFile Dialog to add image path into database table

[josephbupe]

Hello everyone.

I have this code that I adapted for one of my projects years back to save images into a table but now I just cant get it to work. When I tried it this time, I was getting an error "The code in this project must be updated for use on 64-bit system", and so I found some suggestion to replace all Public and Private Declare statements with Declare PtrSafe in the module basOpenFile, which I did. But the OpenFile dialog is not being invoked through the button on the form.

I have attached the project file for assistance.

Joseph

 

[isladogs]

There are much better methods available now that don't require APIs and which work in both 32-bit & 64-bit Access.
Check out file dialog code. For example, see

Folder Image Viewer

The example database shows how thumbnail images can be displayed for selected images in a folder. It also allows images to be rotated so they always display properly in Access

www.isladogs.co.uk

 

[josephbupe]

There are much better methods available now that don't require APIs and which work in both 32-bit & 64-bit Access.
Check out file dialog code. For example, see

Folder Image Viewer

The example database shows how thumbnail images can be displayed for selected images in a folder. It also allows images to be rotated so they always display properly in Access

www.isladogs.co.uk

WOW! That's an interesting approach. But I also want to save information in a table for each photograph, and later add search facility to query the database.

 

[isladogs]

WOW! That's an interesting approach. But I also want to save information in a table for each photograph, and later add search facility to query the database.

That's exactly what that example is doing.
In the example, the file paths are overwritten when a new folder is selected.
However, that can easily be changed if you want to retain the file paths permanently

 

[josephbupe]

That's exactly what that example is doing.
In the example, the file paths are overwritten when a new folder is selected.
However, that can easily be changed if you want to retain the file paths permanently

Indeed! I see that now. OK, I will start from here. Thanks a lot.

 

[josephbupe]

That's exactly what that example is doing.
In the example, the file paths are overwritten when a new folder is selected.
However, that can easily be changed if you want to retain the file paths permanently

Hello isladogs.

I stumbled upon one of your code samples on how to properly save image path into a database table. Now I want the images folder and the split back-end data file within the project's path, so that it is portable. But I don't know how to do it.

Below is the code:

Private Sub cmdBrowse_Click()
 
On Error GoTo Err_Handler
 
'Code compatible with both 32-bit & 64-bit Office
 
' Set options for the file dialog box.
    Dim F As FileDialog
    Dim strFilePath As String
    Set F = Application.FileDialog(msoFileDialogFilePicker)
    F.title = "Locate the image file folder and click on 'Open' to select it"
 
' Clear out any current filters, and add our own
    F.Filters.Clear
    F.Filters.Add "Image files", "*.jpg;*.jpeg;*.png"
 
' Set the start folder. Open in default file folder if blank
    F.InitialFileName = Nz(Application.CurrentProject.Path & "\Images\", "C:\") 'modify this as appropriate
 
' Call the Open dialog procedure.
    F.Show
 
' Return the path and file name.
    strFilePath = F.SelectedItems(1)
    Me.ImagePath = strFilePath  'add the file path to a textbox on the form
 
Exit_Handler:
    Exit Sub
 
Err_Handler:
    If Err <> 5 Then 'err=5 user cancelled
        MsgBox "Error " & Err.Number & " in cmdBrowse_Click procedure: " & Err.Description
    End If
    Resume Exit_Handler
 
End Sub

 

[theDBguy]

Hello isladogs.

I stumbled upon one of your code samples on how to properly save image path into a database table. Now I want the images folder and the split back-end data file within the project's path, so that it is portable. But I don't know how to do it.

Below is the code:

Private Sub cmdBrowse_Click()
 
On Error GoTo Err_Handler
 
'Code compatible with both 32-bit & 64-bit Office
 
' Set options for the file dialog box.
    Dim F As FileDialog
    Dim strFilePath As String
    Set F = Application.FileDialog(msoFileDialogFilePicker)
    F.title = "Locate the image file folder and click on 'Open' to select it"
 
' Clear out any current filters, and add our own
    F.Filters.Clear
    F.Filters.Add "Image files", "*.jpg;*.jpeg;*.png"
 
' Set the start folder. Open in default file folder if blank
    F.InitialFileName = Nz(Application.CurrentProject.Path & "\Images\", "C:\") 'modify this as appropriate
 
' Call the Open dialog procedure.
    F.Show
 
' Return the path and file name.
    strFilePath = F.SelectedItems(1)
    Me.ImagePath = strFilePath  'add the file path to a textbox on the form
 
Exit_Handler:
    Exit Sub
 
Err_Handler:
    If Err <> 5 Then 'err=5 user cancelled
        MsgBox "Error " & Err.Number & " in cmdBrowse_Click procedure: " & Err.Description
    End If
    Resume Exit_Handler
 
End Sub

Hi. To make a filepath "portable," you probably should just store the file's name instead of the full path. That way, you can add the folder location later, based on the current location of the database. In that case, this little article might be able to help.

How to get the Filename from a FilePath

I'm sure we all have helper functions. Those are the little functions we tend to use inside larger sections of code to simply return a speci...

thedbguy.blogspot.com

 

[isladogs]

Just as @theDBguy suggested, I normally store the image file name in one table and store both the folder path & BE database path separately either in another table or as constants. Doing this saves repetition of data. You can then combine these as needed.

 

[josephbupe]

Just as @theDBguy suggested, I normally store the image file name in one table and store both the folder path & BE database path separately either in another table or as constants. Doing this saves repetition of data. You can then combine these as needed.

Oh yeah. Just not sure where to tweak that code and how to call the function. My bad!

 

[josephbupe]

Oh yeah. Just not sure where to tweak that code and how to call the function. My bad!

Ok. This is what I am doing now. Hopefully on the right track:

Dim relativePath As String

relativePath = "\Images\" & Me.txtObjectID & ".jpg"
Me!ImagePath.Value = relativePath

Thus far, I can see only the image named (i.e ObjectID) being populated into the table without the path. I hope I will get the rest done properly.

Thanks for your help.