VBA Conditions WHERE avec LIKE

Bonjour, dans ma base de données ACCESS, j'ai plusieurs formulaires.

Dans le formulaire de l'équipe 1016 VDA 01, j'ai un bouton zone de liste déroulante qui m'ouvre d'autres formulaires en tableau croisé dynamiqe contenant les résultats de toutes les équipes.

J'aimerais que le tableau croisé dynamique ne s'ouvre que sur l'équipe 1016 VDA 01 lorsque je clique sur le bouton zone de liste via le formulaire de cette équipe.

J'ai donc écrit ce code en VBA:

Code:

---

1 2 3 4 5 6

Option Compare Database Option Explicit   Private Sub Modifiable17_AfterUpdate() DoCmd.OpenForm Me.Modifiable17, acFormPivotTable, , [Equipe] Like "1016 VDA 01*", acFormReadOnly End Sub

---

Lorsque je ne mets pas la condition WHERE tout fonctionne très bien, mais lorsque je la mets, ce message d'erreur s'affiche:
"Erreur d'exécution '2465': La base de données ne trouve pas le champ "|1" auquel il est fait référence dans votre expression."

Je ne comprends pas l'erreur dans le code.

Est-ce que quelqu'un a une solution pour moi?

Merci d'avance!

Bonsoir,

Je n'ai pas très bien compris ce que vous faites lorsque vous dites que ça marche parce que la méthode OpenForm est censée ouvrir un formulaire alors que vous utilisez une zone de liste comme argument.

Concernant la condition Where, elle devrait s'écrire :
1- si l'argument est fixe et restera toujours 1016 VDA 01

Code:

---

"[LEChampFormAppelé] = '1016 VDA 01'"

---

2- si l'argument contient le texte '1016 VDA 01'

Code:

---

"[LEChampFormAppelé] LIKE '*1016 VDA 01*'"

---

3- si l'argument serait la valeur contenu dans une zone de liste

Code:

---

"[LEChampFormAppelé] LIKE '*" & Me.ZoneDeListe & "*'"

---

Bonne continuation

Oui c'est un bouton zone de liste qui ouvre des formulaires.

Malheuresement la condition Like ne fonctionne pas alors que je l'écris correctement.

Bonjour Madefemere, :coucou:


Cette demande fait double-emploi avec celle-ci :



http://www.developpez.net/forums/d14...e/#post7839058

Bonjour Claude ;),

Merci de l'avoir signaler.

Mais ça ne me donne pas la raison de l'utilisation d'une zone de liste déroulante :koi: avec OpenForm.
Comme c'est résolu sur l'autre fil, je pense qu'on n'a plus qu'à attendre qu'Aline appuie sur les boutons magiques :resolu:.


Bonne continuation à tous