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 :

Un EDIT/UPDATE me crée des doublons


Sujet :

VBA Access

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Février 2004
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 75
    Points : 48
    Points
    48
    Par défaut Un EDIT/UPDATE me crée des doublons
    Bonjour à tous,

    Je viens de remarquer quelque chose de stypéfiant dans ma bdd et je voulais avoir votre avis. Je vais essayer d'être precis:

    J'ai un formulaire basé sur une requête qui comprends plusieurs tables dont la principale Panneaux.

    Dans ce formulaire je vais sur la fiche du produit P et j'ai un bouton qui ouvre un formulaire reprenant les données attachées à ce produit P.

    Via ce 2eme formulaire, je lance le code ci-dessous pour mettre à jour les données de la fiche P (dans laquelle je suis dans le premier formulaire).....

    et alors je reçois disant qu'un autre utilisateur a modifié les données entre-temps mais surtout et le plus bizarre, il crée une deuxième fiche P (alors que dans ma table Panneaux, P est spécifié "sans doublon") mais cette deuxième fiche P n'est visible que dans ce formulaire. Dans ma table Panneaux, je n'ai qu'un seul produit P.

    Est-ce quelqu'un peut m'éclairer de son savoir???

    D'avance merci,


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
     
      Set Wk = DBEngine.Workspaces(0)
        Set db = Wk.Databases(0)
     
     
            Set recPANNEAUX = db.OpenRecordset("SELECT * FROM Panneaux WHERE (REF ='" & Me!REF.Value & "')")
            Set recCONTRAT = db.OpenRecordset("SELECT * FROM T_LC_CONTRAT WHERE ((BDC = " & str1 & ") AND (REF = '" & str2 & "'))")
     
     
            With recPANNEAUX
            .EDIT
     
            recPANNEAUX!CLIENT = recCONTRAT!APELLATION
     
     
            .UPDATE
            End With
     
     
    recCONTRAT.Close
    recPANNEAUX.Close
    Set db = Nothing
     
    Me.Refresh
    Forms!F_COMPLET.Refresh

  2. #2
    Membre averti
    Avatar de antoinev2
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    177
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 177
    Points : 376
    Points
    376
    Par défaut
    Bonjour,

    d'après le message d'erreur que tu as, le problème de base est un conflit de mise à jour.
    Si tu n'es pas en mode lecture seule dans le premier formulaire, c'est peut-être cela qui dérange access?

    J'ai le même type de formulaires dans ma base, mais avec le premier en lecture seule.
    Un utilisateur clique sur "éditer" pour ouvrir un second formulaire, celui-là avec la modification des données autorisée pour que l'utilisateur puisse faire ses mises à jour. Et tout est ok.

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Février 2004
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2004
    Messages : 75
    Points : 48
    Points
    48
    Par défaut
    Merci Antoine pour ton info.

    Je vais essayer.

    Mais le plus bizarre est cette création d'un doublon uniquement visible via la "requête source" du formulaire et nulle part ailleurs.

Discussions similaires

  1. NuméroAuto qui crée des doublons!
    Par Chrysostome dans le forum VBA Access
    Réponses: 21
    Dernier message: 03/05/2016, 16h02
  2. [AC-2000] Ma requete SELECT crée des doublons
    Par zabisou dans le forum Requêtes et SQL.
    Réponses: 31
    Dernier message: 29/09/2010, 13h37
  3. REPLACE crée des doublons ?
    Par éric1 dans le forum Langage SQL
    Réponses: 2
    Dernier message: 25/08/2009, 16h07
  4. saveOrUpdate() qui crée des doublons lors de l'update
    Par tamiii dans le forum Hibernate
    Réponses: 1
    Dernier message: 21/04/2009, 15h44
  5. Réponses: 3
    Dernier message: 14/06/2006, 12h55

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