ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программно скрыть таблицу
29 сообщений из 29, показаны все 2 страниц
  все  
Программно скрыть таблицу
    #39776168
Lenabruleva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenabruleva
Гость
Здравствуйте! Можно ли программно скрыть таблицу? Т.е. запросом создается таблица, после выполнения запроса нужно данную таблицу скрыть! Только программно, а не в ручную.
Заранее спасибо.
...
Рейтинг: 0 / 0
19.02.2019, 13:53
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776182
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
LenabrulevaЗдравствуйте! Можно ли программно скрыть таблицу? Т.е. запросом создается таблица, после выполнения запроса нужно данную таблицу скрыть! Только программно, а не в ручную.
Заранее спасибо.
https://www.sql.ru/forum/496498/atributy-tablicy?hl=?????? ???????
а вобще-то прежде чем создавать тему пользуйтесь поиском ну иFAQ
https://www.sql.ru/forum/139276/rekomendacii-po-publikacii-soobshheniy-chitayte-faq-a-takzhe
...
Рейтинг: 0 / 0
19.02.2019, 14:20
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776202
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Lenabruleva, есть два способа скрыть таблицу.
1. Изменение атрибута объекта вам показали. Метод хорош тем, что юзер никак его не увидит, пока не измените атрибут.
2. В окне навигации выделить таблицу и скрыть через контекстное меню. Такую таблицу можно увидеть серенькой, если в настройках БД установить флажок "Показывать скрытые объекты"
Если вам нужен этот вариант, то копайте в сторону Application.SetHiddenAttribute.
...
Рейтинг: 0 / 0
19.02.2019, 15:01
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776353
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Кривцов Анатолий, что даже при создании запроса не увидеть скрытую таблицу?
Просто щас нет возможности проверить, а узнать хочется уже сейчас.
...
Рейтинг: 0 / 0
19.02.2019, 17:44
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776461
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Кривцов АнатолийLenabruleva, есть два способа скрыть таблицу.
1. Изменение атрибута объекта вам показали. Метод хорош тем, что юзер никак его не увидит, пока не измените атрибут.

весьма забавно... такую таблицу в запрос не вставить, в конструкоре вообще жесть получается (таблица без имен и без полей)... DAO похоже без проблем... А обратно как вернуть ?
SetHiddenAttribute как то не сгодился, говорит что таблица теперь уже системная...
...
Рейтинг: 0 / 0
19.02.2019, 21:00
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776501
Игортан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игортан
Участник
vmag,

помнится мне, у меня были проблемы после скрытия.
После того, как я скрывал программно таблицу
у меня были проблемы с бд у клиентов, после передачи.
Вин 7 и моложе и акс 2010 и моложе.
Пока я не импортировал в новую бд все, кроме скрытой таблицы.
А потом Руками создал новую, вместо скрытой....
И только после этого с бд стало возможным запись/изменение
...
Рейтинг: 0 / 0
19.02.2019, 23:46
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776530
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
vmagтакую таблицу в запрос не вставитьОткрываешь запрос в текстовом режиме и прописываешь руками, после переходишь в графический и хоть из списка выбираешь, хоть перетаскиваешь мышЁй (Access 2003, 2007, 2010).

vmagА обратно как вернуть ?
Раз скрывает, раз возвращает доступность таблицы (не забываем обновлять окно БД)
Код: vbnet
1.
2.
3.
4.
5.
Dim db As DAO.Database, tdf As DAO.TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("Сотрудники")' мучаем Борей
tdf.Attributes = tdf.Attributes Xor dbHiddenObject' тут можно и по другому написать...



Игортанпомнится мне, у меня были проблемы после скрытия.Единственная проблема про которую я слышал (по моему в версии 97) при сжатии такие таблицы удалялись.
...
Рейтинг: 0 / 0
20.02.2019, 04:35
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776532
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Добавлю навсякей...
ПанургРаз скрывает, раз возвращает доступность таблицы ( не забываем обновлять окно БД )
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim db As DAO.Database, tdf As DAO.TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("Сотрудники")' мучаем Борей
tdf.Attributes = tdf.Attributes Xor dbHiddenObject' тут можно и по другому написать...
Application.RefreshDatabaseWindow
...
Рейтинг: 0 / 0
20.02.2019, 04:41
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776533
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
ПанургЕдинственная проблема про которую я слышал (по моему в версии 97) при сжатии такие таблицы удалялись.сейчас всё на месте, всё работает (Access 2010 32 En)
...
Рейтинг: 0 / 0
20.02.2019, 04:47
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776680
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Панург,

Круто, спасибо, может пригодиться в определенных ситуациях... а то про шифт уже даже те знают, кто больше вообще ничего не знает, а это самое не приятное...
...
Рейтинг: 0 / 0
20.02.2019, 12:37
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39776735
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
vmagПанург,

... а то про шифт уже даже те знают, кто больше вообще ничего не знает...
...
Рейтинг: 0 / 0
20.02.2019, 13:59
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39778328
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
sdkuvmagПанург,

... а то про шифт уже даже те знают, кто больше вообще ничего не знает...Согласен. Есть защита от шифта.
...
Рейтинг: 0 / 0
23.02.2019, 18:43
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788427
studieren
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
studieren
Участник
Панург...
Раз скрывает, раз возвращает доступность таблицы (не забываем обновлять окно БД)
Код: vbnet
1.
2.
3.
4.
5.
Dim db As DAO.Database, tdf As DAO.TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("Сотрудники")' мучаем Борей
tdf.Attributes = tdf.Attributes Xor dbHiddenObject' тут можно и по другому написать...


А почему не запускать вот такой простой код?
Код: vbnet
1.
2.
CurrentDb.TableDefs("Сотрудники").Attributes = 0
Application.RefreshDatabaseWindow


