Save As Dialog Box Button

An OLE object is a general object type in access like the BLOB in MySQL, but I AM USING IT ONLY FOR BMP. IT DOES WORK when inserting and viewing from the database. I have loaded jpg and bmp into the database from Access ***** IT DOES WORK****
What I am needing Access to do is give a preview of the image in the bound object frame which the frame will only do with a .bmp file.  It only displays an icon for all other image files types.

**** IT WORKS. I CAN INSERT PICTURES JUST FINE. I NEED TO CHANGE THE FORMAT FOR DISPLAY PURPOSES. PLEASE STOP ADDRESSING THE RAMIFCATIONS OF USING BLOBS IN DATABASE AND WHEITHER OR NOT IT WILL WORK. IT CLEARLY WORKS.****

***** AGAIN THE IMAGES MUST BE SAVED IN MYSQL . IT IS A VERY VERY BIG REQUIREMENT **********

All I need is the code for a button to produce a save dialog box that will  force save any image type selected  as .bmp to the bound image frame.

Just to help be clearer than I already am being, I am using Access 2007.

Use the file dialog to pass the path and file name to shell to irfanview  (http://www.irfanview.com/) to do the conversion.

Dim dlgSaveAs As FileDialog

Set dlgSaveAs = Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show

Shell "i_view32.exe " & dlgSaveAs & " /convert=" & Left(dlgSaveAs, Len(dlgSaveAs) -3 & "bmp"

The code in the last post is incorrect should be:

Dim strPathFileName As String
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Access Files", "*.mdb", 1
    .Filters.Add "All", "*.*", 2
    If .Show Then
        Shell "i_view32.exe " & .SelectedItems(1) & " /convert=" & Left(.SelectedItems(1), Len(.SelectedItems(1)) -3 & "bmp"
    Else
        MsgBox "No file selected!"
    End If
End With

When I place this code into the click handler for the button it is getting a compile error: "Expected list separator or )" on the shell command

As well: Where in the code would we link the picture being saved into the bound object frame called OLEBound?

Thank you for your patience.

Here is a screen shot of the error, I don't know if this will help...

Well I've been messing around with the code and below is what I have so far. I seem to be making some progress but I'm not the expert. Now I'm getting the following error with the new code:

Run-time error '-2147467259 (80004005)':
Method 'FileDialog' of object'_Application' failed

Option Compare Database
Private Sub Command13_Click()
Dim strPathFileName As String
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Access Files", "*.mdb", 1
    .Filters.Add "All", "*.*", 2
    If .Show Then
        Shell "C:\Program Files (x86)\IrfanView\i_view32.exe" & .SelectedItems(1) & " /convert=" & Left(.SelectedItems(1), Len(.SelectedItems(1)) - 3 & ".bmp")
        OLEBound.Object = .SelectedItems(1)
    Else
        MsgBox "No file selected!"
    End If
End With
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

The compiler is highlighting line 4:

With Application.FileDialog(msoFileDialogOpen)

Private Sub Command13_Click()
Dim strPathFileName As String
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "jpeg Files", "*.jpg", 1
    .Filters.Add "All", "*.*", 2
    If .Show Then
        Shell "C:\Program Files (x86)\IrfanView\i_view32.exe """ & .SelectedItems(1) & """ /clipcopy /killmesoftly"
        DoEvents
        OLEBound.SetFocus
        RunCommand acCmdPaste
    Else
        MsgBox "No file selected!"
    End If
End With
End Sub


Some points:
THE ABOVE CODE WILL STORE DATA AS AN OLE OBJECT! If you don't believe it check the backend size before and after running the code. You will see the backend grow a few megabytes.

No need to convert jpg or other image files to bmp.  Any image that Irfranview supports will work.  The clipboard takes care of any conversion needed since it copies to a universal windows image mode.

I used the code you gave me just now and when I run the form then click the button, it does nothing. Did I miss something?

Wait, I got the same Run Time Error as before
 
AND it is still highlighting line 3 as before: With Application.FileDialog(msoFileDialogOpen)
 
Private Sub Command13_Click()
Dim strPathFileName As String
With Application.FileDialog(msoFileDialogOpen)      
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "jpeg Files", "*.jpg", 1
    .Filters.Add "All", "*.*", 2
    If .Show Then
        Shell "C:\Program Files (x86)\IrfanView\i_view32.exe """ & .SelectedItems(1) & """ /clipcopy /killmesoftly"
        DoEvents
        OLEBound.SetFocus
        RunCommand acCmdPaste
    Else
        MsgBox "No file selected!"
    End If
End With
End Sub

It requires a reference to Microsoft office 11.0 Object Library (VBE , Tools, References).

I have uploaded a sample of this at  www.thenelson.name/#LinkedImagesDemo

Thank you for your patientence! You really helped out alot!

You're welcome.  Glad to help and thank you very much for the points with "A" grade!

Happy computing!

Nelson

With your example we are having issues when we apply your method to our form. I adopted the button with the save dialog box  when I select the file it gives me the following error:
Error: 2465: Microsoft Office Access can't find the field '|' referred to in your expression

Any ideas on how to solve this problem?

Place  this line
Debug.Print .SelectedItems(1), "C:\Program Files (x86)\IrfanView\i_view32.exe """ & .SelectedItems(1) & """ /clipcopy /killmesoftly"
in front of the line
Shell "C:\Program Files (x86)\IrfanView\i_view32.exe """ & .SelectedItems(1) & """ /clipcopy /killmesoftly"
and post what returns in the immediate window.

before I do that, I'm not entirely certain about the Microsoft office 11.0 Object Library you told me to reference from your sample. Could you explain in detail how to set that up?

I'm still getting the same Run Time errors as before.

Thanks!

Also, I'm using Access 2007 with Microsoft office 12.0 Object Library. Will that also cause problems?

Microsoft office 12.0 Object Library is fine

Thanks again for your help. I'll try to figure this out on my own.

Try posting your database and I will look at it. To make it as small as possible and remove all sensitive material, do this:
1. Make a copy of your db.
2. Remove all tables, queries, forms, pages and reports that have nothing to do with the problem.
3. Delete all but 6-12 records in the remaining tables - use shift / Mouse select to select huge blocks of records, then delete.
4. Import all linked tables so that everything is in the one database
5. Compact and repair
6. Move the database to a different folder to make sure it still runs showing the problem
7. Zip (optional) and attach to a message.

I don't have A 2007, so you will need to save the database within Access as a mdb file instead of an AccDB file.

Just so you know, ALL your advice has worked with normal Access Tables. As soon as I try it with linked MySQL Tables, it just does not work properly. Should I start looking into Macros? Can you record to a Macro like you can in MS Word?

Thanks again!

<Can you record to a Macro like you can in MS Word?>
no

<Should I start looking into Macros?>
Macros are far less capable than VBA.

<ALL your advice has worked with normal Access Tables. As soon as I try it with linked MySQL Tables,>
Not surprising since a bound OLE Frame is designed to work with an OLE field which mySQL does not support.  I bet you will need to use a blob scheme like www.lebans.com/loadsavejpeg.htm  or www.ammara.com/  

I did use that example, however when I acctually connect it to an Identical MySQL table I get an "ODBC insert failed" error. Oh well, I'm throwing in the towel on this. I'll have to follow your linked images example and save images to a folder next to the MySQL server. By the way, do you know anything about the Attachments data type? I was playing around with it and liked the features but noticed that It saves files in a folder deep in windows, can you change the default folder for the Attachments Data Type to another location of your choosing?

Again, many thanks for your help! I need to find a way to get you like 1,000,000 points for helping me.