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 :
Merci d’avance pour votre aide précieuse !!!!
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
Partager