Ocultar campos o formularios

   Se como se oculta un campo o lo que sea xxxx.visible=false.
Pero lo que me gustaria es saber es como diñesar.Cuanto tienes 6 botones y cada uno abre una cosa y cierra las otras.
Esto es un ejemplo:
    Private Sub cmdEntregas_Click()
       Me.SubEntregas.Visible = True
       Me.lblentregas.Visible = True
       Me.SubCitas.Visible = False
       Notas.Visible = False
       Me.SubFotos.Visible = False
       Me.SubDetaMateriales.Visible = False
       Me.SubDetaPersonal.Visible = False
End Sub
y asi multiplicado
Ah y otra cosa como se hace o dice para dar por cerrado un tema
Gracias de antemano a toda la comunidad.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
llulius Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 18/Diciembre/2015 Localización: vigo Estado: Sin conexión Puntos: 152	Tema: Ocultar campos o formularios Enviado: 14/Abril/2021 a las 09:13
	Se como se oculta un campo o lo que sea xxxx.visible=false. Pero lo que me gustaria es saber es como diñesar.Cuanto tienes 6 botones y cada uno abre una cosa y cierra las otras. Esto es un ejemplo: Private Sub cmdEntregas_Click() Me.SubEntregas.Visible = True Me.lblentregas.Visible = True Me.SubCitas.Visible = False Notas.Visible = False Me.SubFotos.Visible = False Me.SubDetaMateriales.Visible = False Me.SubDetaPersonal.Visible = False End Sub y asi multiplicado Ah y otra cosa como se hace o dice para dar por cerrado un tema Gracias de antemano a toda la comunidad.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14017	Enviado: 14/Abril/2021 a las 10:17
	Lo suyo es tener un procedimiento que 'oculte' todo, entonces al entrar a un botón lanzas el procedimiento que oculta todo y a continuación muestras lo que te interesa. Sub Cmd_xxxx() OcultarTodo Me.xxx.Visible = true Me.yyy.Visible = true End sub
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

llulius Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 18/Diciembre/2015 Localización: vigo Estado: Sin conexión Puntos: 152	Enviado: 14/Abril/2021 a las 11:16
	Gracias por la respuesta Mihura. Ahora con menos codigo hago lo mismo. Doy por cerrado el tema.