La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    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