2010-06-03 5 views
0

J'ajoute des boutons personnalisés à mes formulaires dans MS Access, mais je n'arrive pas à les faire fonctionner. Dans les propriétés des boutons onglet Événement J'ai changé l'événement 'On Click' pour appeler 'Event procedure'. Puis, dans VBasic, je sélectionne mon bouton et, d'après ce que je sais, ce code devrait m'appeler, et si Yos est sélectionné, le formulaire devrait se fermer. Mais quand je clique sur mes boutons, rien ne se passe. Est-ce que je fais quelque chose de mal ?Boutons personnalisés dans Access 2007

Option Compare Database 
Option Explicit 

Private Sub cmdQuitApp_Click() 
If MsgBox("Are you sure you want to close the form?", vbYesNo + vbQuestion + vbInformation, "Clasing the form.") = vbYes Then 
DoCmd.Close 
End If 
End Sub 

Répondre