表及链接表隐藏不被导出

强　发表于：2009-02-10 11:30:15 　

有没有高手可以帮忙，把以下只对表起隐藏不被导出作用的代码，修正成也对链接表也起作用的

Sub asdfasdfa() '隐藏
    For Each tabdef In CurrentDb.TableDefs
        Debug.Print tabdef.Name
        Debug.Print tabdef.Attributes
        If tabdef.Attributes = 0 Then
            tabdef.Attributes = 1
        End If
    Next
End Sub

Sub asdfasdfa1() '显示
    For Each tabdef In CurrentDb.TableDefs
        Debug.Print tabdef.Name
        Debug.Print tabdef.Attributes
        If tabdef.Attributes = 1 Then
            tabdef.Attributes = 0
        End If
    Next
End Sub

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

朱维强发表于：2009-02-11 09:00:31

已解决，如下：

Function chediyincangbiao() '彻底隐蔽所有的表格包括链接表及系统表等

On Error GoTo Err_Command0_Click
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)

    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
    '此项操作应避开系统表,以免将系统表属性改而造成问题.
      If db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSACCESSXML" _
      or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
      or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then

    Else
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
    End If
    Next i
    Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."

Exit_Command0_Click:
Exit Function

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Function

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

表及链接表隐藏不被导出

找不到解答？