Hiding Geodatabase Tables

The following VBA function hides all on the geodatabase tables added by ESRI into an Access database. Useful if you spatially enable your users database, and they wonder what all those GDB_ tables are for..

To unhide just change the Trues to False, or pass this in as a variable.Public Sub HideGeoDatabaseTables()

Dim strTableName As String For i = 0 To CurrentDb.TableDefs.Count - 1
    If CurrentDb.TableDefs(i).Name Like "GDB_*" Then
        strTableName = CurrentDb.TableDefs(i).Name
        Access.SetHiddenAttribute acTable, strTableName, True
    End If
NextAccess.SetHiddenAttribute acTable, "SelectedObjects", True
Access.SetHiddenAttribute acTable, "Selections", TrueEnd Sub
To view hidden objects in Microsoft Access, go to Options and check the “Hidden Objects” box.

Advertisement