Vraag : Huid en lijsten Unhide, vragen, vormen, code, enz.

Hallo weten geeft plaatsen de Deskundigen,

I niet waar ik deze code van krijg, maar ik probeerden om het te testen, het een „ongeldig Voorwerp of“ niet meer error.

I een hebben lijst die al login ids dat in kaart gebracht aan of „Admin“ of „Gebruiker“, als het Intranetlogin van de persoon wijst op he/she zijn een „Gebruiker“ opslaan, dan alle lijsten/vragen/vormen/code moeten worden verborgen, anders zijn zij visible.

Can direct iedereen me op hoe te om dit te verwezenlijken?

Thanks vooraf ~
" codeBody " 
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 SubHideUnhide (blHidden Van Boole)

    Verduister I als Geheel
    
    Met CurrentDb.Containers („Vormen“)
        Voor I = 0 aan. Documents.Count - 1
            Als. Documenten (I). Naam <> „Schakelbord“ toen
                Application.SetHiddenAttribute acForm. Documenten (I). De naam, blHidden
            Beëindig als
        Daarna
    Eind met

    Met CurrentDb.Containers („Modules“)
        Voor I = 0 aan. Documents.Count - 1
            Application.SetHiddenAttribute acModule. Documenten (I). De naam, blHidden
        Daarna
    Eind met

    Met CurrentDb.Containers („Lijsten“)
        Voor I = 0 aan. Documents.Count - 1
            acTable Application.SetHiddenAttribute. Documenten (I). De naam, blHidden
        Daarna
    Eind met

    Met CurrentDb.Containers („Vragen“)
        Voor I = 0 aan. Documents.Count - 1
            acQuery van Application.SetHiddenAttribute. Documenten (I). De naam, blHidden
        Daarna
    Eind met

Sub van het eind

Antwoord : Huid en lijsten Unhide, vragen, vormen, code, enz.

probeer dit

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:

Openbare SubHideUnhide (blHidden Van Boole)
    
    Verduister I als Geheel, db als DAO.Database
    Plaats db = CurrentDb
    
    Met db. Containers („Vormen“)
        Voor I = 0 aan. Documents.Count - 1
            Als. Documenten (I). Naam <> „Schakelbord“ toen
                Application.SetHiddenAttribute acForm. Documenten (I). De naam, blHidden
            Beëindig als
        Daarna
    Eind met

    Met db. Containers („Modules“)
        Voor I = 0 aan. Documents.Count - 1
            Application.SetHiddenAttribute acModule. Documenten (I). De naam, blHidden
        Daarna
    Eind met

    Met db. Containers („Lijsten“)
        Voor I = 0 aan. Documents.Count - 1
            Als. Documenten (I). Naam zoals „msys*“ of. Documenten (I). Naam zoals „~*“ toen
            Anders
            acTable Application.SetHiddenAttribute. Documenten (I). De naam, blHidden
            Beëindig als
        Daarna
    Eind met

    Met db. Containers („Vragen“)
        Voor I = 0 aan. Documents.Count - 1
            acQuery van Application.SetHiddenAttribute. Documenten (I). De naam, blHidden
        Daarna
    Eind met

Sub van het eind
Andere oplossingen  
 
programming4us programming4us