Forcer l'utilisateur à fermer sa session avant de quitterRésolu

Question

Bonjour à tous,

j'aimerai empêcher la fermeture du menu principal de mon application tant que l'utilisateur n'aura pas fermer sa session. Voici mon code (mais il ne marche malheureusement pas) qui se trouve dans le unload de mon menu principal :


    If MDIFormMenuPrinci.FermerSession.Enabled = True Then
    
        MsgBox "Veuillez fermer votre session avant de fermer l'application!", vbCritical, "Session Non Fermée"
        
        Cancel = False
    
        Exit Sub
        
    Else
    
        Unload Me
        
        Set MDIFormMenuPrinci = Nothing
        
        Cancel = True
        
    End If

Merci d'avance pour votre aide.

Cordialement.

AlKatou · Accepted Answer

salut,

ce que tu devais utiliser c'est l'évènement QueryUnload (Demande de déchargement) et non Unload (Actions effectuées pendant le déchargement)

ce qui donne :

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    ' Affichage du message si la session est encore active
    If MDIFormMenuPrinci.FermerSession.Enabled Then
        MsgBox "Veuillez fermer votre session avant de fermer l'application!", vbCritical, "Session Non Fermée"
    End If
    
    ' Annulation du déchargement si la session est encore active
    Cancel = MDIFormMenuPrinci.FermerSession.Enabled

End Sub

et à l'endroit ou tu quittes ton appli, mets Unload Me et non End

exemple sur un menu Quitter :
Private Sub Quitter_Click()
    Unload Me
End Sub


cdlt

alka

js8bleu · Answer

Bonjour Alkatou et Merci pour ton aide. C'est tout simplement magnifique, ça marche du tonnerre . Vraiment Merci beaucoup. C'est super. Prends bien soin de toi.

Cordialement.

Forcer l'utilisateur à fermer sa session avant de quitter

2 réponses

Votre réponse

Discussions similaires