Log user off computer on database exit

[redekopp]

As the title suggest, we have a locked down the database that is accessible via remote desktop (to a server running 2012). It auto launches for them but when they exit the database we want it to log them off.

Has anyone come across a code for this?

p.s. I know this would be simple with a remote app but we are not using a domain joined server in this case.



Thanks!

[Bulzie]

Not sure you can do this from Access. Maybe have another process running in background to check for the Access locking file .laccdb and if not detected log off users?

[ranman256]

There is no action to detect access closing, so you must have a small HIDDEN form.
this form would open in autoexec macro with the main form.
this form has the shutdown command. When access closes, the form closes, then runs the logoff.

here is the hidden form code.

sub form_unload()
 LogOffPC
end sub

this code goes in a module

 

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


     '//log-off
Sub LogOffPC()    
    call  ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub

[Bulzie]

Stand corrected, nice ranman256!!

[redekopp]

This works practically perfect!
Thank you

The only issue I am noticing is that the database doesn't close before the log off happens so it sits with the "This program is preventing you from logging out" and the user would have to click Force Log Off. If they decided to hit cancel they could then in turn access the server.

Thoughts?