Bonjour à vous,
Je veux faire apparaitre un popup avec message (variable selon le besoin), en me servant de la minuterie comme pour la déconnection. Ma table serait "T_Popup" avec une case à cocher "popup" tout simplement.
Voici le code que j'utilise pour la déconnection:
Merci à l'avance!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Private Sub Form_Timer() On Error GoTo Err_LogOffChk Dim Lancer As Boolean Dim rcd As DAO.Recordset Set rcd = CurrentDb.OpenRecordset("T_Déconnection") rcd.MoveFirst Lancer = rcd.Fields(0) rcd.Close CurrentDb.Close ' --Si la case est cochée If Lancer Then Application.Quit acQuitSaveAll Exit_LogOff: Exit Sub Err_LogOffChk: MsgBox Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur" Resume Exit_LogOff End Sub
Partager