Access: créer un journal des sessions d'utilisateurs d'une base Access

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Timer() 'fermeture automatique à 23h01
If Not Mode_debug Then On Error GoTo err
100 If Not Mode_admin Then
110   If TimeValue(Now()) >= TimeValue("23:00:00") Then
        'comme tout le monde va se faire virer je l'écris une fois pour toutes
111     cnx.Execute "UPDATE parametres set users=0 WHERE ligne=1", dbFailOnError 
112     cnx.Execute "UPDATE personnel set nb_log=0 where nb_log>0", dbFailOnError 
        'procédure de fermeture habituelle avec écriture dans le journal
113     Call Form_menu.quitte_Click 
114   ElseIf TimeValue(Now()) >= TimeValue("22:55:00") Then
116     DoCmd.OpenForm "choix", , , , , , "FERMETURE AUTOMATIQUE DANS 5'"
    End If: End If
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans ac_log.timer : " & err.description)
End Sub

DoCmd.Quit()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Compare Database

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const SC_CLOSE = &HF060&
Public Const MF_BYCOMMAND = &H0&

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
 
Public Sub DesacFermeture()
    Dim hSysMenu As Long
     
    hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
    RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
End Sub


Public Sub ReactiveFermeture()
    Dim hSysMenu As Long
    hSysMenu = GetSystemMenu(Application.hWndAccessApp, True)
    DrawMenuBar hSysMenu
End Sub