Вопрос : Таблицы мостовья и Unhide, вопросы, формы, Кодий, etc

Hi специалисты,

I не знают куда я получаю это Кодего от, только I судимое испытать его, он дает «предмет инвалидный или не более длиной установленные» error.

I имеют таблицу которые хранят все ids имени пользователя которые составили карту к или «Admin» или «потребителю», если имя пользователя интранета персоны показывает, то он будет «потребителем», тогда все таблицам/вопросы/формы/Кодий нужно быть спрятанным, друг они будут visible.

Can любым сразу я на как выполнить это?

Thanks заранее ~ class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
class= " notpretty " >Public Sub HideUnhide id= " codeSnippet857224 " 
 «коммутатор» после этого
                acForm Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
            Закончитесь если
        Затем
    Конец с

    С CurrentDb.Containers («модули»)
        Для I = 0 к. Documents.Count - 1
            acModule Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
        Затем
    Конец с

    С CurrentDb.Containers («таблицы»)
        Для I = 0 к. Documents.Count - 1
            Application.SetHiddenAttribute acTable. Документы (I). Назовите, blHidden
        Затем
    Конец с

    С CurrentDb.Containers («вопросы»)
        Для I = 0 к. Documents.Count - 1
            acQuery Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
        Затем
    Конец с

Подводная лодка конца
class=

Ответ : Таблицы мостовья и Unhide, вопросы, формы, Кодий, etc

попытайтесь это

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:

Общественное Sub HideUnhide (blHidden как булевско)
    
    Затемните I как интежер, db как DAO.Database
    Установите db = CurrentDb
    
    С db. Контейнеры («формы»)
        Для I = 0 к. Documents.Count - 1
            Если. Документы (I). Имя <> «коммутатор» после этого
                acForm Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
            Закончитесь если
        Затем
    Конец с

    С db. Контейнеры («модули»)
        Для I = 0 к. Documents.Count - 1
            acModule Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
        Затем
    Конец с

    С db. Контейнеры («таблицы»)
        Для I = 0 к. Documents.Count - 1
            Если. Документы (I). Имя любит «msys*» или. Документы (I). Имя любит «~*» после этого
            Еще
            Application.SetHiddenAttribute acTable. Документы (I). Назовите, blHidden
            Закончитесь если
        Затем
    Конец с

    С db. Контейнеры («вопросы»)
        Для I = 0 к. Documents.Count - 1
            acQuery Application.SetHiddenAttribute. Документы (I). Назовите, blHidden
        Затем
    Конец с

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us