Desactivación de la tecla de mayúsculas para los proyectos de Access ( archivo. Adp )
1
libre acceso.
2
Abra el archivo de proyecto , vaya a "Archivo " luego " Abrir".
3
Pulse la tecla " ALT " y la tecla "F11 " en su 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 : " . " Enter".
CurrentProject.Properties.Add " AllowBypassKey " , False
Hit
6
Cierre el editor
7
Guarde su trabajo y reinicie Access .
Desactivación de la tecla de mayúsculas para la base de datos de Access (. mdb o . accdb )
8
Acceso Abierto.
9
Crear un nuevo módulo , vaya a " objetos ", luego "Módulos " en la ventana "Base de datos " .
10
Agregar esta función , siempre por Microsoft , en el módulo:
Función ap_DisableShift ()
' Esta función de bloqueo del cambio en el inicio. Esta acción hace que
' la macro Autoexec y las propiedades de inicio que se ejecutarán siempre .
On Error GoTo errDisableShift
db As DAO.Database
Dim sostener que DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
' Esta línea siguiente inhabilita la tecla de mayúsculas al inicio.
db.properties ( " AllowBypassKey ") = False
' La función tiene éxito
Exit función
errDisableShift : .
' La primera parte de este rutina de error crea "propiedad AllowBypassKey
' si no existe.
Si Err = conPropNotFound Entonces
Set prop = db.CreateProperty (" el AllowBypassKey ", _
dbBoolean , False )
db.Properties.Append apuntalar
Resume Next
demás
MsgBox "Function " ap_DisableShift ' no lo hizo completar con éxito. "
Exit función
End If End Function
11
Añade esta segunda función inmediatamente después de la que ha insertado en el último paso :
Función ap_EnableShift ()
' . Esta función permite a la tecla SHIFT en el arranque Esta acción hace que
' la macro Autoexec y las propiedades de inicio que desea anular
' si el usuario mantiene pulsada la tecla SHIFT cuando el usuario abre la base de datos .
On Error GoTo errEnableShift
db Dim como DAO.Database
Dim sostener que DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb ()
' la siguiente línea de código que desactiva la tecla SHIFT en el inicio.
< p> db.properties ( " AllowBypassKey ") = "función éxito
Exit función
errEnableShift :
-Cierto
La primera parte de este error rutina crea "propiedad AllowBypassKey
' si no existe.
Si Err = conPropNotFound Entonces
Set prop = db.CreateProperty (" el AllowBypassKey ", _
dbBoolean , True)
db.Properties.Append apuntalar
Resume Next
demás
MsgBox "Function " ap_DisableShift ' no se ha completado éxito ".
Exit Función
End If 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
Type " ap_DisableShift " en la " ventana Inmediato "para desactivar el uso de la tecla" Shift " .