Solved

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

Posted on 2016-09-15

Microsoft Access

1 solution

Medium Priority

61 Views

Last Modified: 2016-09-16

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

Comment

Question by:thao-nhi

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

6 Comments

LVL 53

Accepted Solution

by:Ryan Chong

Ryan Chong earned 2000 total points

ID: 418008952016-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

Author Comment

by:thao-nhi

ID: 418009072016-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 53

Expert Comment

by:Ryan Chong

ID: 418009132016-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

Author Comment

by:thao-nhi

ID: 418009332016-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 53

Expert Comment

by:Ryan Chong

ID: 418009832016-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)

Author Closing Comment

by:thao-nhi

ID: 418019742016-09-16

Thanks

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an Access Database Taskbar Item in Windows 7 through 10

Article by: Helen

In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database. This article shows how to recreate this functionality in Windows 7 through 10.

Microsoft Access

Simple Audit Log

Article by: Dale Fye

If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.

Microsoft Access

MS Access – Writing Solid VBA Code

Video by: Jim

In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

Microsoft Access

Create a Query and Grouped Report and Modify Design using Access

Video by: crystal

Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…