ACC2000 : Comment faire pour contrôler comment l'utilisateur ferme un formulaire

Traductions disponibles Traductions disponibles
Numéro d'article: 219776 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Modéré : Nécessite macro base, de codage et les compétences de l'interopérabilité.

Cet article s'applique à une base de données Microsoft Access (.mdb) et à un projet Microsoft Access (.adp).

Agrandir tout | Réduire tout

Résumé

Un formulaire Microsoft Access possède une propriété CloseButton (BoutonFermer), qui vous permet d'empêcher un utilisateur de fermer le formulaire soit avec l'icône du Bouton Fermer ou en cliquant sur Fermer dans le menu fichier. Toutefois, l'utilisateur peut toujours fermer le formulaire en appuyant sur ALT + F4. Cet article vous montre comment empêcher l'utilisateur de fermeture d'un formulaire en appuyant sur ALT + F4.

Plus d'informations

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques. Attention : Si vous suivez les étapes de cet exemple, vous modifier la base de données Comptoir.mdb. Vous souhaiterez peut-être sauvegarder le fichier Comptoir.mdb et suivre ces étapes sur une copie de la base de données.

Cet exemple montre comment empêcher l'utilisateur d'à l'aide d'ALT GR + F4 pour fermer un formulaire :
  1. Ouvrez le fichier de base de données exemple Microsoft Access Comptoir.mdb ou le fichier de projet Microsoft Access exemple NorthwindCS.adp.
  2. Ouvrez le formulaire clients en mode Création.
  3. Modifiez la propriété suivante :
       Form: Customers
       -------------------------
       CloseButton: No
    					
  4. Dans le menu affichage, cliquez sur code.
  5. Tapez les lignes suivantes dans la section déclarations :
    Option Explicit
    Public blnClose As Boolean
    					
  6. Ajoutez la ligne suivante de code à l'événement Load du formulaire :
    blnClose = False
    					
  7. Ajoutez le contrôle suivant au formulaire :
       Command Button 
       -------------------
       Name: cmdCloseForm
       Caption: &Close
    					
  8. Ajoutez la ligne de code suivante à l'événement Click du bouton de commande, cmdCloseForm :
    blnClose = True
    DoCmd.Close acForm, "Customers", acSaveNo
    					
  9. Ajoutez le code suivant à l'événement UnLoad du formulaire :
       Dim strMessage As String
       Dim intStyle As Integer
       Dim strTitle As String
    
       strMessage = "You are attempting to close this form incorrectly." & _
          vbCrLf & "Please try again using the designated Close Button"
       intStyle = vbOKOnly + vbCritical
       strTitle = "Closing Customers?"
    
       If blnClose = False Then
          MsgBox prompt:=strMessage, buttons:=intStyle, Title:=strTitle
          Cancel = True
       End If
    
    					
  10. Ouvrez le formulaire clients en mode formulaire.

    Remarque que le bouton représentant Le bouton Fermer reste visible mais qu'il apparaît estompé (grisé). Cliquez sur Fermer dans le menu fichier provoque le personnalisé de message à afficher. Ce message s'affiche également si l'utilisateur appuie sur ALT + F4.

Références

Pour plus d'informations sur les événements, dans Visual Basic Editor, cliquez sur Aide sur Microsoft Visual Basic dans le menu aide, tapez les événements et de leurs propriétés référence dans le Compagnon Office ou l'aide intuitive et puis cliquez sur Rechercher pour afficher la rubrique.

Propriétés

Numéro d'article: 219776 - Dernière mise à jour: vendredi 24 janvier 2014 - Version: 3.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 2000 Standard Edition
Mots-clés : 
kbnosurvey kbarchive kbmt kbhowto KB219776 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 219776
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com