more access image form help please

[boiker]

this is my problem. i have a databse that access linked images utilizing code found here.

Me!Image.Picture = "s:\pgm\historic pictures\" & Me![Current Address] & ".jpg"

piclabel.Caption = "File: " & " s:\pgm\historic pictures\" & Me![Current Address] & ".jpg"

that code obviously compares the address field to a path with that same address in it.

now, some of my records do not have pictures.
i want access to do the following

if a picture with current address.jpg can't be found in the directory, load nopicavail.jpg, else perform the above code.

i don't know how to do this, and my is department decided not to include the vb online help file when they installed access.

Thanks

 

[tcurtis]

Looks like to me you need an IF....Else statement?

 

[Beren1h]

If I understand this, then the path name for the jpg file is stored in a table in the field [Current Address]?

If that is true, then couldn't you specify the path to your 'no pic' picture in the [Current Address] field if no other picture was avaliable?

That way you can use the code you already have.

Or did I miss something (wouldn't be the first time..)

 

[boiker]

GOT IT! Thanx for you help guys. i knew i needed an if else statement, but i didn't know how i was going to use it. I didn't want to put no pic in the current address field because i will still print reports using that address. now, when i do add a pic with the right address, the database will find that address's pic and not use the image missing graphic.

Private Sub Form_Current()

Dim retfile As String

retfile = Dir$("s:\pgm\historic pictures\" & Me![Current Address] & ".jpg&quot

If retval = Me![Current Address] & ".jpg" Then

Me!Image.Picture = "s:\pgm\historic pictures\" & Me![Current Address] & ".jpg"
piclabel.Caption = "File: " & " s:\pgm\historic pictures\" & Me![Current Address] & ".jpg"

Else

Me!Image.Picture = "s:\pgm\historic pictures\imagenotavail.jpg"
piclabel.Caption = "IMAGE NOT CURRENTLY AVAILABLE"

End If

End Sub

 

[tcurtis]

I believe so Beren1h...
I still think he will need an

IF...ELSE statement to accomplish this. I miss stuff all the time...hehehe : )

 

[turtlemaster]

if the file doesn't exist does it not return an error. I would trap for the error.

On Error DisplayImageNotAvailable

me!image.picture = "imagenotavailable.jpg"

This make sense becuase even if there is network problems you could have this image displayed.