Discussion :

[popofpopof]

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"

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 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".

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

[vodiem]

salut popofpopof,

sur la forme j'ai remarqué cela: (sans aller plus loin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]"

sur le fond, je ne ferais pas comme ca...
dans la source du formulaire: les données de l'entreprise et dans le filtre le <NUM_ENTREPRISE> de la zone de liste "listeentreprise".
un requery sur la form à chaque maj de la zone de liste s'il ne le fait pas automatiquement.

[popofpopof]

ok merci sa marche petit erreur

je souhaite maintenant enleve :
NUM_CORPS_ETATS1 = [listeentreprise].[Column](4)
NUM_AO1 = [listeentreprise].[Column](3)

car ses valeur sont dans la liste déroulante 2 "listeentreprise" et j'aimerai que ma liste 3 ou il y avait l'erreur pointe directement avec la liste trois tu comprend???

[vodiem]

et la liste 1 c'est quoi dans tout cela?
non sérieux j'ai pas tout suivi.

si tu postais une archive ce serait plus clair.

[popofpopof]

ok je te joint le formulaire avec en fond jaune les champ que je souhaiterai supprime qui sont utilise dans la liste 3

merci encore

[vodiem]

permière réaction de féniant: et si tu mettais .visible=false?

...
bon je regarde ca...

[popofpopof]

visible ou non visible je connai mais je souhaite savoir comment faire sens sa sera plus pro je pense

[vodiem]

tu supprime ces controles et tu remplace le code de l'événement listeentreprise_AfterUpdate par celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub listeentreprise_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
 
rs.FindFirst "[NUM_ENTREPRISE] = " & Me![listeentreprise] & " And [NUM_OPERATION] = " & Me![listeoperation] & " And [NUM_CORPS_ETATS] = " & [listeentreprise].[Column](4) & " And [NUM_AO] = " & [listeentreprise].[Column](3)
 
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

mais ca m'a l'air trop simple pour que ce soit que cela?
il y a un truc qui m'a échappé?

[popofpopof]

ok merci bcp sa marche nickel et je vai le réutilise sur d'autre liste déroulante merci bcp.


Dis moi j'ai réalise la gestion des compte rendu de réunion de chantier sous access qui marche bien. Il me manque a rajoute en desous un tableau que je joint en doc word ( 2 exemple).
Mon probléme est que les colonnes et ou les lignes sont différente d'un chantier a l'autre je ne sais comment faire tu aurai une idée?

[vodiem]

la gestion de compte rendu qui marche bien c'est quoi? un tableau qui ressemble aux exemples?

je te conseil d'ouvrir une nouvelle discution sur le sujet.

[popofpopof]

ok je le fait desuite et je t envoi le lien de la nouvelel discution merci bcp encore pour ton aide et ta solution sur ce sujet donc sujet résolu