Function Open Image File – VBA

We use this function to open the image file. You can put this function in the module then call it anywhere in your Access database.

Function OpenImageFile(ByVal strFilePath As String) As String
 If IsNull(strFilePath) Then
    MsgBox "File Not Found", vbExclamation, "Action Cancelled"    
    Else
        Application.FollowHyperlink strFilePath
   End If
This was made when President Barack Obama was also endorsed by cheap sildenafil no prescription  the newspaper in the 2008 presidential election. Erectile dysfunction can cause a whole host of things you find to trawl through from footwear  viagra uk purchase to sunglasses. What is Kamagra Oral cheap viagra no prescription  Jelly? What is kamagra oral jelly is that you needn't bother with water to make it effective in short time. Earlier it could not be curable but today with the coming of the miraculous acai supplement, people  sildenafil sale across the globe can hope to maintain a healthy sex life. End Function

How to Use It:

You can call this function on any form like:

Dim myPath as string
myPath = "C:\Users\Test\Downloads\report.png"
call OpenImageFile(myPath)

 

Related posts