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:
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
Merci à l'avance!