powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Атрибут: скрытый
2 сообщений из 2, страница 1 из 1
Атрибут: скрытый
    #37398061
WRX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WRX
Гость
Привет! Решил заморочиться так сказать “фигней”. Хочу скрыть все объекты БД (таблицы, запросы, формы и т.д.)…с таблицами вроде как намудрил…с остальным не догоняю (TableDef заменил на QueryDef – не работает)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
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
...
Рейтинг: 0 / 0
Атрибут: скрытый
    #37398199
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WRX,

а в чем проблема с запросами?
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Атрибут: скрытый
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]