Microsoft Access viene con la suite de Microsoft Office productividad. Cuando se ejecuta el software, si se pulsa la tecla "Shift", puede omitir varias opciones de puesta en marcha que de otro modo sería muy útil. Esta capacidad de evitar estas opciones puede obstaculizar el progreso de su proyecto, perdiendo tiempo valioso. Los usuarios pueden eliminar esta opción de modo que están obligados a realizar las opciones de inicio cada vez. El proceso requiere un poco de codificación y es diferente dependiendo de si se trata de un proyecto de Access o base de datos.
Instrucciones
La desactivación de la tecla de mayúsculas para los proyectos de Access (.adp archivo)
1 Acceso abierto.
2 Abra el archivo de proyecto, vaya a "Archivo", luego "Abrir".
3 Pulse la tecla "ALT" y la tecla "F11" en el teclado. Esto abrirá el "Editor de Visual Basic."
4 Haga clic en "Ver" y luego "Ventana Inmediato."
5 Escriba el siguiente código, proporcionado por Microsoft, en la "ventana Inmediato:"
CurrentProject.Properties.Add "AllowBypassKey", False
Haga clic en "Enter".
6 Cierre el editor.
7 Guarde su trabajo y reinicie Access.
La desactivación de la tecla de mayúsculas para la base de datos Access (.mdb o .accdb archivos)
8 Acceso abierto.
9 Crear un nuevo módulo, vaya a "Objetos", luego "Módulos" en la ventana "Base de datos".
10 Añadir esta función, proporcionado por Microsoft, en el módulo:
ap_DisableShift función ()
'Esta función desactiva el cambio en el inicio. Este causas de acción
'Las propiedades macro y de inicio de Autoexec siempre ser ejecutados.
On Error GoTo errDisableShift
Dim db Como DAO.Database
Dim prop como DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
'Esta línea siguiente desactiva la tecla de mayúsculas en el arranque.
db.Properties ( "AllowBypassKey") = False
'La función tiene éxito.
Función de salida
errDisableShift:
'La primera parte de esta rutina de error crea el "AllowBypassKey
'Propiedad si no existe.
Si Err = Entonces conPropNotFound
Conjunto prop = db.CreateProperty ( "AllowBypassKey", _
dbBoolean, False)
prop db.Properties.Append
Resume Next
Más
MsgBox "Función 'ap_DisableShift' no se completó correctamente."
Función de salida
Terminara si
End Function
11 Añadir esta segunda función inmediatamente después de la que ha insertado en el último paso:
ap_EnableShift función ()
'Esta función permite que la tecla SHIFT en el inicio. Este causas de acción
'Autoexec la macro y las propiedades de inicio para ser anuladas
'Si el usuario mantiene pulsada la tecla SHIFT cuando el usuario abre la base de datos.
On Error GoTo errEnableShift
Dim db como DAO.Database
Dim prop como DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
"Esta línea de código siguiente deshabilita la tecla SHIFT en el inicio.
db.Properties ( "AllowBypassKey") = true
"Función exitosa
Función de salida
errEnableShift:
'La primera parte de esta rutina de error crea el "AllowBypassKey
'Propiedad si no existe.
Si Err = Entonces conPropNotFound
Conjunto prop = db.CreateProperty ( "AllowBypassKey", _
dbBoolean, True)
prop db.Properties.Append
Resume Next
Más
MsgBox "Función 'ap_DisableShift' no se completó correctamente."
Función de salida
Terminara si
End Function
12 Abra el Editor de Visual Basic presionando la tecla "ALT" y las teclas de "F11" en el teclado de nuevo.
13 Haga clic en "Ver" y luego "Ventana Inmediato."
14 Tipo "ap_DisableShift" en la "ventana Inmediato" para deshabilitar el uso de la tecla "Shift".