On a form I have amended a button to point to a Sharepoint folder. It used to point to a network folder, but we're moving our folders to Sharepoint. I have tested it successfully on my PC. Browser opens, goes straight to the SharePoint folder specified. I tested this on an end-user's PC -- with them logged in (i.e. someone on the team who use the DB more than me) and received an error 490 - which is the error received when the file doesn't exist.
I can't understand why the button would not at least launch a browser. She has access to the correct folder on SharePoint. FWIW, here's the code:
Note I've obviously changed my company's sharepoint address to "mycompany" and my team's name to "myteam".
Any suggestions?
I can't understand why the button would not at least launch a browser. She has access to the correct folder on SharePoint. FWIW, here's the code:
Code:
Private Sub Command98_Click()
DoCmd.SetWarnings False
On Error GoTo ClickError
Dim TID As String
Dim FolderLoc As String
TID = Me!RGSCID
FolderLoc = "https://mycompany.sharepoint.com/sites/myteam/Shared%20Documents/Forms/AllItems.aspx?id=%2Fsites%2FNSHCS%2FShared%20Documents%2FTrainee%20Folders%2F" & TID
Application.FollowHyperlink FolderLoc
DoCmd.SetWarnings True
Exit Sub
ClickError:
If MsgBox("That folder does not exist. Please check the folder location on the file and try again. Error Code " & Err.Number & ": " & Err.Description, vbOKOnly, "Invalid Location") = vbOK Then
DoCmd.SetWarnings True
End If
Exit Sub
End Sub
Note I've obviously changed my company's sharepoint address to "mycompany" and my team's name to "myteam".
Any suggestions?