[AccessD] Hyperlink Problem

[Rocky Smolin]

Ryan:

I had some trouble getting your code to work but the lead of using Shell
instead of Follow worked - I found this on Stack Exchange

Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal Filename As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long

and that worked!

Thanks for the help!

Best,

Rocky



On Thu, Dec 28, 2023 at 8:41 AM Ryan W <wrwehler at gmail.com> wrote:

> Rocky, perhaps try this
>
> Public Function OpenURL(theURL As String, Optional focus As Integer =
> vbNormalFocus)
>     ShellExecute Screen.ActiveForm.hWnd, "open", theURL, "", "", focus
> End Function
>
> Public 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
>
>
> then call OpenURL "that.troublesome.url"
>
>
>
> On Thu, Dec 28, 2023 at 10:27 AM Rocky Smolin <rockysmolin2 at gmail.com>
> wrote:
>
> > Yes, checked that. So cigar. Works here and there with a direct paste to
> > the browser, and fails in both place from the code.
> >
> > However, it works for you from the code so do you have any speculation
> > about differences between my program and yours. I'm still using Access
> 2010
> > for this user.  Could that be an issue?
> >
> > Thanks
> >
> > Rocky
> >
> >
> >
> > r
> >
> > On Wed, Dec 27, 2023 at 7:06 PM Stuart McLachlan <stuart at lexacorp.com.pg
> >
> > wrote:
> >
> > > I note that you have no debug code showing the actual value in
> > > Me.fldMaintenanceStepNotionLink
> > > Have you checked that it is returning the correct link?
> > >
> > >
> > >
> > > On 27 Dec 2023 at 16:51, Rocky Smolin wrote:
> > >
> > > > Dear List:
> > > >
> > > > My client is using an online product called Notion and has links to
> > > > his Notion Folders on his Notion site which he wants to embed in the
> > > > app I wrote for him.
> > > >
> > > > When I copy one of the links and paste it into the browser it works.
> > > > It did not work initially but he gave me permissions to the folders
> > > > and so then it worked.
> > > >
> > > > Sample link looks like this:
> > > >
> > > > https://www.notion.so/1-Make-Folder-ec50ff0941a243f0ba97aac5ffc37e26
> > > >
> > > > When I click the Test Link button I get err.number = 6 - Invalid Link
> > > >
> > > > He gets the same thing at his desk-works in the browser but not from
> > > > the CBF.
> > > >
> > > > Here's the code:
> > > >
> > > > Private Sub cmdTestLink_Click()
> > > >
> > > > On Error GoTo LinkError:
> > > >
> > > >     Application.FollowHyperlink
> > > >     Address:=Me.fldMaintenanceStepNotionLink Exit Sub
> > > >
> > > > LinkError:
> > > >     If Err.Number = 490 Or Err.Number = 6 Then
> > > >         MsgBox "Invalid Link", vbExclamation
> > > >         Exit Sub
> > > >     Else
> > > >         MsgBox "Run Time Error: " & Err.Number & "-" &
> Err.Description
> > > >         &
> > > > "." & vbCrLf & vbCrLf _
> > > >             & "Report to Beach Access Software.", vbExclamation
> > > >     End If
> > > >
> > > > End Sub
> > > >
> > > > If I test an address like Google or Wiki or Hooters, it works as long
> > > > as I have the HTTP prefix.
> > > >
> > > > Any ideas why this is failing? Something to do with permissions.
> > > > maybe?
> > > >
> > > > MTIA
> > > >
> > > > Rocky
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > https://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>