Fråga : Skinnet och Unhide bordlägger, queries, bildar, kodifierar, etc.

Hi experter,

I vet inte var mig får detta kodifierar från, men jag försökte att testa den, den ger ”anmärker ogiltigt, eller ej längre uppsättningen” error.

I har en bordlägga som lagrar alla inloggningsids, som kartlade till endera ”Admin” eller ”användaren”, om personens intranetinloggningen indikerar, hon är ”en användare”, då allt bordlägger/queries/bildar/kodifierar behov att döljas, annat dem är visible.

Can som någon riktar mig på hur man utför detta?

Thanks i advance~ > för 
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:
" codeBody " class= " notpretty " >Public underHideUnhide för ”Switchboard” därefter Application.SetHiddenAttribute-acForm. Dokument (I). Namnge, blHidden Avsluta om Därefter Avsluta med Med CurrentDb.Containers (”enheter”) För I = 0 till. Documents.Count - 1 Application.SetHiddenAttribute-acModule. Dokument (I). Namnge, blHidden Därefter Avsluta med Med CurrentDb.Containers (”bordlägger”), För I = 0 till. Documents.Count - 1 acTable Application.SetHiddenAttribute. Dokument (I). Namnge, blHidden Därefter Avsluta med Med CurrentDb.Containers (”Queries”) För I = 0 till. Documents.Count - 1 Application.SetHiddenAttribute-acQuery. Dokument (I). Namnge, blHidden Därefter Avsluta med Avsluta suben
" klar "

Svar : Skinnet och Unhide bordlägger, queries, bildar, kodifierar, etc.

försök detta

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:

Offentliga underHideUnhide (blHidden som Boolean),
    
    Dunkelt I som heltalet, db som DAO.Database
    Uppsättning db = CurrentDb
    
    Med db. Behållare (”bildar”),
        För I = 0 till. Documents.Count - 1
            Om. Dokument (I). Namnge <> ”switchboarden” därefter
                Application.SetHiddenAttribute-acForm. Dokument (I). Namnge, blHidden
            Avsluta om
        Därefter
    Avsluta med

    Med db. Behållare (”enheter”)
        För I = 0 till. Documents.Count - 1
            Application.SetHiddenAttribute-acModule. Dokument (I). Namnge, blHidden
        Därefter
    Avsluta med

    Med db. Behållare (”bordlägger”),
        För I = 0 till. Documents.Count - 1
            Om. Dokument (I). Namnge något liknande ”msys*” eller. Dokument (I). Namnge något liknande ”~*” därefter
            Annars
            acTable Application.SetHiddenAttribute. Dokument (I). Namnge, blHidden
            Avsluta om
        Därefter
    Avsluta med

    Med db. Behållare (”Queries”)
        För I = 0 till. Documents.Count - 1
            Application.SetHiddenAttribute-acQuery. Dokument (I). Namnge, blHidden
        Därefter
    Avsluta med

Avsluta suben
Andra lösningar  
 
programming4us programming4us