Frage : Fell- und Unhidetabellen, Fragen, Formen, Code, usw.

Hallo wissen Experten,

I, wohin nicht ich diesen Code von erhalte, aber ich versuchte, ihn zu prüfen, gibt er einen „unzulässigen Gegenstand, oder nicht mehr eingestellte“ error.

I haben eine Tabelle, die alle LOGON Ids speichern, die entweder „zu Admin“ oder „zum Benutzer“ abbildeten, wenn anzeigt der Intranet-LOGON der Person, ist he/she ein „Benutzer“, dann muss alle Tabellen/Fragen/Formen/Code versteckt werden, sonst sie sind visible.

Can direktes jemand ich auf, wie man dieses vollendet?

Thanks im Voraus ~ 
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:

Public VorHideUnhide (blHidden, wie Boolesch)

    I als ganze Zahl verdunkeln
    
    Mit CurrentDb.Containers („Formen“)
        Für i = 0 zu. Documents.Count - 1
            Wenn. Dokumente (i). Namens<> „Schalttafel“ dann
                Application.SetHiddenAttribute acForm. Dokumente (i). Nennen, blHidden
            Beenden wenn
        Zunächst
    Ende mit

    Mit CurrentDb.Containers („Module“)
        Für i = 0 zu. Documents.Count - 1
            Application.SetHiddenAttribute acModule. Dokumente (i). Nennen, blHidden
        Zunächst
    Ende mit

    Mit CurrentDb.Containers („Tabellen“)
        Für i = 0 zu. Documents.Count - 1
            Application.SetHiddenAttribute acTable. Dokumente (i). Nennen, blHidden
        Zunächst
    Ende mit

    Mit CurrentDb.Containers („Fragen“)
        Für i = 0 zu. Documents.Count - 1
            Application.SetHiddenAttribute acQuery. Dokumente (i). Nennen, blHidden
        Zunächst
    Ende mit

Enden-Unterseeboot

Antwort : Fell- und Unhidetabellen, Fragen, Formen, Code, usw.

dieses versuchen

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:

Allgemeines VorHideUnhide (blHidden, wie Boolesch)
    
    I als ganze Zahl, DB verdunkeln als DAO.Database
    Einstellen DB = CurrentDb
    
    Mit DB. Behälter („Formen“)
        Für i = 0 zu. Documents.Count - 1
            Wenn. Dokumente (i). Name <> „Schalttafel“ dann
                Application.SetHiddenAttribute acForm. Dokumente (i). Nennen, blHidden
            Beenden wenn
        Zunächst
    Ende mit

    Mit DB. Behälter („Module“)
        Für i = 0 zu. Documents.Count - 1
            Application.SetHiddenAttribute acModule. Dokumente (i). Nennen, blHidden
        Zunächst
    Ende mit

    Mit DB. Behälter („Tabellen“)
        Für i = 0 zu. Documents.Count - 1
            Wenn. Dokumente (i). Name mögen „msys*“ oder. Dokumente (i). Name mögen „~*“ dann
            Sonst
            Application.SetHiddenAttribute acTable. Dokumente (i). Nennen, blHidden
            Beenden wenn
        Zunächst
    Ende mit

    Mit DB. Behälter („Fragen“)
        Für i = 0 zu. Documents.Count - 1
            Application.SetHiddenAttribute acQuery. Dokumente (i). Nennen, blHidden
        Zunächst
    Ende mit

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us