Если же хотим наоборот скрыть, то вместо 0 пишем 1 (ибо dbHiddenObject = 1).
Я не понимаю, зачем вот это?
tdf.Attributes Xor dbHiddenObject
...
Рейтинг: 0 / 0
19.03.2019, 14:01
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788459
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
studierenЯ не понимаю, зачем вот это?это же пример. одна и та же строка кода попеременно прячет и показывает таблицу. studierenЕсли же хотим наоборот скрыть, то вместо 0 пишем 1
Ничего переписывать ненужно. Что тут может быть непонятно?
...
Рейтинг: 0 / 0
19.03.2019, 14:30
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788466
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
studierenА почему не запускать вот такой простой код?Или тебя интересует зачем объявлены переменные? Так опять же - это пример. Объявленные переменные наглядно демонстрируют, что используются объекты и методы библиотеки DAO.

Это не соревнования - у кого короче...
...
Рейтинг: 0 / 0
19.03.2019, 14:37
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788495
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
скрывать-отображать ТАБЛИЦУ - от лукавого все это
(скрыть от юзера навсегда и забыть.Пусть этим занимается тот кому разрешено,а так как, при правильно спроектированной базе, необходимость править таблицу возникает редко, то можно и ручками,без VBA)
...
Рейтинг: 0 / 0
19.03.2019, 15:21
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788501
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
вдогонку:для получения каких-либо данных временно есть рекордсет
...
Рейтинг: 0 / 0
19.03.2019, 15:26
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788507
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdkuскрывать-отображать ТАБЛИЦУ - от лукавого все этоещё один...

б..., это ПРИМЕР
...
Рейтинг: 0 / 0
19.03.2019, 15:34
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788511
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdkuвдогонку:для получения каких-либо данных временно есть рекордсетС рекордсетом не получится работать с помощью SQL
...
Рейтинг: 0 / 0
19.03.2019, 15:37
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788521
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
studierenА почему не запускать вот такой простой код?
Код: vbnet
1.
2.
CurrentDb.TableDefs("Сотрудники").Attributes = 0
Application.RefreshDatabaseWindow

Если же хотим наоборот скрыть, то вместо 0 пишем 1 (ибо dbHiddenObject = 1).
Я не понимаю, зачем вот это?
tdf.Attributes Xor dbHiddenObject
Attributes - битовая маска, где каждый бит может за что-то отвечать.
Признак скрытости может быть не единственным в маске и простое присвоение 1 или 0 обнулит все остальные биты.
Поэтому:
tdf.Attributes = tdf.Attributes Or dbHiddenObject (или Or 1)
пишет 1 в первый бит, не трогая остальные, а
tdf.Attributes = Not (tdf.Attributes And dbHiddenObject)
обнуляет только этот бит.

Конструкцией tdf.Attributes = tdf.Attributes Xor dbHiddenObject я раньше не пользовался.
Проверил, работает (Панург, спасибо):
Код: vbnet
1.
2.
3.
4.
?7 xor 1
 6 
?6 xor 1
 7

Но, если атрибут, уже имеет нужное значение, то конструкции, приведенные выше, ничего не меняют (что и требуется), а вариант с XOR всегда меняет значение бита на обратное.
...
Рейтинг: 0 / 0
19.03.2019, 15:49
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788523
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Кривцов АнатолийAttributes - битовая маска, где каждый бит может за что-то отвечать.спасибо за дополнение, я как-то не подумал этот момент осветить.
...
Рейтинг: 0 / 0
19.03.2019, 15:54
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788553
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Панургsdkuскрывать-отображать ТАБЛИЦУ - от лукавого все этоещё один...
б..., это ПРИМЕР хороший пример того, что сделать можно,но не нужно
(как,например,поля подстановки в таблицах)
...
Рейтинг: 0 / 0
19.03.2019, 17:00
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788572
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdkuхороший пример того, что сделать можно,но не нужно
(как,например,поля подстановки в таблицах)никогда не поноси чем не пользуешься. Это говорит только о твоей ограниченности.
Полями с подстановкой я тоже пользуюсь.
Как-то так...
...
Рейтинг: 0 / 0
19.03.2019, 17:46
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39788640
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
ПанургПолями с подстановкой я тоже пользуюсь.
Как-то так...Да лишь бы на здоровье
...
Рейтинг: 0 / 0
19.03.2019, 20:09
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39806021
Lenabruleva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenabruleva
Гость
Спасибо большое
...
Рейтинг: 0 / 0
25.04.2019, 10:01
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39806042
Lenabruleva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenabruleva
Гость
Я конечно извиняюсь, но что то туплю! А с запросами или отчетами можно так же сделать? Просто на всякий случай!
...
Рейтинг: 0 / 0
25.04.2019, 10:37
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39806060
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
LenabrulevaА с запросами или отчетами можно так же сделать?Как так же?
...
Рейтинг: 0 / 0
25.04.2019, 11:03
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39806267
Lenabruleva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenabruleva
Гость
Панург, чтобы скрывались, так же как и таблицы! Примеры выше действуют только с таблицами. Я просто не так хорошо разбираюсь еще в Access. На будущие что бы знать )))
...
Рейтинг: 0 / 0
25.04.2019, 14:15
| Ответить | Цитировать | Написать  
Программно скрыть таблицу
    #39806438
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Lenabruleva, просто скрыть см 21814379
...
Рейтинг: 0 / 0
25.04.2019, 17:40
| Ответить | Цитировать | Написать  
29 сообщений из 29, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программно скрыть таблицу
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1610742]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 11ms
total:  137ms
созд. / загр.: 137ms
x
x
Закрыть


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