Need Help wtih Images on Forms

[V-Clan]

Hello -

I'm working on a database for my comics and learning as I go. For each record on my form "Comic Entry" I have an image of the Cover of the comic showing on the form record. This image changes with each record. However, there are some records that I do not have an image for, yet the the record still populates with an image (the last recorded filepath in the table 'Comic info'). I would like there to be no image if I do not have one loaded for a particular record.

All stored data is in one table to include fields: FilePath and FileName. Below is the code I've used (found on another site) in order to have my images populate for each record;

Option Compare Database
Option Explicit
Private Sub On_Load()
         If Me.FilePath > 0 Then
         Me.ImageFrame.Visible = True
         Else
         Me.ImageFrame.Visible = False
         End If
End Sub

Private Sub Form_AfterUpdate()
         Me.bywho.Visible = Me.Signed
         On Error Resume Next
         Me![ImageFrame].Picture = Me![FilePath] & Me![FileName]
         Me![txtPath] = Me![FilePath] & Me![FileName]
         
End Sub

Private Sub Form_Current()
         Me.bywho.Visible = Me.Signed
         On Error Resume Next
         Me![ImageFrame].Picture = Me![FilePath] & Me![FileName]
         Me![txtPath] = Me![FilePath] & Me![FileName]

End Sub

Private Sub ImageFrame_Click()

End Sub

The If statement is something I started messing around with tonight to see if I could have the ImageForm not visible if the corresponding record's FilePath field was blank. I'm not having any luck there yet. I'm not receiving any errors on it but it's not recognizing what I'm trying to have it do.

I'm using Access 2003 on Windows 7 64-bit.

Thanks in advance for any help.

[ItsMe]

I would check for an empty string instead of checking for a numeric value. And I would not use the OnLoad, except maybe to set the Image Frame to ... Me![ImageFrame].Picture = ""

I would use the On Current to check for the Value of the Path and FileName. So maybe something like...

If Me.FilePath > "" AND   Me![FileName] > "" Then
         Me![ImageFrame].Picture = Me![FilePath] & Me![FileName]
         Me.ImageFrame.Visible = True
         Else
         Me![ImageFrame].Picture = ""
         Me.ImageFrame.Visible = False
         End If

[V-Clan]

Thank you very much ItsMe for your suggestions/tips and code for my image challenge. Things are working great as a result!

[June7]

If you upgrade Access, dynamic display of images can be done without any VBA code. Image control now has a ControlSource property.

[ItsMe]

You are welcome.

[V-Clan]

If you upgrade Access, dynamic display of images can be done without any VBA code. Image control now has a ControlSource property.

June, that is awesome to know. What's the earliest version of Access that has this?

[June7]

Access 2007. Probably hard to find.

[V-Clan]

Great, thank you!