[AccessD] Hyperlink Problem

[Stuart McLachlan]

Please ignore th"Hyperlink" typos :)

On 28 Dec 2023 at 13:04, Stuart McLachlan wrote:

> 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-ec50ff0941a243f0ba97aac5ffc37e2
> > 6"
> > 
> > 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-ec50ff0941a243f0ba97aac5ffc37e
> > > 26
> > > 
> > > 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
>