Imprimir página | Cerrar ventana

código para opciones B.D.

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86256
Fecha de impresión: 27/Marzo/2026 a las 04:08


Tema: código para opciones B.D.
Publicado por: Kublai
Asunto: código para opciones B.D.
Fecha de publicación: 12/Febrero/2022 a las 10:18
Hola
Estoy haciendo una base de datos que luego compartiré en red en el trabajo.
Me gustaría asignar a una tecla de función (o a un botón en el menú principal) el código necesario para ocultar/no ocultar el panel de navegación y para permitir/no permitir el uso de menús restringidos y menús contextuales, de forma que cuando tenga que hacer algún cambio, resulte más cómodo que entrar en archivo-opciones, etc., y mientras no haga cambios todo esté oculto y sin acceso.
Podríais ayudarme?. Soy bastante novato en todo ésto...
Muchas gracias.



Respuestas:
Publicado por: xavi
Fecha de publicación: 14/Febrero/2022 a las 18:54
Hola,

Mira los métodos GetOption (para obtener) y SetOption (para establecer) del objeto Application. Verás que la ayuda viene bastante bien explicado.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: Kublai
Fecha de publicación: 15/Febrero/2022 a las 09:05
Hola.
He intentado ésto, pero no da resultado. Creo que la solución va por ahí, pero no se traducirlo bien a código vba:

Application.SetOption "AllowFullMenus", False
Application.SetOption "AllowShortcutMenus", False




Publicado por: Kublai
Fecha de publicación: 25/Julio/2023 a las 09:26
Agradecería que cerrárais este hilo. Gracias.


Publicado por: Mihura
Fecha de publicación: 25/Julio/2023 a las 10:09
Prueba así:
Currentdb.Properties("AllowFullMenus")= False


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Kublai
Fecha de publicación: 25/Julio/2023 a las 10:17
Muchas gracias. Solucionado. Por favor, podemos cerrar el hilo.



Imprimir página | Cerrar ventana