Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Sharepoint Linked List Cannot be Found

Status
Not open for further replies.

MajP

Technical User
Aug 27, 2005
9,382
US
I have an multi user access database that uses linked lists to sharepoint. Been using it for almost a year with no problem. Actually works better than I thought it would. Today one of the linked lists/tables returns the error message:
"The Microsoft Office Access Database engine cannot find the object 'my table name'..."

I tried relinking the list, deleting the list and then relinking, but same error. I can open in Sharepoint and it appears fine. I can even select the list in sharepoint and choose "view in Access". When it creates a new db, still get the same error. Any help would be appreciated.
 
Hi MajP,

I don't have the solution to your issue (hopefully you've found one already), but I am investigating ways to deploy an Access application via Sharepoint and would appreciate any tips you may have learned here. Specifically, I can use Access 2003 or 2007 and WSSv3 or Sharepoint 2007 and my app has VBA code. thanks,



-- BoulderRidge B-)
 
Here is the solution. You want to relink your tables whenever opening

Code:
Sub RefreshSharePointLinks()
  DoCmd.Hourglass True
   Dim dbs As Database
   Dim tbl As TableDef
   Dim SQL As String
   Dim rst As DAO.Recordset
   Set dbs = CurrentDb()
   For Each tbl In dbs.TableDefs
      If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then
         If Left(tbl.Name, 21) <> "User Information List" Then
            If Left(tbl.Connect, 3) = "WSS" Then
               SQL = "SELECT * FROM [" & tbl.Name & "];"
               Set rst = dbs.OpenRecordset(SQL, dbOpenDynaset)
               If Not rst.Updatable Then
                  DoCmd.SelectObject acTable, tbl.Name, True
                  DoCmd.RunCommand acCmdRefreshSharePointList
               End If
            End If
         End If
      End If
   Next
   DoCmd.Hourglass False
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top