[AccessD] Hyperlink Problem

[Rocky Smolin]

The error 6 is actually a 'site not found - 404 error'

r

On Wed, Dec 27, 2023 at 4:51 PM Rocky Smolin <rockysmolin2 at gmail.com> 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
>
>
>