Re: Open Picture from On Click

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance


Please help, I did the same thing as in this post. I stored the jpg file
name in the Photo_Name field of my table. I placed the "on current" code on
the properties of my form then the "on click" code on my unbound object
frame. But I get the error message, 2465. I can't figure out what I did
wrong.



"Cioffredi" wrote:

John - Thanks a bunch. Here is what I ended up using for an event procedure

Private Sub imgPicture1_Click()
Dim Path_Name As String
Path_Name = "P:\PR40362\Database Photos\"
Application.FollowHyperlink ([Path_Name] & [Photo_Name] & ".jpg")
End Sub

For whatever reason, it was struggling w/ the Me. ... But regardless, it
works and I thank you!

Cioffredi
"John Nurick" wrote:

The simplest way to open just about any document in its default program
is to use something like this:

Application.FollowHyperlink Me.Path_Name & Me.Photo_Name & ".jpg"



On Wed, 21 Dec 2005 11:00:02 -0800, Cioffredi
<Cioffredi@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

In a form I am pulling photos using the following code.

Private Sub Form_Current()
Dim Path_Name As String
Path_Name = "P:\PR40362\Database Photos\"
On Error Resume Next
imgPicture1.Visible = True
imgPicture1.Picture = [Path_Name] & [Photo_Name] & ".jpg"
'Error message to display if photo not defined
If Err = 2220 Then
imgPicture1.Visible = False
Exit Sub
End If
End Sub

where Photo_Name is a column in the necessary table. Therefore each record
pulls a new photo. What I would like to do is "On Click" have this image act
like a hyperlink and open the image in Microsoft Picture Manager (or whatever
the defualt photo editor is set to). Thanks in advance for any help or
suggestions,

Cioffredi

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.


.

Quantcast