bonjour,
j'ai un formulaire (pas de sous formulaire juste un formulaire) avec une 1ere liste déroulante "listepromoteur" qui me permet de choisir un promoteur ensuite la 2eme liste déroulante "listeoperation" me permet de choisir un opération par rapport au promoteur précédament choisir et enfin on a une 3éme liste déroulante "listeentreprise" avec la les entreprises qui travaille dans cette opération.
requete que la "listeentreprise"
Pour avec un entreprise il faut avoir NUM_ENTREPRISE et AO: NUM_AO et NUM_CORPS_ETATS car une entreprise peux travailler dans plusieur corps d'état et avoir plusieur appel d'offre "AO".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 SELECT ENTREPRISE_SOLLICITE.NUM_ENTREPRISE, ENTREPRISE.NOM_ENTREPRISE AS [Nom Entreprise], CORPS_ETATS.NOM_CORPS_ETATS AS [Nom Corps d Etat], ENTREPRISE_SOLLICITE.NUM_AO AS AO, ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS, ENTREPRISE_SOLLICITE.NUM_OPERATION, ENTREPRISE_SOLLICITE.DEVIS_RETENUE FROM (ENTREPRISE INNER JOIN ENTREPRISE_SOLLICITE ON ENTREPRISE.NUM_ENTREPRISE = ENTREPRISE_SOLLICITE.NUM_ENTREPRISE) INNER JOIN CORPS_ETATS ON ENTREPRISE_SOLLICITE.NUM_CORPS_ETATS = CORPS_ETATS.NUM_CORPS_ETATS WHERE (((ENTREPRISE_SOLLICITE.NUM_OPERATION)=[Forms]![Situation]![listeoperation]) AND ((ENTREPRISE_SOLLICITE.DEVIS_RETENUE)=Yes)) ORDER BY ENTREPRISE.NOM_ENTREPRISE;
Pour sa tout est bon mon probleme est que dans je séléctionne une entreprise je souhaite que dans le formulaire apparaise les données de cette entreprise mais sa ne marche par avec la liste "listeentreprise".
j'ai essai de copier les numéro NUM_CORPS_ETATS et NUM_AO dans NUM_CORPS_ETATS1 et NUM_AO1 car j'arrive pas a géré ma liste déroulante pour le filtre sur le formulaire mais sa ne marche pas quand même qui peux m'aide??
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 Private Sub listeentreprise_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object NUM_CORPS_ETATS1 = [listeentreprise].[Column](4) NUM_AO1 = [listeentreprise].[Column](3) Set rs = Me.Recordset.Clone rs.FindFirst "[NUM_ENTREPRISE] = " & Me![listeentreprise] And [NUM_OPERATION] = " & Me![listeoperation] And [NUM_CORPS_ETATS] = " & Me![NUM_CORPS_ETATS1] And [NUM_AO] = " & Me![NUM_AO1]" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Private Sub listeoperation_AfterUpdate() Me.listeentreprise.Requery Me.listeentreprise.SetFocus Me.listeentreprise.Dropdown End Sub Private Sub listepromoteur_AfterUpdate() Me.listeoperation.Requery Me.listeoperation.SetFocus Me.listeoperation.Dropdown End Sub
Partager