Discussion :

[DébutantAccess]

Bonjour à tous,
J'ai un petit problème, j'ai créé un formulaire, avec un bouton "fermer" (qui permet de fermer le formulaire ^^), et j'aimerais qu'avant de fermer ce formulaire il m'affiche un messagebox de confirmation et je n'y arrive pas :/. Ca parait tout bête comme ça mais bon...
En espérant que l'on me vienne en aide, merci d'avance =).

[DébutantAccess]

J'ai oublier de préciser que j'étais sous Access 2010

[RobiPMS]

Bonjour.
Voici un façon de faire cela. Tu fais une procédure événementielle sur clic de ton bouton fermer. Le code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Msg, Style, Response, MyString
Msg = "Vous allez fermer le formulaire. Si c'est c'est bien ce que vous voulez faire, cliquez sur Oui. Dans le cas contraire, cliquez sur non"  ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Response = MsgBox(Msg, Style)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    DoCmd.Close acForm, "Ton_formulaire"
Else    ' L'utilisateur a choisi Non.
Exit Sub
End If

Cordialement

[DébutantAccess]

Bonjour,
J'ai essayé votre méthode mais le bouton ne réagit pas, mon code donne cela, c'est bon?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande546_Click()
Dim Msg, Style, Response, MyString
Msg = "Voulez-vous vraiment fermer le formulaire? "
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Response = MsgBox(Msg, Style)
If Response = vbYes Then
    DoCmd.Close acForm, "Ton_formulaire"
Else
Exit Sub
End If
 
End Sub

[DébutantAccess]

Et il n'y a pas de possibilité de le faire avec une macro?
Car je doit le faire pour fermer un formulaire et un autre pour fermer la base de données, donc avec une macro ca va tout seul, le seul problème: pas de message de confirmation de fermeture de la page.. et il m'en faut un.

[DébutantAccess]

C'est bon ça fonctionne, merci à toi. J'avais pas changé avec le nom de mon formulaire :s.