Recherche
Les mémos
-
Tables
- · Annuler la suppression
- · Attacher feuilles Excel
- · Cacher une table
- · Concaténer une colonne
- · Créer une table
- · Dernière modification
- · Index composé
- · Limiter les enregistrements
- · Liste des champs
- · Modifier valeur de champ
- · Où est la table
- · Peupler une table de Logs
- · Renuméroter un champ
- · Réattacher les liens
- · Réattacher les liens locaux
- · Scinder un champ
- · Supprimer les tables liées
- · Trouver la différence
-
Formulaires
- · Afficher les derniers
- · Ajout à liste modifiable
- · Ajouter enregistrement
- · Barre de progression
- · Click ou double-click
Confirmer l'enregistrement
- · Copier - Coller
- · Défilement de la roulette
- · Exporter un graphique
- · Filtres personnalisés
- · Identifiants d'un Form continu
- · Importer les formulaires
- · Langue utilisateur
- · Limiter la saisie
- · Mémoriser une valeur
- · No enregistrement
- · Ouvert en normal
- · Position des formulaires
- · Recopier dernière valeur
- · Scroll automatique
- · Switch Modal
- · Tri manuel dans form
- · Tri personnalisé
- · Verrouillage de formulaire
- · Vérifier les saisies
-
Automation
-
Administration
- · Chemin de la base
- · Déconnecter utilisateur
- · Désactiver le Shift
- · Désactiver le Shift(2)
- · Liste des références
- · Liste des utilisateurs
- · Lister les applications
- · Mode exclusif
- · Nom d'utilisateur
- · Nom de l'ordinateur
- · Paramètres régionaux
- · Propriétés de la base
- · Sauvegarde journalière
- · Sauvegarde mensuelle
- · Shell and Wait
- · Version de Windows
-
Envoyer un mail
-
Outlook
- · Ajouter des contacts
- · Déplacer les messages
- · Enregistrer pièces jointes
- · Est ouvert ?
- · Exporter les contacts
- · Exporter les rendez-vous
- · Importer les messages
- · Integrer un état
- · Lire les contacts
- · Lire les rendez-vous
- · Lister les dossiers
- · Lister les tâches
- · SendMail (MAPI)
- · SendMail Automation
-
Dates - Heures
-
Fichiers
- · Compter les dossiers
- · Créer un dossier
- · Générer fichier TXT
- · Importer fichier TXT
- · Le dossier existe ?
- · Le fichier existe ?
- · Lister les fichiers
- · Lister les fichiers (2007)
- · Lister les sous-dossiers
- · Rechercher un répertoire
- · Répertoire dans table
- · Supprimer ReadOnly
- · Sélection de dossier
- · Sélection de dossier (API)
- · Sélection de fichiers
- · Sélection fichier (MOL)
-
Références
Je débute...
-
La normalisation
-
VBA
Visites
1197760 visiteurs
4 visiteurs en ligne
Nous contacter
Contact
Confirmer l'enregistrement
Par défaut, Access enregistre les modifications ou ajouts via un formulaire sans action volontaire de l'utilisateur.
Il se peut que l'on souhaite que la sauvegarde avant l'enregistrement ou la modification d'un enregistrement ne se produise qu'après confirmations.
On placera alors le code suivant dans la Sub de l'événement "Avant mise à jour" du formulaire :
Private Sub Form_BeforeUpdate(Cancel As Integer) ' Confirmation de la sauvegarde Dim strMsg As String, strTitre As String strMsg = "Les donnés ont changé." & vbCrLf _ & "Voulez-vous les sauvegarder ?" strTitre = "Sauvegarde" If MsgBox(strMsg, vbQuestion + vbYesNo, strTitre) = vbNo Then Cancel = True Me.Undo End If End Sub
On peut encore améliorer le fonctionnement en ajoutant un choix supplémentaire. Ce choix supplémentaire est celui de ne pas sauvegarder, mais en plus, de ne pas annuler les saisies déjà effectuées. Ceci permet de se corriger plus simplement.
La réponse possible à la demande de confirmation est alors;
- Oui => On sauvegarde
- Non => On annule tout
- Annuler => On annule la sauvegarde, mais on reste dans l'enregistrement pour pouvoir le corriger
Le code devient alors :
Private Sub Form_BeforeUpdate(Cancel As Integer) ' Confirmation de la sauvegarde Dim strMsg As String, strTitre As String, strRep As String strMsg = "Les donnés ont changé." & vbCrLf _ & "Voulez-vous les sauvegarder ?" strTitre = "Sauvegarde" strRep = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTitre) If strRep = vbNo Then Cancel = True Me.Undo ElseIf strRep = vbCancel Then Cancel = True End If End Sub
Catégorie : Les mémos - Formulaires
Page lue 11958 fois
Page lue 11958 fois