ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать все объекты скрытыми?
20 сообщений из 20, страница 1 из 1
как сделать все объекты скрытыми?
    #35617669
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
как сделать все объекты скрытыми?
то что скрывающая функция что то типа
Код: plaintext
CurrentDb("Audit_A").Attributes = dbHiddenObject
но как сделать так чтобы циклом все перебиралась по коллекциям.
то что это можно сделать я точно знаю, но в коллекциях я не силен.
...
Рейтинг: 0 / 0
27.10.2008, 12:41
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35617676
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
Код: plaintext
1.
2.
3.
4.
dim o as object 
for each o in currentdb
o.Attributes = dbHiddenObject
next o
...
Рейтинг: 0 / 0
27.10.2008, 12:44
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35617686
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Grayscalefor each o in currentdb
...
Рейтинг: 0 / 0
27.10.2008, 12:47
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619278
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
шутка конечно шорошая но так не работает,
скрыть таблицы нарыл как методом научного тыка
Код: plaintext
1.
2.
3.
Dim i As Byte
For i =  0  To  29 
CurrentDb(i).Attributes = dbHiddenObject
Next i
правда как определить количество таблиц в базе я так и не нашел,
как поменять атрибут у формы и т.д.?
...
Рейтинг: 0 / 0
28.10.2008, 04:57
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619296
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Так делать таблицы
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub s()
Dim d As DAO.Database, i As Long
    Set d = CurrentDb
    For i =  0  To d.TableDefs.Count -  1 
        d.TableDefs(i).Attributes = dbHiddenObject
    Next
End Sub
...
Рейтинг: 0 / 0
28.10.2008, 06:02
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619300
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
пасиб
...
Рейтинг: 0 / 0
28.10.2008, 06:16
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619305
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Не знал - нашел в гугле. Формы и репорты
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub HideUnhideForms(blHidden As Boolean)
Dim db As Database, i
Set db = CurrentDb
With db.Containers("Forms")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acForm, .Documents(i).Name, blHidden
    Next
End With
End Sub

Sub HideUnhideReports(blHidden As Boolean)
Dim db As Database, i
Set db = CurrentDb
With db.Containers("Reports")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acReport, .Documents(i).Name, blHidden
    Next
End With
End Sub

зы: запросы - также как таблицы
...
Рейтинг: 0 / 0
28.10.2008, 06:27
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619309
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
зы2: модули также как формы и репорты - см хелп на SetHiddenAttribute
...
Рейтинг: 0 / 0
28.10.2008, 06:32
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619311
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
tabledef.attributes=0 прибивает таблицу так что не помогает меню Сервис-Параметры-Показать_скрытые
SetHiddenAttribute - дает увидеть скрытые
...
Рейтинг: 0 / 0
28.10.2008, 06:37
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619312
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Сорри
tabledef.attributes= 1
...
Рейтинг: 0 / 0
28.10.2008, 06:38
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619608
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
огромное человеческое спасибо
...
Рейтинг: 0 / 0
28.10.2008, 10:14
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619730
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
Dim d As DAO.Database, i As Byte
On Error Resume Next
Set d = CurrentDb
For i = 0 To d.TableDefs.Count - 1
d.TableDefs(i).Attributes = 0
Next
'скрытие таблиц

With d.Containers("Reports")
For i = 0 To .Documents.Count - 1
Application.SetHiddenAttribute acReport, .Documents(i).Name, False
Next
End With
'скрытие отчетов

With d.Containers("Forms")
For i = 0 To .Documents.Count - 1
Application.SetHiddenAttribute acForm, .Documents(i).Name, False
Next
'скрытие форм
End With
...
Рейтинг: 0 / 0
28.10.2008, 10:50
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619768
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
авторi As ByteМаловато будет ;-)
...
Рейтинг: 0 / 0
28.10.2008, 11:02
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619789
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Private Sub Кнопка9_Click()

Dim d As DAO.Database, i As Byte
On Error Resume Next

'сокрытие таблиц
Set d = CurrentDb
    For i =  0  To d.TableDefs.Count -  1 
        d.TableDefs(i).Attributes = dbHiddenObject
    Next
    
'тут я не понял, да и не надо))) скрываются таблицы и запросы вместе
With d.Containers("tables")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acTable, .Documents(i).Name, True
    Next
End With
    
'тут срываются отчеты
With d.Containers("Reports")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acReport, .Documents(i).Name, True
    Next
End With

'тут срываются формы
With d.Containers("Forms")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acForm, .Documents(i).Name, True
    Next
End With

'тут срываются модули
With d.Containers("Modules")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acModule, .Documents(i).Name, True
    Next
End With

'тут срываются макросы
With d.Containers("scripts")
    For i =  0  To .Documents.Count -  1 
        Application.SetHiddenAttribute acMacro, .Documents(i).Name, True
    Next
End With

    
End Sub
...
Рейтинг: 0 / 0
28.10.2008, 11:08
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619791
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
почему мало?
255 объектов по любак норм
...
Рейтинг: 0 / 0
28.10.2008, 11:09
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619794
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
онож не на все объекты, а только на конкретные
...
Рейтинг: 0 / 0
28.10.2008, 11:09
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #35619802
xbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xbz
Участник
зы есть минус если открыта форма, а она будет открыта потому что высчелкаете мышкой по кнопке, она скрыта не будет, да и хер с ней, её и руками скрыть мона
...
Рейтинг: 0 / 0
28.10.2008, 11:12
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
как сделать все объекты скрытыми?
    #38701131
Антон68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Антон68
Гость
Доброго времени суток.
Код замечательный, однако скрываются таблицы и не отображаются при выборе пункта "отображать скрытые"
При попытке создать запрос выкидывает ошибка что ядро ms access не обнаружило объект.
Подскажите чем мона вылечить беду?
...
Рейтинг: 0 / 0
19.07.2014, 23:56
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #38701156
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Запросы не скрылись..............??????????
...
Рейтинг: 0 / 0
20.07.2014, 05:37
| Ответить | Цитировать | Написать  
как сделать все объекты скрытыми?
    #38702712
Boris57
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Boris57
Гость
Антон68. Попробуйте скрыть таблицы так:
Public Sub HA()
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If tdf.Attributes = 0 Then
SetHiddenAttribute acTable, tdf.Name, True
End If
Next
End Sub
...
Рейтинг: 0 / 0
22.07.2014, 12:13
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать все объекты скрытыми?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=35619768&tid=1616612]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 10ms
get forum data:
 7ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 238ms
total:  423ms
созд. / загр.: 423ms
x
x
Закрыть


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