Access快速开发平台--修复因Office新补丁引起的链接表中显示“#已删除的”问题

时　间:2022-05-30 23:07:54
作　者:红尘如烟   ID：10768  城市：成都
摘　要:修复Access快速开发平台中因Office新补丁引起的链接表中显示“#已删除的”问题。
正　文:

'功能用途：此段代码用于修复快速开发平台中因Office新补丁引起的链接表中显示“#已删除的”问题。
'解决方案：将表中主键字段类型是nvarchar的改为varchar类型。
'附加说明：1. 对于个别报错的表，请根据立即窗口输出的信息单独进行手工处理。
'          2. 执行完成后可在立即窗口执行RefreshLinkTables或通过数据库配置界面，
'             点击“设为当前”按钮，刷新链接表。
'创 建 者：Eleven Liu
'创建时间：2022-05-30

Sub FixError_ShowDeletedInLinkTables()
    Dim dbs As Object: Set dbs = CurrentDb
    Dim tdf As Object
    For Each tdf In dbs.TableDefs
        '只有ODBC链接表才做进一步处理
        If tdf.Connect Like "ODBC;*" Then
            Dim idx As Object
            '循环表中所有索引
            For Each idx In tdf.Indexes
                '如果该索引是主索引（主键）
                If idx.Primary Then
                    Dim strPkFields As String: strPkFields = ""
                    Dim strSQL As String: strSQL = ""
                    Dim fld As Object
                    '循环主键索引中的所有字段
                    For Each fld In idx.Fields
                        '如果主键包含文本类型的字段才做处理
                        If tdf.Fields(fld.Name).Type = dbText Then
                            strSQL = strSQL & vbCrLf & "ALTER TABLE [" & tdf.Name & "] ALTER COLUMN" _
                                   & " [" & fld.Name & "] varchar(" & tdf.Fields(fld.Name).Size & ") NOT NULL;"
                        End If
                        strPkFields = strPkFields & ",[" & fld.Name & "]"
                    Next
                    '如果主键没有文本类型字段，strSQL长度会为0
                    If Len(strSQL) > 0 Then
                        '注意这里必须采用删除主键，再修改字段类型，然后重新添加主键的方式。
                        '否则由于索引依赖问题直接修改字段字段类型无法修改成功。
                        '1.删除主键。
                        '2.将主键中所有文本字段的数据类型从nvarchar改为varchar
                        '3.重新添加主键。
                        strSQL = "ALTER TABLE [" & tdf.Name & "] DROP CONSTRAINT [" & idx.Name & "];" & strSQL
                        strSQL = strSQL & vbCrLf & "ALTER TABLE [" & tdf.Name & "] ADD CONSTRAINT" _
                               & " [" & idx.Name & "] PRIMARY KEY(" & Mid$(strPkFields, 2) & ");"
                        '使用平台ServerRunSQL函数执行SQL语句修改字段类型。
                        If ServerRunSQL(strSQL) Then
                            Debug.Print "更新成功 " & tdf.Name
                        Else
                            '如果失败了将执行的SQL语句输出到立即窗口，便于调试排查错误。
                            Debug.Print "更新失败 " & tdf.Name & "，SQL为："
                            Debug.Print String(100, "-")
                            Debug.Print strSQL
                            Debug.Print String(100, "-")
                        End If
                    End If
                    Exit For
                End If
            Next
        End If
    Next
End Sub

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店