Your database should be split with backend on the server and front end on each users computer.
Could be that the path your using doesnt exist on the server and thus errors.
heres a longer piece of code to show the path to local Documents folder. Note that the documents folder is considered a special folder as are the others listed as constants below. It's a sub but can be easily converted to a function.
Paste to a standalone module and run ShowFolder
Code:
' Get path of Special folders
Type ShortItemId
cb As Long
abID As Byte
End Type
Type ITEMIDLIST
mkid As ShortItemId
End Type
Const CSIDL_PROGRAMS = 2 ' Program Groups Folder
Const CSIDL_PERSONAL = 5 ' Personal Documents Folder
Const CSIDL_FAVORITES = 6 ' Favorites Folder
Const CSIDL_STARTUP = 7 ' Startup Group Folder
Const CSIDL_RECENT = 8 ' Recently Used Documents Folder
Const CSIDL_SENDTO = 9 ' Send To Folder
Const CSIDL_STARTMENU = 11 ' Start Menu Folder
Const CSIDL_DESKTOPDIRECTORY = 16 ' Desktop Folder
Const CSIDL_NETHOOD = 19 ' Network Neighborhood Folder
Const CSIDL_TEMPLATES = 21 ' Document Templates Folder
Const CSIDL_COMMON_STARTMENU = 22 ' Common Start Menu Folder
Const CSIDL_COMMON_PROGRAMS = 23 ' Common Program Groups Folder
Const CSIDL_COMMON_STARTUP = 24 ' Common Startup Group Folder
Const CSIDL_COMMON_DESKTOPDIRECTORY = 25 ' Common Desktop Folder
Const CSIDL_APPDATA = 26 ' Application Data Folder
Const CSIDL_PRINTHOOD = 27 ' Printers Folder
Const CSIDL_COMMON_FAVORITES = 31 ' Common Favorites Folder
Const CSIDL_INTERNET_CACHE = 32 ' Temp. Internet Files Folder
Const CSIDL_COOKIES = 33 ' Cookies Folder
Const CSIDL_HISTORY = 34 ' History Folder
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
(ByVal pidl As Long, _
ByVal pszPath As String) As Long
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
pidl As ITEMIDLIST) As Long
Sub ShowFolder()
Dim lngID As Long
Dim IDL As ITEMIDLIST
Dim strPath As String
Dim strShortCut As String
' Fill the idl structure with the specified folder item.
lngID = SHGetSpecialFolderLocation(0, 5, IDL) '<<<<<Change second arguement here. 5 = CSIDL_PERSONAL
' Get the path from the idl list, and return
' the folder with a slash at the end.
If lngID = 0 Then
strPath = Space$(260)
lngID = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal strPath)
If lngID Then
strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1) & "\"
End If
If strPath <> "" Then
MsgBox "My documents = " & strPath
Else
MsgBox "Unable to find"
End If
End If
End Sub