Re: Open Picture from On Click
- From: Cioffredi <Cioffredi@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Wed, 17 May 2006 13:17:01 -0700
I apologize, I haven't been here in quite some time. I figured this thread
had died. Are you still having trouble. You probably have scrapped the idea
in its entirety by now but I'll check back in a few days in case. My
apologies.
"Freeda" wrote:
.
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.
- Prev by Date: Re: Combo Box event works only once
- Next by Date: Re: calculated dates (I know you shouldn't store in a table but...
- Previous by thread: Re: Combo Box event works only once
- Next by thread: combobox IIF problem
- Index(es):
Relevant Pages
|
