¿Ocultar formularios?

03/07/2003 - 18:15 por ZX81 | Informe spam
Buenas

La función de Chea:

Public Sub OcultaTodasTablas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next

End Sub

oculta tablas. ¿Podría hacerse lo mismo, pero ocultando el resto de objetos
del proyecto (formularios y reportes principalmente)?

Saludos
 

Leer las respuestas

#1 McPegasus
03/07/2003 - 19:13 | Informe spam
Hola Z81,

para los formulario es mucho más fácil, tienes un evento que se llama Al
Descargar (Form_Unload) con una variable, Cancel, pues si quieres hacer ese
form invisible cambias el estado de la variable a False y dentro de ese
evento también cambias el estado de visible del formulario a False

Para los informes, pues nunca lo he echo y no hay ningún evento como en los
formularios, me imagino que si tendrás que echar mano a las colecciones.

Suerte.




Filosofía compartida: "regalamos conocimientos, no tiempo."

Un Saludo,

Rafael Andrada C.
Valencia (es)

[MVP - Access MS]

www.mcpegasus.com

"ZX81" <zx81@*/-estosobra-/*wosaap.com> escribió en el mensaje
news:
Buenas

La función de Chea:

Public Sub OcultaTodasTablas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next

End Sub

oculta tablas. ¿Podría hacerse lo mismo, pero ocultando el resto de


objetos
del proyecto (formularios y reportes principalmente)?

Saludos


Preguntas similares