no photo found... what now?

[Jean-Paul De Winter]

I wrote following code:

Private Sub Form_Current()
If IsNull(Me!foto) = False Then
Me![fotoken].Picture = Me![foto]
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
End Sub

This works just great now but, I get an errormessage when no photo is
found in the corresponding path.
Could you please explain what I should write to avoid this?
Maybe something like setting the image.visible to false or whatever.

Thanks
JP

 

[Douglas J. Steele]

Assuming that Me![foto] contains the path to the (missing) photo, try:

Private Sub Form_Current()
If IsNull(Me!foto) = False Then
If Len(Me![foto]) > 0 Then
Me![fotoken].Picture = Me![foto]
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
End Sub

 

[Jean-Paul De Winter]

Assuming that Me![foto] contains the path to the (missing) photo, try:

Private Sub Form_Current()
If IsNull(Me!foto) = False Then
If Len(Me![foto]) > 0 Then
Me![fotoken].Picture = Me![foto]
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
End Sub

I don't think this will work...
If len(Me!foto)> 0 but the path to to the photo is wrong so the photo
can't be found (deleted as ex.) what then?
Thnaks

 

[Douglas J. Steele]

Sorry: typing too quickly.

Rather than Len(Me![foto]) > 0, it should be Len(Dir(Me![foto])) > 0

The Dir function returns the name of the file (no path) if the file exists,
or an empty string if it doesn't.

My apologies for the confusion.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Assuming that Me![foto] contains the path to the (missing) photo, try:

Private Sub Form_Current()
If IsNull(Me!foto) = False Then
If Len(Me![foto]) > 0 Then
Me![fotoken].Picture = Me![foto]
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
Else
Me![fotoken].Picture = "c:\DBI\logo.jpg"
End If
End Sub

I don't think this will work...
If len(Me!foto)> 0 but the path to to the photo is wrong so the photo
can't be found (deleted as ex.) what then?
Thnaks