RE: VBA - using Shell to open a .jpg file in MS Paint

Discussion in 'Microsoft Access VBA Modules' started by Daniel Pineault, Jun 20, 2009.

  1. Here try this:

    Function OpenImage(sFileFullPathAndName)
    On Error GoTo Error_Handler

    Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
    Chr(34) & sFileFullPathAndName & Chr(34), 1

    If Err.Number = 0 Then Exit Function

    Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf &
    "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: OpenImage" & vbCrLf & "Error
    Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Exit Function
    End Function

    You simply call it like so:
    OpenImage("D:\Main\My Documents\My Pictures\Portrait.jpg")
    --
    Hope this helps,

    Daniel Pineault
    http://www.cardaconsultants.com/
    For Access Tips and Examples: http://www.devhut.net
    Please rate this post using the vote buttons if it was helpful.



    "Willis" wrote:

    > I have been successful in opening a PDF file with Adobe by using the Shell
    > function, but cannot seem to be able to open a JPG file with MS Paint.
    >
    > fullpath = xPath & Me.Path
    > Dim RetVal
    > RetVal = Shell("C:\Windows\System32\mspaint.exe " & fullpath,
    > vbMaximizedFocus)
    >
    >
    > Paint error "C:\Users\Willis.bmp was not found" is returned from MS Paint. I
    > am not using a BMP format and don't know where the .bmp comes from
    >
    > Your help would be greatly appreciated.
    >
    > Willis
    >
    >
     
    Daniel Pineault, Jun 20, 2009
    #1
    1. Advertisements

  2. Daniel Pineault

    Willis Guest

    IT WORKS!!! Thank you, Thank you, Thank you...Willis

    "Daniel Pineault" wrote:

    > Here try this:
    >
    > Function OpenImage(sFileFullPathAndName)
    > On Error GoTo Error_Handler
    >
    > Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
    > Chr(34) & sFileFullPathAndName & Chr(34), 1
    >
    > If Err.Number = 0 Then Exit Function
    >
    > Error_Handler:
    > MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf &
    > "Error Number: " & _
    > Err.Number & vbCrLf & "Error Source: OpenImage" & vbCrLf & "Error
    > Description: " & _
    > Err.Description, vbCritical, "An Error has Occured!"
    > Exit Function
    > End Function
    >
    > You simply call it like so:
    > OpenImage("D:\Main\My Documents\My Pictures\Portrait.jpg")
    > --
    > Hope this helps,
    >
    > Daniel Pineault
    > http://www.cardaconsultants.com/
    > For Access Tips and Examples: http://www.devhut.net
    > Please rate this post using the vote buttons if it was helpful.
    >
    >
    >
    > "Willis" wrote:
    >
    > > I have been successful in opening a PDF file with Adobe by using the Shell
    > > function, but cannot seem to be able to open a JPG file with MS Paint.
    > >
    > > fullpath = xPath & Me.Path
    > > Dim RetVal
    > > RetVal = Shell("C:\Windows\System32\mspaint.exe " & fullpath,
    > > vbMaximizedFocus)
    > >
    > >
    > > Paint error "C:\Users\Willis.bmp was not found" is returned from MS Paint. I
    > > am not using a BMP format and don't know where the .bmp comes from
    > >
    > > Your help would be greatly appreciated.
    > >
    > > Willis
    > >
    > >
     
    Willis, Jul 4, 2009
    #2
    1. Advertisements

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.

Share This Page