Discussion :

[Guy FALESSE]

Bonjour,

J'ai lu dans la faq qu'on pouvait exécuter une fonction à la fermeture d'access.
J'ai donc créé un formulaire invisible nommé frmDeSortieAccess et y ai placé la fonction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Close()
    Dim rep As Integer
    rep = MsgBox("On ferme?", vbExclamation + vbOKCancel, "Fermeture du programme")
        If rep = vbYes Then
            DoCmd.Quit
        End If
        If rep = vbCancel Then
            Exit Sub
        End If

Mais lorsque je clique sur cancel, Access se ferme tout de même.
Il y a encore certainement un truc que je ne comprends pas.
Pourquoi, faire cela, pour me rappeler si je n'ai pas oublié de faire quelque chose.
Une aide serait la bienvenue
D'avance merci,

Guy FALESSE

[chrtophe]

plutot que la structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if then test_oui
...
end if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if then test_non
...
end if

utilises if then .... else ... end if

[Guy FALESSE]

Salut Chrtophe,

Merci pour ta réponse.
Je l'avais déjà testé, c'est pour ça que je voulais tester cette solution.
Je referai des recherches demain.
bonne soirée.
Guy FALESSE

[NVCfrm]

bonsoir,

si je comprends bien ce que tu veux faire, tu dois utiliser l"évènement UnLoad
qui survient avant Close.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Fermer le programme?", vbExclamation + vbOKCancel,"Fermeture") = vbYes Then
        Exit Sub
    Else
        Cancel = True
    End If
End Sub

[Guy FALESSE]

Bonjour NVCfrm,

Merci pour ta réponse.
Malheureusement, elle fonctionne tellement bien qu'il m'était impossible de quitter le programme, ni même Access.
Obligé d'ouvrir le gestionnaire de tâche pour fermer Access.
Plus moyen non plus d'accéder au formulaire en mode création.
Enfin, en ouvrant de nouveau le programme et en appuyant sur la touche shift, j'ai pu inhiber la macro autoexec et ai pu corriger le formulaire.
Hier, j'avais testé cette autre fonction qui s'appelle onQuitte et qui donne ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim Rep As Integer
    Rep = MsgBox("Quitte-t-on réellement cette application?", vbQuestion + vbYesNo, "Fermeture base")
        If Rep = vbNo Then
            DoCmd.CancelEvent
            Exit Function
        End If

Pourtant sur le papier, ta fonction devait fonctionner.
Mais je dois encore ajouter 2 autres fonctions, si on clique sur oui, alors, on ferme, si on clique sur non, alors il faut ouvrir un formulaire et si on clique sur cancel on reste en l'état
@+
Guy FALESSE

[Guy FALESSE]

Bonjour NVCfrm,

Voilà, j'ai enfin trouvé la solution, en tout ça fonctionne;
Voici la fonction onQuitte() sur libération du formulaire caché "frmDeSortieAccess.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Function OnQuitte()
    Dim Rep As Integer
    Rep = MsgBox("Avons-nous copié les enregistrements dans " & vbLf & _
        "les tables achats globaux et toutes années?", vbYesNoCancel + vbQuestion, "fermeture de la base")
           If Rep = vbNo Then
            DoCmd.CancelEvent
            DoCmd.OpenForm "frmDateDépenses"
        ElseIf Rep = vbCancel Then
            DoCmd.CancelEvent
            Exit Function
        End If
End Function

Encore merci d'avoir cherché.

@+

Guy FALESSE