Status: Solved
Priority: Medium
Security: Public
Views: 70
Last Modified: 2016-09-16

Loading default image if the image is not found in external folder

I want to load a default image if the specified image is not found. Below are my code in form load event.
The image file name will be the Workorder_ID & the file extension. Images in the external folder are named that way. In the event that the images are not available, I want the controls ImgHolder1.Picture & ImgHolder2.Picture to load the same default photo. Help with vba code preferred. Thanks

Dim ImgPath As String
Dim ImgFile As String
Dim ImgFile1 As String
Dim ImgFile2 As String

ImgPath = "D:\Img\"
ImgFile = Me.Workorder_ID

ImgFile1 = ImgFile & "F.png"

ImgFile2 = ImgFile & "B.png"

ImgHolder1.Picture = ImgPath & ImgFile1
ImgHolder2.Picture = ImgPath & ImgFile2

thao-nhi

Asked: 2016-09-15

Advertise Here

Microsoft Access

1 Solution

LVL 56

Ryan ChongCommented: 2016-09-15

you can use FSO's FileExists function to check the existence of a file:

Function isFileExist(yourFile)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   isFileExist = fso.FileExists(yourFile)
End Function

Open in new window

so apply this into your codes..

...
ImgFileDefault = "yourDefault.png"

if  isFileExist(ImgPath & ImgFile1) then
     ImgHolder1.Picture = ImgPath & ImgFile1
else
     ImgHolder1.Picture = ImgPath & ImgFileDefault
end if
...

Open in new window

thao-nhiAuthor Commented: 2016-09-15

I would have to place the function in a module and call the function from the sub? If so, please elaborate a bit more on where in the sub I would call the function. Thanks

LVL 56

Ryan ChongCommented: 2016-09-15

yes, you can place that function into a Module.

>>If so, please elaborate a bit more on where in the sub I would call the function.

Thought, this is clear enough... just similar to your codes, like:

Dim ImgPath As String
Dim ImgFile As String
Dim ImgFile1 As String
Dim ImgFile2 As String
Dim ImgFileDefault As String

ImgPath = "D:\Img\"
    ImgFile = Me.Workorder_ID
 
ImgFileDefault = "yourDefault.png"  
    ImgFile1 = ImgFile & "F.png" 
    ImgFile2 = ImgFile & "B.png"
     
   if  isFileExist(ImgPath & ImgFile1) then
     ImgHolder1.Picture = ImgPath & ImgFile1
else
     ImgHolder1.Picture = ImgPath & ImgFileDefault
end if

if  isFileExist(ImgPath & ImgFile2) then
     ImgHolder2.Picture = ImgPath & ImgFile2
else
     ImgHolder2.Picture = ImgPath & ImgFileDefault
end if

Open in new window

thao-nhiAuthor Commented: 2016-09-15

I did not know about the FSO before. I have 2 files to check for ImgFile1 and ImgFile2. What do I put in the function? Thanks again

Function isFileExist(yourFile)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
isFileExist = fso.FileExists(yourFile)
End Function

LVL 56

Ryan ChongCommented: 2016-09-15

hi, as per the example, you need to pass in the full file path to the function, like:

if isFileExist(ImgPath & ImgFile2) then

it will return True if the file path is valid (file exists)
or it will return False if the file path is invalid (file does not exist)

thao-nhiAuthor Commented: 2016-09-16

Thanks

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Loading default image if the image is not found in external folder

Join & Write a Comment Already a member? Login.

Featured Post