IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Supprimer un enregistrement dans un formulaire


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Inscrit en
    Juin 2008
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 8
    Par défaut Supprimer un enregistrement dans un formulaire
    Bonjour à tous,

    Voici mon problème :
    J'ai un formulaire qui sert à incrémenter une table. A chaque fois que le formulaire est rempli, cela ajoute un enregistrement dans ma table.
    Si les utilisateurs quittent le formulaire sans terminer la saisie, les champs renseignés sont enregistrés dans la table mais l'enregistrement n'est pas complet.
    J'ai donc ajouté un bouton "QUITTER" qui permet d'effacer l'enregistrement en cours par ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub Btnquit_Click()
    Dim reponse
    reponse = MsgBox("Etes-vous sûr de vouloir quitter? Toutes vos données seront perdues", vbYesNo)
    If reponse = vbYes Then
    MsgBox "Merci de votre visite " & Environ("UserName")
     
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
     
    DoCmd.Close
    End If
    End Sub
    Le problème est qu'apparaît le message automatique d'ACCESS "vous allez supprimer un enregistrement...", est-il possible de supprimer ce message et que la suppression soit automatique dès lors que la réponse est vbyes?

    Merci d'avance pour votre aide précieuse...

  2. #2
    Membre Expert
    Avatar de Demco
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    1 396
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 396
    Par défaut
    Voici l'article de la FAQ qui traite le sujet :

    http://access.developpez.com/faq/?page=SQL#Warning

    En espérant t'aider.

  3. #3
    Membre émérite Avatar de stigma
    Homme Profil pro
    Créateur jeux vidéo
    Inscrit en
    Octobre 2003
    Messages
    1 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 75
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Créateur jeux vidéo
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2003
    Messages : 1 130
    Par défaut
    Un petit exemple pour t'aider
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("DELETE * FROM Stocks")
        DoCmd.SetWarnings True
    Pour ma part, je teste si tous les contrôles sont bien renseignés avant de valider.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
        If IsNull(DateEncours) = True Then
            Cancel = True
            DateEncours.SetFocus
            Exit Sub
        End If
    Tu peux ajouter un MsgBox pour expliquer à l'utilisateur.

  4. #4
    Membre habitué
    Inscrit en
    Juin 2008
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 8
    Par défaut
    J'ai opté pour la réponse de DEMCO plus simple car elle s'applique à toute la base.
    A STIGMA, je ne teste pas si les contrôles sont renseignés car dans ce cas précis, les utilisateurs quittent le formulaire volontairement sans aller au bout, je souhaite donc seulement effacer leurs saisies. En revanche, je teste bien pour la validation de la saisie.
    MERCI à tous les 2 pour vos conseils

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Supprimer enregistrement dans sous-formulaire
    Par alexbrabo dans le forum VBA Access
    Réponses: 2
    Dernier message: 18/02/2013, 21h21
  2. [AC-2007] Supprimer un enregistrement dans un sous-formulaire
    Par eemii dans le forum IHM
    Réponses: 1
    Dernier message: 14/01/2011, 17h37
  3. Réponses: 5
    Dernier message: 24/08/2010, 04h20
  4. [Toutes versions] supprimer un enregistrement dans un formulaire
    Par Mat08 dans le forum VBA Access
    Réponses: 2
    Dernier message: 13/08/2009, 13h44
  5. Réponses: 1
    Dernier message: 10/12/2006, 18h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo