désactiver la touche maj au démarrage de ms-access

Problème: Dans microsoft Access, vous pouvez tenir la touche maj quand ouverture une base de données afin de de contournement de Démarrage options et les AutoExec Script. Je veux désactiver en permanence cette.

Tout d'abord, je sais que cela a été répondu sur de nombreux autres sites, cependant je ne pouvais pas trouver une question à ce sujet ici, mais j'ai un peu différente de besoin.Les solutions que j'ai trouvées étaient axées sur le placement des boutons invisibles pour le ré-activer, maintenez la touche maj touche de raccourci avec les mots de passe etc.

Je veux un solution très simple. Je veux un script que je peux ajouter à mon AutoExec script pour désactiver la maj touche de raccourci ou quelque chose comme ça.

Je N'avez PAS besoin d'un moyen de réactiver la maj touche de raccourci.

La plus simple, la plupart des sécurisé, et plus facile façon de le faire est préféré.

Merci!

Avez-vous vérifié l'Accès VBE fichier d'aide en vertu de AllowBypassKey? Le Code est disponible dans le fichier d'aide. Comme pour la sécurité, c'est une autre paire de manches, comme n'importe qui avec un peu de connaissances en programmation pourrait désactiver vos paramètres, même si vous avez sécurisé votre extrémité avant à l'aide de Jet de sécurité de niveau utilisateur.
non désolé, je ne savais même pas il y a un fichier d'aide. J'utilise l'accès que très peu et n'visual basic dans l'accès même moins. Dans la plupart des cas .net et MsSql genre de chose. Merci pour l'info cependant.

OriginalL'auteur kralco626 | 2010-11-15

  1. 8

    J'ai toujours utilisé ce morceau de code

    Function SetBypass(rbFlag As Boolean, File_name As String) As Integer
    DoCmd.Hourglass True
    On Error GoTo SetBypass_Error
    Dim db As Database
    Set db = DBEngine(0).OpenDatabase(File_name)
    db.Properties!AllowBypassKey = rbFlag
setByPass_Exit:
    MsgBox "Changed the bypass key to " & rbFlag & " for database " & File_name, vbInformation, "Skyline Shared"
    db.Close
    Set db = Nothing
    DoCmd.Hourglass False
    Exit Function


SetBypass_Error:
    DoCmd.Hourglass False
    If Err = 3270 Then
        ' allowbypasskey property does not exist
        db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean, rbFlag)

        Resume Next
    Else
        ' some other error message
        MsgBox "Unexpected error: " & Error$ & " (" & Err & ")"
        Resume setByPass_Exit
    End If
End Function

    Vous faire passer un nom de fichier et puis dites si vous voulez que la clé de contournement pour être activé ou non.

    Le problème est que n'importe qui d'autre avec ce code peut l'utiliser pour “Débloquer” votre base de données et activer la clé de contournement.

    La seule façon que je peux penser pour contourner ce serait uniquement à donner aux utilisateurs la version runtime d'access

    où/comment puis-je faire fonctionner ce script? et si je l'ai fait et en fait le fichier d'accès en lecture seulement qui les empêchent de le changer en arrière?
    Vous pouvez le mettre dans un autre “Utilité” de la base de données ou vous pouvez les mettre dans un module sur votre existantes. Vous l'appelez comme ça SetBypass False, "C:\MyDatabase.mdb"
    a très bien fonctionné. J'ai mis ce code dans un nouveau Module et de mettre cette ligne de code dans mon formulaire la fonction de charge. Le formulaire est chargé par le autoexec script de sorte qu'il doit exécuter chaque fois que la base de données est ouverte.
    Une question, comment avez-vous l'ajouter à la autoexec script ?

    OriginalL'auteur Kevin Ross