[AccessD] Hyperlink Problem

[Stuart McLachlan]

I temporarily set Edge as the default browser (yuck!)


Ran your sub again and it worked just as well - a "Refresh" message followed by an 
automatic redirect to the login page.

Just to be sure, I did it both ways
FollowHyerlinlk "URL" 
and FollowHylerlinke Address:= "URL" 


On 28 Dec 2023 at 12:53, Stuart McLachlan wrote:

> Application.FollowHyperlink 
> "https://www.notion.so/1-Make-Folder-ec50ff0941a243f0ba97aac5ffc37e26"
> 
> works for me.
> 
> It opens a Firefox tab, which contains an initial message:
> "Oops there was an error loading this page
> Refresh to load again"
> and a Refresh button.
> 
> About a second later (without doing anything) it switches to  a Login
> Page: "Welcome to Arens Group on Notion." asking for credentials. 
> 
> 
> 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
>