Follow Us:

Call us:  (306) 986-8888

Sign out of Computer Upon Exiting Access Database

Sign out of Computer Upon Exiting Access Database

If you ever come across a scenario where you want to sign the user out of the computer upon exiting Access database, then this guide will help you! In our scenario, a client has a remote server where the database launches upon login, and we want them to be logged off upon exit, to result in no access to the server itself.

Here are the steps:

You need to create a hidden form, as there is no default action to detect access closing. On the Access Ribbon, navigate to Create > Form Design. In the properties of the form under Event > On Unload put the following VBA code:

Private Sub Form_Unload(Cancel As Integer)
End Sub

Save the form. In our example, we named the form “frmLogOff”.

Next, we need to create an Auto Exec Macro which will launch our hidden form upon the opening of the database. Go to Create > Macro. In Form Name select “frmLogOff” and make sure to switch Window Mode to “Hidden”. Make sure to save the macro as “AutoExec” as its the default macro name that Access checks for upon load.

AutoExec Sign out upon exiting access database

Now we must create the Module Function for the logoff. Navigate to Create > Module and insert the code below:

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)
 '//constants needed to exit Windows
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4

Sub LogOffPC()    
    call  ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub

In our example, we saved the module name as “ModLogOff”

That’s it! The next time you open your database, the hidden form “frmLogOff” will run with your default form. Whenever you decide to exit out of the database, “frmLogOff” closes and runs the command to log out of Windows.

If you have any questions, feel free to talk to us on the live chat, or give us a call during business hours. Happy coding!

No Comments

Sorry, the comment form is closed at this time.