Full Version: Figuring out if a file is there or not in access...
UtterAccess Discussion Forums > Microsoft® Access > Access Queries
guy_irish
Aug 4 2004, 03:58 PM
What I am doing is trying to get pictures to work in a form. I have a lot of pictures in a folder with their names the name of their key in access. Then what I'm doing is setting a picture, on current event, to the path of that picture. Example: Me.imgEmpty.Picture = "C:\WINDOWS\Desktop\Neon Pictures\" & Me.NeonID.Value & ".jpg". It crashes when there is no picture for a NeonID.Value, when there is no picture of that sign available. How do I create an if statement to make sure that there is a picture corresponding to NeonID to make sure there is a picture to display?
BrianS
Aug 4 2004, 04:43 PM
You can use the Dir() function to test the existence of a file. If this is the picture associated with an image control then do it in the Form_Load event

CODE
Private Sub Form_Load()
If Len(Dir("C:\WINDOWS\Desktop\Neon Pictures\" & Me.NeonID.Value & ".jpg")) > 0 Then
    Me.imgEmpty.Picture = "C:\WINDOWS\Desktop\Neon Pictures\" & Me.NeonID.Value & ".jpg"
End If
End Sub


The Dir Function will return whatever Me.NeonID.Value & ".jpg" equals if the file exists and and empty string if the file does not. The Len Function returns the lenght of a string.
jmcwk
Aug 4 2004, 05:18 PM
Brians solution will work but I approach it a little differently using the code below:

CODE
Dim strPath As String
Dim strDir As String

If Nz(Len(Me.PlayLogo), 0) > 0 Then
strPath = CurrentProject.Path & "\PlayerLogo\" & Me.PlayLogo
strDir = Dir(strPath)
If Dir(strPath) <> "" Then
Me.ImgPlaylogo.Picture = strPath
Me.ImgPlaylogo.Visible = True
Me.LblplayLogo.Visible = False
End If
Else
Me.ImgPlaylogo.Visible = False
Me.LblplayLogo.Visible = True
End If
End Sub


The me.lblplaylogo is a label with No image Available as the text and becomes visible when there is no ImgplayLogo available.

Just another approach that may help of course your field name/s will be different and need changing
This is also placed in the On Current Event Procedure

John
guy_irish
Aug 4 2004, 05:34 PM
Thanks, that gave me enough info to get something working.
-Brett
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.