Bouton de commande sur access
willson181
Messages postés
6
Statut
Membre
-
PBGunner Messages postés 64 Statut Membre -
PBGunner Messages postés 64 Statut Membre -
Bonjour,
Bonjour,
j'ai créé un bouton de commande nommé "Quitter" dans le formulaire de connexion (access). je voudrais savoir comment programmer ça pour que lorsque je clique là-dessus pour quitter access une boite de dailogue avec un message "voulez vous quitter access) et avec 3 options ( Oui - Non - Annule) apparaisse. ce qui me permettra de cliquer sur "oui" si je veux quitter, "non" si je veux pas et annuler pour rester au formulaire de connexion. j'utilise windows xp - microsoft office 2003
Merci d'avance de votre aide.
Bonjour,
j'ai créé un bouton de commande nommé "Quitter" dans le formulaire de connexion (access). je voudrais savoir comment programmer ça pour que lorsque je clique là-dessus pour quitter access une boite de dailogue avec un message "voulez vous quitter access) et avec 3 options ( Oui - Non - Annule) apparaisse. ce qui me permettra de cliquer sur "oui" si je veux quitter, "non" si je veux pas et annuler pour rester au formulaire de connexion. j'utilise windows xp - microsoft office 2003
Merci d'avance de votre aide.
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Salut!
La commande NON n'est elle pas identique a la commande ANNULE?
Sur ton formulaire, dans les propriétés du bouton Quitter tu ajoute une procédure évenementielle sur clic.
L'idée est d'utiliser un MessageBox a 3 boutons plutot que refaire un formulaire dédié...
Voici le script associé:
Private Sub Quitter_Click() 'Définir les variables qui vont contenir les textes msg = "voulez vous quitter access?" ' Définit le message qui apparait Style = vbYesNoCancel + vbDefaultButton3 ' Définit les boutons Oui/non/Cancel (valeur par défaut). Title = "Sortir de l'application Access" ' Définit le titre de la fenetre Response = MsgBox(msg, Style, Title) ' Affiche le message et définie la variable de réponse. 'ensuite on choisi le cas qui nous convient et on définie les actions associées Select Case Response Case vbYes [Action de fermeture de l'application]. 'Si tu peux sortir de l'application par d'autres boutons, je te conseille de créer 'un sous programme et de l'appeler a cet endroit Case vbNo [Action de fermeture du formulaire en cours puis du formulaire de connexion] 'ne connaissant pas ce que tu appelle formulaire de connexion, je considère 'qu'il s'agit d'un formulaire classique Case Else DoCmd.close 'ferme le formulaire en cours si la réponse est Cancel End Select MsgBox MyString End Sub
