Question : Tables de peau et d'Unhide, questions, formes, code, etc.

Salut les experts, le

I ne savent pas d'où j'obtiens ce code, est-ce que mais j'ai essayé de l'examiner, donne-t-il un « objet inadmissible ou » error.

I ont-ils une table qui stockent tous les ids d'ouverture qui ont tracé au « Admin » ou au « utilisateur », si l'ouverture de l'intranet de la personne indique-t-elle est-il un « utilisateur », alors toutes les tables/questions/formes/code doit-elles être cachées, d'autre elles sont visible.

Can n'importe qui direct je sur la façon dont accomplir ceci ?

Thanks à l'avance ~ class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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= HideUnhide secondaire >Public " notpretty " de l'id= " codeSnippet857224 " de 
 nommé « standard » puis
                acForm d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
            Finir si
        Après
    Extrémité avec

    Avec CurrentDb.Containers (« modules »)
        Pour I = 0 à. Documents.Count - 1
            acModule d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
        Après
    Extrémité avec

    Avec CurrentDb.Containers (« Tableaux »)
        Pour I = 0 à. Documents.Count - 1
            Application.SetHiddenAttribute jouable. Documents (i). Appeler, blHidden
        Après
    Extrémité avec

    Avec CurrentDb.Containers (« questions »)
        Pour I = 0 à. Documents.Count - 1
            acQuery d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
        Après
    Extrémité avec

Sous-marin d'extrémité
class= de

Réponse : Tables de peau et d'Unhide, questions, formes, code, etc.

essayer ceci

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 :

HideUnhide secondaire public (blHidden comme booléen)
    
    Obscurcir I comme nombre entier, DB comme DAO.Database
    Placer DB = CurrentDb
    
    Avec le DB. Récipients (« formes »)
        Pour I = 0 à. Documents.Count - 1
            Si. Documents (i). Nom <> « standard » puis
                acForm d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
            Finir si
        Après
    Extrémité avec

    Avec le DB. Récipients (« modules »)
        Pour I = 0 à. Documents.Count - 1
            acModule d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
        Après
    Extrémité avec

    Avec le DB. Récipients (« Tableaux »)
        Pour I = 0 à. Documents.Count - 1
            Si. Documents (i). Le nom aiment le « msys* » ou. Documents (i). Le nom aiment le « ~* » alors
            Autrement
            Application.SetHiddenAttribute jouable. Documents (i). Appeler, blHidden
            Finir si
        Après
    Extrémité avec

    Avec le DB. Récipients (« questions »)
        Pour I = 0 à. Documents.Count - 1
            acQuery d'Application.SetHiddenAttribute. Documents (i). Appeler, blHidden
        Après
    Extrémité avec

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us