CurrentDb.Properties

[jacw]

Ik heb een database Die opstart met frmHoofdmenu of frmSuperuser. Dit werkt allemaal perfect. Als ik normaal inlog werkt de functie ALT-F11 niet. nu kan ik als ik inlog als Superuser er voor zorgen dat bij de volgende start ALT-F11 wel werkt en als ik weer uitlog na een onderhoud via een andere knop Access sluit weer af en de ALT-F11 werkt niet.


Kan de VBA ook eenvoudiger dat ik niet elke keer De hele Datbase moet afsluiten, en alleen ALT-F11 kan of aan of uitzetten?

Huidige code:

Private Sub GM_aan_Click()
CurrentDb.Properties("AllowSpecialKeys") = True ' Schakelt speciale toetsen in

SchrijfLog "Aanmelden onderhoud"
    On Error Resume Next

    SetAllowBypassKey True
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide
    DoCmd.Quit acQuitSaveAll
End Sub

Private Sub GMUIT_Click()
CurrentDb.Properties("AllowSpecialKeys") = False ' Schakelt speciale toetsen uit

SchrijfLog "Afgemelden onderhoud"
    On Error Resume Next

    'Uit te voeren acties
    SetAllowBypassKey False
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.Quit acQuitSaveAll
End Sub

Met groet,
JacW