Hi, I have an Access database that has worked well for the last two or three years. My organisation is moving from a network with shared drives to O365 and Sharepoint. The database is a split database with multiple users. I have been trying to move the tables to sharepoint lists (I am sure a SQL server would work better but no chance of getting that). This transition is proving to be a major pain in the .... Too many problems. I have a custom function using Select Case that works OK on the network, it works on table within the front end but gives Error when it is run on the sharepoint list.
Is the syntax different for sharepoint? Or do I have to set permissions in the sharepoint list to run user defined functions? Or is it just not possible?
The function is below, sorry the formatting got lost in the copy and paste.
Function TSOperationalPOD(TSPort As String, TS1 As String, TS2 As String, TS3 As String, ts4 As String, TS5 As String, POD As String)
On Error GoTo Err_Handler
Select Case TSPort
Case TS1
Select Case TS2
Case Is <> ""
TSOperationalPOD = TS2
Case ""
TSOperationalPOD = POD
End Select
Case TS2
Select Case TS3
Case Is <> ""
TSOperationalPOD = TS3
Case ""
TSOperationalPOD = POD
End Select
Case TS3
Select Case ts4
Case Is <> ""
TSOperationalPOD = ts4
Case ""
TSOperationalPOD = POD
End Select
Case ts4
Select Case TS5
Case Is <> ""
TSOperationalPOD = TS5
Case ""
TSOperationalPOD = POD
End Select
Case Else
TSOperationalPOD = POD
End Select
Exit_Handler:
Exit Function
Err_Handler:
MsgBox "There was a problem with the Report you selected"
Resume Exit_Handler
End Function
Is the syntax different for sharepoint? Or do I have to set permissions in the sharepoint list to run user defined functions? Or is it just not possible?
The function is below, sorry the formatting got lost in the copy and paste.
Function TSOperationalPOD(TSPort As String, TS1 As String, TS2 As String, TS3 As String, ts4 As String, TS5 As String, POD As String)
On Error GoTo Err_Handler
Select Case TSPort
Case TS1
Select Case TS2
Case Is <> ""
TSOperationalPOD = TS2
Case ""
TSOperationalPOD = POD
End Select
Case TS2
Select Case TS3
Case Is <> ""
TSOperationalPOD = TS3
Case ""
TSOperationalPOD = POD
End Select
Case TS3
Select Case ts4
Case Is <> ""
TSOperationalPOD = ts4
Case ""
TSOperationalPOD = POD
End Select
Case ts4
Select Case TS5
Case Is <> ""
TSOperationalPOD = TS5
Case ""
TSOperationalPOD = POD
End Select
Case Else
TSOperationalPOD = POD
End Select
Exit_Handler:
Exit Function
Err_Handler:
MsgBox "There was a problem with the Report you selected"
Resume Exit_Handler
End Function