Blog Home  Home Feed your aggregator (RSS 2.0)  
Doctor Access Blog - Sunday, June 26, 2011
Everything About MS Access
# Sunday, June 26, 2011

I recently posted the following VBA code to the Access World Forums but I though I would also post it here on my blog. 

I had found code that was supposed to work, but did not, so  I modified the code to make it work for me.

Copy the code below and paste it into a new module.  Be careful not to name this new module with the same name as the Public Function:  “RefreshSharePointLinks”. 

'***********Code Start****************
'This code is a modified version of the code that can be found at:
'The original code has been modified by Byron Polk
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
Public Function RefreshSharePointLinks()
Dim dbs As Database
Dim rst As dao.Recordset
Dim tbl As dao.TableDef
Dim fld As dao.Field
Dim strSql As String
Set dbs = CurrentDb()
On Error GoTo Err_ChkError
'iterate through all of the table objects in the database
For Each tbl In dbs.TableDefs
    'only try to refresh linked or "Attadhed" tables
    If (Mid(tbl.Name, 1, 1) <> "~") And ((tbl.Attributes And dbAttachedTable) = dbAttachedTable) Then
        '***You may need to add additional "If" statements to have the code
        '   ignore specific tabale
        'if the table is named "User Information List" do not relink the table
        If Left(tbl.Name, 21) <> "User Information List" Then
            'if the table is named "UserInfo" do not relink the table
            If Left(tbl.Name, 8) <> "UserInfo" Then
                'if the connection string for the linked or "Attached" table
                'starts with "WSS" then this is a ShasrPoint table.
                If Left(tbl.Connect, 3) = "WSS" Then
                    'try to open an editabel recordset from this table
                    strSql = "SELECT * FROM [" & tbl.Name & "];"
                    Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
                    'locate an updatable field (not a calculated column)
                    For Each fld In tbl.Fields
                        If fld.Type = dbText Then
                            'if there is a value in this field use this field
                            If Not IsNull(rst.Fields(fld.Name).value) Then
                                'insure that this field is an updateable type field
                                If fld.DataUpdatable = False Then
                                    'set the recordset to "edit" mode
                                    'update the updatabale field with the same value
                                    rst.Fields(fld.Name).value = rst.Fields(fld.Name).value
                                    'attempt to update the record.
                                    'if the table needs to be relinked, error 3851 will occur and
                                    'our "On Error" error handling will kick in and relink the table
                                    'Only if the update was successful, move on to the next linked table
                                    GoTo GetNextLinkedTbl
                                End If
                            End If
                        End If
                End If
            End If
        End If
    End If
***************End of Code***********

Hope it helps you.

Sunday, June 26, 2011 1:57:52 AM (GMT Daylight Time, UTC+01:00)  #    Comments [0]    |  Trackback
# Friday, June 24, 2011

My initial intent for this blog was that I would start by posting information about Access for beginning users. Although I still feel that new information for new users is important and something that I have a passion for, I have now come to believe that I can provide relevant information for both beginners but also for even the professional user.

Just for the record, I make my living as an Access Database Application Developer. I normally work either as an independent contractor or for various staffing organizations. I have been doing this type of work for over 15 years now. (Wow, doesn’t seem like it has been that long.)

I have worked with every version of MS Access starting with Version 2.0 thru Access 2010. My most recent and current contract assignment is with a major, world wide, very diversified company. This company has their own installation of SharePoint version 2010 and I am getting first hand experience developing Access applications for use with SharePoint lists. I will have much more about my experiences in future posts over the next few days and weeks. If you have any experiences that you would like to share with me and others about working with this relatively new tool, please provide some info here.

Friday, June 24, 2011 11:41:21 PM (GMT Daylight Time, UTC+01:00)  #    Comments [0]    |  Trackback
# Wednesday, March 11, 2009

After logging in, be sure to visit all the options under Configuration in the Admin Menu Bar above. There are 26 themes to choose from, and you can also create your own.


Wednesday, March 11, 2009 7:00:00 AM (GMT Standard Time, UTC+00:00)  #    Comments [0]   dasBlog  |  Trackback
Copyright © 2020 AppliTech, Inc.. All rights reserved.
DasBlog 'Portal' theme by Johnny Hughes.
Pick a theme: