🚀 go-pugleaf

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Esta misma cuestion la tienes respondida en el grupo de
microsoft.public.es.acces, te la transcribo:

Aqui tienes dos funciones, extraidas de la web del Buho: La primera
deshabilita y la segunda habilita.

Option Compare Database
Option Explicit

Function ap_DisableShift()

    On Error GoTo errDisableShift

    Dim db As Database
    Dim prop As 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 ap_EnableShift()

    On Error GoTo errEnableShift

    Dim db As Database
    Dim prop As Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()
    db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:

    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, True)
        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

Espero te sirvan como a mi me han servido, la verdad es que van muy
bien.
Un saludo.

Enderjcp

visita: http://webs.ono.com/artreide


"listero" <jj.2@wanadoo.es> escribi� en el mensaje
news:b0c9u8$7lt$1@reader2.wnet...
> Hola grupo, tengo una pregunta, o duda.
> Quisiera saber si se puede anular la tecla mayuscula al iniciar una
> base de datos, para q nadie pueda entrar en ella, en modo dise�o.
> O si no se puede q detecte si esa tecla esta presionada y q te pida
> una contrase�a q previamente yo halla guardado en la bd.
>
> Muchas gracias a todos.
>

-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 6.5.8 for non-commercial use <http://www.pgp.com>

iQA/AwUBPim52xGfdo4AyYlWEQJ4XwCgsih6dYf9/078eBk8e9gAO443FMMAoMKK
Quko4oT6c9K/9GH5U+USVgab
=0Rwe
-----END PGP SIGNATURE-----