automatically refresh picture?

[martinmike2]

Hello,

I have a personnel form that shows employee pictures. I would like
this form to automatically show the employees picture. I have it
showing the picture automaticaly, but when i navigate to a record that
dosn't have a picture, the las tpicture shown is displayed. The
pictures are stored in a seperate file, outside the database.

Dim loc As String
Dim pic As Integer
Dim strPic As String
loc = "S:\JAXS\AIMD\SHARES\Manpower db\Pictures\"
pic = gSSN
Me.imgEmp.PICTURE = loc & pic & ".jpg"

-Michael Martin

 

[Klatuu]

Create a graphic jpg that says something like "No Picture Available".

Then test to see if the employee's picture ins on file. If is is, display
it. If it is not, display the default:

If Dir(loc & pic & ".jpg") = vbNullString Then
Me.imgEmp.PICTURE = loc & "NoPic.jpg"
Else
Me.imgEmp.PICTURE = loc & pic & ".jpg"
End If

 

[Arvin Meyer [MVP]]

And run this code in the Current event of your form.

 

[martinmike2]

And run this code in the Current event of your form.

--
Arvin Meyer, MCP, MVPhttp://www.datastrat.comhttp://www.mvps.org/accesshttp://www.accessmvp.com









- Show quoted text -

worked like a champ, thank you