Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать все объекты скрытыми? / 20 сообщений из 20, страница 1 из 1
27.10.2008, 12:41
    #35617669
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
как сделать все объекты скрытыми?
то что скрывающая функция что то типа
Код: plaintext
CurrentDb("Audit_A").Attributes = dbHiddenObject
но как сделать так чтобы циклом все перебиралась по коллекциям.
то что это можно сделать я точно знаю, но в коллекциях я не силен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2008, 12:44
    #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:47
    #35617686
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
Grayscalefor each o in currentdb
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 04:57
    #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, 06:02
    #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:16
    #35619300
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
пасиб
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 06:27
    #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:32
    #35619309
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
зы2: модули также как формы и репорты - см хелп на SetHiddenAttribute
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 06:37
    #35619311
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
tabledef.attributes=0 прибивает таблицу так что не помогает меню Сервис-Параметры-Показать_скрытые
SetHiddenAttribute - дает увидеть скрытые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 06:38
    #35619312
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
Сорри
tabledef.attributes= 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 10:14
    #35619608
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
огромное человеческое спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 10:50
    #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, 11:02
    #35619768
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
авторi As ByteМаловато будет ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 11:08
    #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:09
    #35619791
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
почему мало?
255 объектов по любак норм
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 11:09
    #35619794
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
онож не на все объекты, а только на конкретные
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2008, 11:12
    #35619802
xbz
xbz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
зы есть минус если открыта форма, а она будет открыта потому что высчелкаете мышкой по кнопке, она скрыта не будет, да и хер с ней, её и руками скрыть мона
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
19.07.2014, 23:56
    #38701131
Антон68
Антон68
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
Доброго времени суток.
Код замечательный, однако скрываются таблицы и не отображаются при выборе пункта "отображать скрытые"
При попытке создать запрос выкидывает ошибка что ядро ms access не обнаружило объект.
Подскажите чем мона вылечить беду?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2014, 05:37
    #38701156
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как сделать все объекты скрытыми?
Запросы не скрылись..............??????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2014, 12:13
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как сделать все объекты скрытыми? / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 421ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1616612]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 134ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 211ms
total:  421ms
x
x
Закрыть


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