| Pregunta: | 14761 - INICIO DE APLICACION EN ACCESS |
| Autor: | JAVIER NAVARRO CASADO |
| Buenas noches: ¿Como puedo conseguir que al iniciar una aplicación en Access, me aparezca en pantalla solamente el formulario de inicio sin la ventana de base de datos de Access, barra de menús , barra de herramientas, barrade estado, ni ninguna otra cosa? Gracias por la ayuda | |
| Respuesta: | Berenice Leal |
| Es muy sencillo lo que tienes que hacer: Haz un modulo y pon lo siguiente: /////////////////Codigo del Modulo////////////////////////// 'Referencia necesaria: Microsoft DAO 3.6 Object Library Option Compare Database Option Explicit Function ap_DisableShift() On Error GoTo errDisableShift Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowByPassKey") = False Exit Function errDisableShift: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function ShowDBWindow() On Error GoTo ShowDBWindow1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("StartupShowDBWindow") = False Exit Function ShowDBWindow1: If Err = conPropNotFound Then Set prop = db.CreateProperty("StartupShowDBWindow", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function ShowStatusBar() On Error GoTo ShowStatusBar1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("StartupShowStatusBar") = False Exit Function ShowStatusBar1: If Err = conPropNotFound Then Set prop = db.CreateProperty("StartupShowStatusBar", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function AllowBuiltinToolbars() On Error GoTo BuiltinToolbars1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowBuiltinToolbars") = False Exit Function BuiltinToolbars1: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowBuiltinToolbars", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function FullMenus() On Error GoTo FullMenus1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowFullMenus") = False Exit Function FullMenus1: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowFullMenus", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function ToolbarChanges() On Error GoTo ToolbarChanges1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowToolbarChanges") = False Exit Function ToolbarChanges1: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowToolbarChanges", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function SpecialKeys() On Error GoTo SpecialKeys1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowSpecialKeys") = False Exit Function SpecialKeys1: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowSpecialKeys", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function Function ShortcutMenus() On Error GoTo ShortcutMenus1 Dim db As DAO.Database, prop As DAO.Property Const conPropNotFound = 3270 Set db = CurrentDb db.Properties("AllowShortcutMenus") = False Exit Function ShortcutMenus1: If Err = conPropNotFound Then Set prop = db.CreateProperty("AllowShortcutMenus", dbBoolean, False) db.Properties.Append prop Resume Next Else MsgBox Err.NUMBER & " / " & Err.DESCRIPTION, vbInformation + vbOKOnly, "A V I S O" Exit Function End If End Function ///////// Fin Modulo//////////////////// En el Load de tu forma pon el sigueinte Codigo: Private Sub Form_Load() Call ShowDBWindow Call ShowStatusBar Call AllowBuiltinToolbars Call FullMenus Call ToolbarChanges Call SpecialKeys Call ShortcutMenus End Sub Lo que hace este codigo es que deshabilita las propiedades y asi no te aparece nada al entrar. Y si quieres entrar en diseño puedes hacerlo con el Shift ya si despues necesites que te muestre otras cosas pues lo haces directamente desde el menu TOOLS->StartUp. | |
| Respuesta: | Luis Fernando Melo |
| Para quitar las opciones que dices ve al menu herramientas/inicio... Aqui encontraras como quitar lo que tu dices. en un sola ventana .. es muy sencilo pruebalo. | |
| Respuesta: | Jorge Valencia |
| Hola Javier. Espero esto te pueda ayudar. Abre tu aplicación, selecciona del menú Herramientas la opción Inicio; Allí encontrarás todas las respuestas a las dudas que planteas. Estas opciones son verdaderamente sencillas de aplicar, solamente estimo conveniente hacerte una recomendación y es por si llegas a desactivar la opción que Permite el uso de las barras de herramientas incorporadas, o la opción que desactiva el uso de las teclas especiales de Access (esta la encontrarás oprimiendo el botón Avanzadas). Si estas opciones (especialmente la segunda) están desactivadas, la proxima vez que entres a tu aplicación no podrás tener acceso a la ventana de base de datos (la cual necesitarás en algún momento para hacerle alguna modificación a tu aplicación). Pero no te preocupes que esto se soluciona manteniendo oprimida la tecla Shift desde tu teclado (perdón por la redundancia) al mismo tiempo que das clic al nombre del archivo que contiene tu aplicación. De esta manera Microsoft Access te mostrará nuevamente la ventana de base de datos y todos felices !. Bye | |