Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
    ' Отображаем/гасим невидимые объекты базы данных
    Application.SetOption "Show Hidden Objects", CBool(Not Me.flViewObj)
    Set dbs = CurrentDb
    Me.ProgressView = ""     ' Поле на форме
    For Each tdf In dbs.TableDefs
        If ((tdf.Attributes And dbSystemObject) =  0 ) Then
            ' Отображаем/гасим таблицы пользователя
            Me. ProgressView = Me. ProgressView & tdf.Name & ", Visible=" & (Not CBool(Me.flViewTbl)) & vbNewLine
            Application.SetHiddenAttribute acTable, tdf.Name, Me.flViewTbl
            ' Отображаем/гасим поля пользователя
            For Each fld In tdf.Fields
                fld.Properties("ColumnHidden") = CBool(Me.flViewFld)
            Next fld
        End If
    Next tdf