He dividido la base de datos. Hice un Procedimiento de Evento en carga. DoCmd.ShowToolbar "Ribbon", acToolbarNo para ocultar la barra de herramientas de la cinta.
Ahora quiero crear la versión ACCDE para distribuir el front-end de mi base de datos. Mi problema es que no puedo crear una versión ACCDE cuando la barra de herramientas de la cinta no está visible. También si creo ACCDE antes DoCmd.ShowToolbar "Ribbon", acToolbarNo No puedo hacer esto porque ACCDE deshabilitará la vista de diseño de los formularios.
¿Cuál es la mejor solución para esto? Me gustaría que la cinta esté oculta como está con DoCmd.ShowToolbar "Ribbon", acToolbarNo.
Respuestas
0 para la respuesta № 1Si tiene un formulario que se carga en el inicio, el siguiente código en su On_Load Event activará la cinta de opciones cuando esté diseñando formularios y la desactivará cuando envíe una versión a sus usuarios.
If LCase(Right(CurrentDb.Name, 3)) = "mdb" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accde" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accdr" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If