Cuestión : Tablas de la piel y de Unhide, preguntas, formas, código, etc

¿Hola los expertos,

I no saben de adónde consigo este código, pero intenté probarlo, da un “objeto inválido o” error.

I tienen una tabla que almacenen todos los ids de la conexión que trazaron al “Admin” o al “usuario”, si la conexión del intranet de la persona indica él es un “usuario”, después todas las tablas/preguntas/formas/código necesitan ser ocultadas, otro ellas son visible.

Can cualquier persona directo yo en cómo lograr esto?

Thanks por adelantado ~ class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 secundario >Public " notpretty " del id= " codeSnippet857224 " del 
 conocido “centralita telefónica” entonces
                acForm de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
            Terminar si
        Después
    Extremo con

    Con CurrentDb.Containers (“módulos”)
        Para i = 0 a. Documents.Count - 1
            acModule de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
        Después
    Extremo con

    Con CurrentDb.Containers (“tablas”)
        Para i = 0 a. Documents.Count - 1
            Application.SetHiddenAttribute acTable. Documentos (i). Nombrar, blHidden
        Después
    Extremo con

    Con CurrentDb.Containers (“preguntas”)
        Para i = 0 a. Documents.Count - 1
            acQuery de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
        Después
    Extremo con

Submarino del extremo
class= del

Respuesta : Tablas de la piel y de Unhide, preguntas, formas, código, etc

intentar esto

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 secundario público (blHidden como boleano)
    
    Amortiguar i como número entero, DB como DAO.Database
    Fijar DB = CurrentDb
    
    Con el DB. Envases (“formas”)
        Para i = 0 a. Documents.Count - 1
            Si. Documentos (i). Nombre <> “centralita telefónica” entonces
                acForm de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
            Terminar si
        Después
    Extremo con

    Con el DB. Envases (“módulos”)
        Para i = 0 a. Documents.Count - 1
            acModule de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
        Después
    Extremo con

    Con el DB. Envases (“tablas”)
        Para i = 0 a. Documents.Count - 1
            Si. Documentos (i). El nombre tiene gusto del “msys*” o. Documentos (i). El nombre entonces tiene gusto del “~*”
            
            Application.SetHiddenAttribute acTable. Documentos (i). Nombrar, blHidden
            Terminar si
        Después
    Extremo con

    Con el DB. Envases (“preguntas”)
        Para i = 0 a. Documents.Count - 1
            acQuery de Application.SetHiddenAttribute. Documentos (i). Nombrar, blHidden
        Después
    Extremo con

Submarino del extremo
Otras soluciones  
 
programming4us programming4us