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

Access Discussion :

doublons dans liste déroulante


Sujet :

Access

  1. #1
    Membre du Club
    Inscrit en
    Juillet 2006
    Messages
    79
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 79
    Points : 46
    Points
    46
    Par défaut doublons dans liste déroulante
    Bonjour à tous, voici mon problème (et j’espère le dernier…)

    Je possède deux listes déroulantes sur un formulaire (une entreprise et une autre adresse) quand je sélectionne une entreprise la liste déroulante concernant l’adresse se met à jour, jusque là pas de problème.
    Sur ce formulaire je possède un sous formulaire Automate sur lequel se trouve une liste déroulante. Quand je sélectionne l’entreprise la liste d’automate se met bien à jour normalement (2 automates, un S7200 et un S200)

    Mon problème est que lorsque je sélectionne l’adresse de l'entreprise, la liste devrait rester la même mais au lieu de cela la liste des automates double, elle affiche 4 automates (deux S7200 et deux S200 donc en tout 4)

    Pourquoi double t-elle ????

    Voici le code que j’ai utilisé pour mettre à jour la liste des automates :
    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
    26
     
    Private Sub Liste_Site_Change()
        If (Liste_Site.Value <> "") Then
     
            Liste_Aire.RowSource = "Select Aire.Aire_Id, Aire.Aire_Adresse FROM Aire WHERE Aire.Site_Id=" & Liste_Site.Value & ";"
            Liste_Aire.Requery
     
    Forms![Environnement]![sous-form Api].Form![Liste_Api].RowSource = "Select Api.Api_Id, Api.Api_Nom FROM Aire, Atelier, Equipement, Api WHERE Api.Equipement_Id=Equipement.Equipement_Id AND Equipement.Atelier_Id=Atelier.Atelier_Id AND Atelier.Aire_Id=Aire.Aire_Id AND Aire.Site_Id=" & Liste_Site.Value & ";"
     
    Forms![Environnement].Form![sous-form Api].Requery
     
        End If
     
    End Sub
     
    Private Sub Liste_Aire_Change()
     
    If (Liste_Aire.Value <> "") Then
     
    Forms![Environnement]![sous-form Api].Form![Liste_Api].RowSource = "Select Api.Api_Id, Api.Api_Nom FROM Aire, Atelier, Equipement, Api WHERE Api.Equipement_Id=Equipement.Equipement_Id AND Equipement.Atelier_Id=Atelier.Atelier_Id AND Atelier.Aire_Id=" & Liste_Aire.Value & ";"
     
    Forms![Environnement].Form![sous-form Api].Requery
     
        End If
     
    End Sub
    Merci d’avance pour votre aide précieuse !!!!

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2005
    Messages : 110
    Points : 64
    Points
    64
    Par défaut
    Rajoute un GROUP BY dans tes 2 requetes SQL

  3. #3
    Membre du Club
    Inscrit en
    Juillet 2006
    Messages
    79
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 79
    Points : 46
    Points
    46
    Par défaut
    merci pour ton aide j'ai réussi merci encore

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

Discussions similaires

  1. [XL-2003] pas de doublons ni de vides dans liste déroulante
    Par csophie49 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 15/12/2009, 14h54
  2. Réponses: 2
    Dernier message: 06/02/2006, 09h34
  3. filtre dans liste déroulante ?
    Par Mario Rousson dans le forum Access
    Réponses: 2
    Dernier message: 04/02/2006, 16h53
  4. [SQL] récupérer sélection dans liste déroulante
    Par nerick dans le forum PHP & Base de données
    Réponses: 7
    Dernier message: 06/12/2005, 11h30
  5. Réponses: 2
    Dernier message: 25/11/2005, 12h09

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