Hyperlink problem
in [General]
|
Prev: LINKING MASTER WITH SUB-SUBFORM
Next: Need Help...
From: Wayne-I-M on 11 May 2010 09:06 I think this is what you are looking for http://www.mvps.org/access/api/api0001.htm As the control holds a hyperlink field you don't need to use inserthyperlink just the path -- Wayne Manchester, England. "blake7" wrote: > Hi Wayne, I have a text [hyperlink field] in which i want to create a link to > a stored pdf file, I want the operator to push the command key to initiate > the insert hyperlink command, this will insert the hyperlink into the text > box, that way anyone viewing the form can click on the link to view the pdf > document. > > Hope this explains better what I am trying to do. > > "Wayne-I-M" wrote: > > > Can you say what it is you're trying to do. > > I will try and help. There are many experts on this forum, I'm not one of > > them, I just write code, but I'll give it a try. > > > > > > > > > > > > -- > > Wayne > > Manchester, England. > > > > > > > > "blake7" wrote: > > > > > Hi Wayne, Thanks for replying, how do i check to see if it is an OLE and what > > > does this mean? I do not get an error message when i push the command key but > > > the fields in the form just flicker a bit ???. Thanks > > > > > > "Wayne-I-M" wrote: > > > > > > > Is Hyperlink1 an OLE field ? > > > > > > > > If not you need to give more details of what the end result is that you're > > > > trying to get. > > > > > > > > Also, when you say "not working". Are you getting an error message (like > > > > 2046 or 2501, etc) > > > > > > > > More details are needed to be able to give a good answer > > > > > > > > > > > > -- > > > > Wayne > > > > Manchester, England. > > > > > > > > > > > > > > > > "blake7" wrote: > > > > > > > > > Hi All, I have the code below on a command button, to insert a hyperlink into > > > > > a text box, but it is not working, can you help. Thanks > > > > > > > > > > > > > > > > > > > > Private Sub Command107_Click() > > > > > Me.Hyperlink1.SetFocus > > > > > RunCommand acCmdInsertHyperlink > > > > > > > > > > End Sub
From: blake7 on 11 May 2010 13:16 Hi Wayne, Thanks again for your help, I checked out the link you gave me and I have to say it looks a little over the top for what I want to do, the code below actually works perfect in an access 2003 database that I wrote last year, cannot understand why it will not work in access 2007? - any other ideas you can think of? The pdf files are stored on the hardrive of the PC I just want to create a hyperlink to them. Private Sub Command95_Click() Me.[Hyperlink1].SetFocus RunCommand acCmdInsertHyperlink "Wayne-I-M" wrote: > I think this is what you are looking for > http://www.mvps.org/access/api/api0001.htm > > As the control holds a hyperlink field you don't need to use inserthyperlink > just the path > > -- > Wayne > Manchester, England. > > > > "blake7" wrote: > > > Hi Wayne, I have a text [hyperlink field] in which i want to create a link to > > a stored pdf file, I want the operator to push the command key to initiate > > the insert hyperlink command, this will insert the hyperlink into the text > > box, that way anyone viewing the form can click on the link to view the pdf > > document. > > > > Hope this explains better what I am trying to do. > > > > "Wayne-I-M" wrote: > > > > > Can you say what it is you're trying to do. > > > I will try and help. There are many experts on this forum, I'm not one of > > > them, I just write code, but I'll give it a try. > > > > > > > > > > > > > > > > > > -- > > > Wayne > > > Manchester, England. > > > > > > > > > > > > "blake7" wrote: > > > > > > > Hi Wayne, Thanks for replying, how do i check to see if it is an OLE and what > > > > does this mean? I do not get an error message when i push the command key but > > > > the fields in the form just flicker a bit ???. Thanks > > > > > > > > "Wayne-I-M" wrote: > > > > > > > > > Is Hyperlink1 an OLE field ? > > > > > > > > > > If not you need to give more details of what the end result is that you're > > > > > trying to get. > > > > > > > > > > Also, when you say "not working". Are you getting an error message (like > > > > > 2046 or 2501, etc) > > > > > > > > > > More details are needed to be able to give a good answer > > > > > > > > > > > > > > > -- > > > > > Wayne > > > > > Manchester, England. > > > > > > > > > > > > > > > > > > > > "blake7" wrote: > > > > > > > > > > > Hi All, I have the code below on a command button, to insert a hyperlink into > > > > > > a text box, but it is not working, can you help. Thanks > > > > > > > > > > > > > > > > > > > > > > > > Private Sub Command107_Click() > > > > > > Me.Hyperlink1.SetFocus > > > > > > RunCommand acCmdInsertHyperlink > > > > > > > > > > > > End Sub
From: Mark Andrews on 11 May 2010 18:26
Perhaps: http://support.microsoft.com/kb/897755 or just use the shell api to open the pdf: Here's an example on calling the code: Private Sub cmdOpenDirectory_Click() If (Nz(Me.DocumentDirectory, "") <> "") Then Call OpenDoc(Me.DocumentDirectory) Else MsgBox "You must assign a document directory.", vbOKOnly, "Error" End If End Sub Option Compare Database Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Function OpenDoc(ByVal DocFile As String) As Long OpenDoc = ShellExecute(0&, vbNullString, DocFile, vbNullString, vbNullString, vbNormalFocus) End Function HTH, -- Mark Andrews RPT Software http://www.rptsoftware.com http://www.donationmanagementsoftware.com "blake7" <blake7(a)discussions.microsoft.com> wrote in message news:8DA1DFD4-343F-488A-A889-DF8BE91A4CBD(a)microsoft.com... > Hi Wayne, Thanks again for your help, I checked out the link you gave me > and > I have to say it looks a little over the top for what I want to do, the > code > below actually works perfect in an access 2003 database that I wrote last > year, cannot understand why it will not work in access 2007? - any other > ideas you can think of? > > The pdf files are stored on the hardrive of the PC I just want to create a > hyperlink to them. > > Private Sub Command95_Click() > Me.[Hyperlink1].SetFocus > RunCommand acCmdInsertHyperlink > > "Wayne-I-M" wrote: > >> I think this is what you are looking for >> http://www.mvps.org/access/api/api0001.htm >> >> As the control holds a hyperlink field you don't need to use >> inserthyperlink >> just the path >> >> -- >> Wayne >> Manchester, England. >> >> >> >> "blake7" wrote: >> >> > Hi Wayne, I have a text [hyperlink field] in which i want to create a >> > link to >> > a stored pdf file, I want the operator to push the command key to >> > initiate >> > the insert hyperlink command, this will insert the hyperlink into the >> > text >> > box, that way anyone viewing the form can click on the link to view the >> > document. >> > >> > Hope this explains better what I am trying to do. >> > >> > "Wayne-I-M" wrote: >> > >> > > Can you say what it is you're trying to do. >> > > I will try and help. There are many experts on this forum, I'm not >> > > one of >> > > them, I just write code, but I'll give it a try. >> > > >> > > >> > > >> > > >> > > >> > > -- >> > > Wayne >> > > Manchester, England. >> > > >> > > >> > > >> > > "blake7" wrote: >> > > >> > > > Hi Wayne, Thanks for replying, how do i check to see if it is an >> > > > OLE and what >> > > > does this mean? I do not get an error message when i push the >> > > > command key but >> > > > the fields in the form just flicker a bit ???. Thanks >> > > > >> > > > "Wayne-I-M" wrote: >> > > > >> > > > > Is Hyperlink1 an OLE field ? >> > > > > >> > > > > If not you need to give more details of what the end result is >> > > > > that you're >> > > > > trying to get. >> > > > > >> > > > > Also, when you say "not working". Are you getting an error >> > > > > message (like >> > > > > 2046 or 2501, etc) >> > > > > >> > > > > More details are needed to be able to give a good answer >> > > > > >> > > > > >> > > > > -- >> > > > > Wayne >> > > > > Manchester, England. >> > > > > >> > > > > >> > > > > >> > > > > "blake7" wrote: >> > > > > >> > > > > > Hi All, I have the code below on a command button, to insert a >> > > > > > hyperlink into >> > > > > > a text box, but it is not working, can you help. Thanks >> > > > > > >> > > > > > >> > > > > > >> > > > > > Private Sub Command107_Click() >> > > > > > Me.Hyperlink1.SetFocus >> > > > > > RunCommand acCmdInsertHyperlink >> > > > > > >> > > > > > End Sub |